ABRACADABRA!

[Обедающий философ]

ну лично мне пример на форте мозг сломал.

Так там всё просто.

: - объявление функции
f - имя функции
0; - выход, ежели 0 на стеке
2dup - скопировать два числа на стеке
type - вывести строку на экран
cr - перевод строки
1- - отнять единицу
f - вызвать функцию
; - завершение определения функции
" ABRACADABRA" - создать строку, на стек кладётся её адрес и длина
f - вызвать функцию

А вот на руби ничего не понятно.

[spectator]

А вот на руби ничего не понятно.

Суровая штука этот ваш форт.

с руби просто, если помнить что там всё - объекты.

Код: (ruby) [Выделить]

11.times{|i|p"ABRACADABRA"[0..10-i]}аналогично

Код: (ruby) [Выделить]

a = "ABRACADABRA"
a.length.times{                       #длина_строки_а раз выполняем
     |i|                                                #счётчик итераций
     puts a[0..a.length-1-i]          #выводим символы строки a с нулевого по (длина_строки_а-1-i)
}
я просто заменил a.length на 11, "puts" на "p", убрал лишние пробелы и записал в одну строку

ещё способы

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

a="ABRACADABRA";(-a.length..-1).each{|i|p a[0..i]}

Код: [Выделить]

a="ABRACADABRA";
(-a.length..-1).each{             #в диапазоне (от -длина_строки_а до -1)
     |i|                                             
     puts a[0..i]
}

Код: [Выделить]

10.downto(0).each{|i|p"ABRACADABRA"[0..i]}


Код: [Выделить]

a="ABRACADABRA";
(a.length-1).downto(0).each{    # от длина_строки_а-1 до 0 делаем
|i|
p a[0..i]
}

[andrey_p]

Код: [Выделить]

$ perl -E '$_=ABRACADABRA;say while chop'

[RazrFalcon]

И сколь же тут символов?

[andrey_p]

30/40 Вы там определитесь как считать. Наверное можно 39, не знаю у меня еще 10 дней под рукой только андроид. В любом случае победитель. Так что рулит Перл

[RazrFalcon]

>>Вы там определитесь как считать
А что там считать, укорачивайте как хотите, и считайте КАЖДЫЙ символ.

40

[aliftin]

Хотелось бы увидеть реализацию на brainfuck. У меня только ввод слова занял 60-70 символов.

[RazrFalcon]

Хотелось бы увидеть реализацию на brainfuck. У меня только ввод слова занял 60-70 символов.

PS: для этого тема и предназначена, собрать кучу решений тривиальной задачи.

[Sova777]

30/40 Вы там определитесь как считать. Наверное можно 39, не знаю у меня еще 10 дней под рукой только андроид. В любом случае победитель. Так что рулит Перл

Единственный недостаток - строка или не работает или работает неправильно

[spectator]

Код: [Выделить]

$ perl -E '$_=ABRACADABRA;say while chop'

Выводить начинает с "ABRACADABR".
если так, то работает

Код: [Выделить]

perl -E '$_=ABRACADABRAz;say while chop'40 символов.

аналогичный код на руби и те же 40 символов.

Код: [Выделить]

a="ABRACADABRA ";a.each_char{p a=a.chop}

[alexander.pronin]

забавная тeма.
На питонe так напримeр

Код: [Выделить]

#!/usr/bin/python
a = "ABRACADABRA"
while a:
print a
a = a[:-1]-бeз шабанга 49
И в отличии от это будет работать с любой длиной слова.

Код: [Выделить]

#!/usr/bin/python
a="ABRACADABRA"
while a:print a;a=a[:-1]-бeз шабанга 41 или 40.
Тот же питон, но менее красивый.
По любому самый лаконичным будет стековый язык - форт. 
Из приличных - питон.
Из заморочных - перл.

[spectator]

Хотелось бы увидеть реализацию на brainfuck. У меня только ввод слова занял 60-70 символов.

-upd-
Сделал. грязно конечно, но работает.

(Нажмите, чтобы показать/скрыть)

-upd- Ужал чуть чуть.
231 символ. Переводы строк добавил, ибо форум сам не разбивает

Код: [Выделить]

+++++++++++[>++++++>++++++>++++++>++++++>+++++++>+>+>+<<<<<
<<<-]>->>+>++>+++++>->[>[-<<<<<<<<+>>>>>>>>>+<]>[-<+>]<<<<<<<<<[>.<-[>>
.<<-[>>>>>.<<<<<-[>.<-[>>>.<<<-[>.<-[>>>>.<<<<-[>.<-[>>.<<-[>>>>>.<<<<<-[>.<-]]]]]
]]]]]]>>>>>>.>>-<-]
А вот  это уже смешно. версия, которая не заморачивается, а просто выводит все символы ничего не считая.

Код: [Выделить]

+++++++++++[>+>++++++>+++++++<<<-]>->>+++++<-.+.>.<-.++.--.+++.---.+
.>.<-.<.>.+.>.<-.++.--.+++.---.+.>.<<.>-.+.>.<-.++.--.+++.---.+.<.>-.+.>.<-.++.--.+++.---.<.>.+.
>.<-.++.--.+++.<.>---.+.>.<-.++.--.<.>.+.>.<-.++.<.>--.+.>.<-.<.>.+.>.<<.>-.+.<.>-.<.249 символов.

PS. Кажется ещё чуть чуть и у форумчан сложится какое-то неправильное впечатление. сначала си и асм, теперь брейнфак.

[FluffyMan]

271 символ. Переводы строк добавил, ибо форум сам не разбивает

А вот  это уже смешно. версия, которая не заморачивается, а просто выводит все символы ничего не считая.
249 символов.

 

[aliftin]

spectator, главное что бы работало. Второй вариант я почти реализовал, используя всего три ячейки: буквы, пробел и буква R, а вот ваш первый вариант даже разбирать боюсь.

[spectator]

spectator, главное что бы работало. Второй вариант я почти реализовал, используя всего три ячейки: буквы, пробел и буква R, а вот ваш первый вариант даже разбирать боюсь.

Ну во втором символы у меня тоже по трём ячейкам. нулевая, чтоб быстрее сгенерировать.
с первым примером всё очень печально))
пока писал объяснялку сократил ещё чуть чуть. надо чаще так делать)

(Нажмите, чтобы показать/скрыть)

сначала я генерирую сиволы и забиваю нужные значения для цикла
Ячейка 0: 0
Ячейка 1: 10 (перевод строки)
Ячейка 2: 65 (A)
Ячейка 3: 66 (B)
Ячейка 4: 67 (C)
Ячейка 5: 68 (D)
Ячейка 6: 82 (R)
Ячейка 7: 11 (нужно для цикла)
Ячейка 8: 11 (нужно для цикла)
потом, пока ячейка 7!=0 у меня идёт цикл, в котором, через ячейку 9 в ячейку 0 копируется содержимое ячейки 8(этот код я подсмотрел в википедии) затем перемещаемся в ячейку 0 и начинается ещё один цикл

Код: [Выделить]

[>>.<<-[>>>.<<<-[>>>>>>.<<<<<<-[>>.<<-[>>>>.<<<<-[>>.<<-[>>>>>.<<<<<-[>>.<<-[>>>.<<<-[>>>>>>.<<<<<<-[>>.<<-]]]]]]]]]]]>.он выводит символ, вычитает из ячейки 0 единицу и, если ячейка 0 !=0 печатает следующий. Когда ячейка 0 == 0 печатается символ перевода строки. потом уменьшаем значения ячеек 8 и 7.

Код можно ещё сократить, если сделать перевод строки 6 символом, а остальные соответсвенно сдвинуть. ну т.е. тут у меня 'a' во второй ячейке, а сделать в первой и.т.д. теперь он "всего лишь" 231 символ

Если в третью ячейку записать 'R', а 'c' и 'd' сдвинуть на одну позицию вправо можно выиграть ещё один символ. и вроде я ещё что-то там сделал, теперь код в 228 символов

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

+++++++++++[>++++++>++++++>+++++++>++++++>
++++++>+>+>+<<<<<<<<-]>->>+++++>+>++>->[>[-<<<<<<<<+>>
>>>>>>>+<]>[-<+>]<<<<<<<<<[>.<-[>>.<<-[>>>.<<<-[>.<-[>>>>.<<
<<-[>.<-[>>>>>.<<<<<-[>.<-[>>.<<-[>>>.<<<-[>.<-]]]]]]]]]]]>>>>>>.>>-<-]