ABRACADABRA!

[ywaw]

Вот к примеру на Питоне
print "ABRACADABRA"
print "ABRACADABR"
print "ABRACADAB"
print "ABRACADA"
print "ABRACAD"
print "ABRACA"
print "ABRAC"
print "ABRA"
print "ABR"
print "AB"
print "A"
Пользователь решил продолжить мысль 15 Июля 2011, 10:50:53:

74 байта, говорите? Заголовки можно не считать, говорите? Вот вам:

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

: f 0; 2dup type cr 1- f ;
" ABRACADABRA" f
44 байта, заголовки вовсе не нужны, все использованные функции искаропки. Угадайте, что за язык.

Это Forth. Интересно -какой диалект? В стандартном рекурсивный вызов делается словом RECURUSE

[inkblack]

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

do i=1 to 11;say left(abracadabra,12-i);end
43 символа. Не рекорд, но по понятности, IMHO, первое место.

Ещё понятнее, но чуть длиннее:

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

do i=11 to 1 by -1;say left(abracadabra,i);end
Обращайтесь 

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

Это Forth. Интересно -какой диалект? В стандартном рекурсивный вызов делается словом RECURUSE

Это ретрофорт, точнее я использовал мой собственный велосипед, слепленный по образу и подобию ретрофорта 2006 года. Но на оригинальном ретрофорте тоже должно пойти. Хотя вроде ретрофорт с тех пор изменился до неузнаваемости, но я не вникал. А слово RECURSE не нужно, ибо словарная запись создаётся в момент исполнения двоеточия.

[inkblack]

Суть темы в том, что бы найти самый короткий способ это сделать

Суть крайне сомнительная.
Обычно нужно либо макс. быстродействие, либо мин. используемой памяти.
А на диске что 65, что 51, что 651 байт - все один кластер.
 

Разные задачи есть в программировании. Про куайн вы слышали? Тоже смысла вроде никакого нет, а интересно!

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

Много лет назад я услышал про такую задачу, пытался решить, но просто не мог сообразить, как взяться за дело. А пару лет назад понял, как надо делать и получил неплохой результат. Только потом посмотрел примеры в Википедии. Там, конечно, более грамотно, но я считаю, что и мне стыдиться нечего.

[spectator]

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

do i=1 to 11;say left(abracadabra,12-i);end
43 символа. Не рекорд, но по понятности, IMHO, первое место.

Ещё понятнее, но чуть длиннее:

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

do i=11 to 1 by -1;say left(abracadabra,i);end
Обращайтесь 

что за язык?

В общем я не уверен, что это самый правильный вариант, но вот на go

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

func main(){for i:=11;i>0;i--{println("ABRACADABRA"[:i])}}
58 символов. Без хидеров.

[inkblack]

Это REXX

В теме Калькулятoр на bash скриптe я его тоже использовал.

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

p4@d12:~$ sudo apt-get install regina-rexx
[sudo] password for p4:
[ ... ]
p4@d12:~$ rexx
do i=1 to 11;say left(abracadabra,12-i);end
[ Тут надо нажать ^D ]
ABRACADABRA
ABRACADABR
ABRACADAB
ABRACADA
ABRACAD
ABRACA
ABRAC
ABRA
ABR
AB
A


Пояснения:
с установкой всё понятно.
rexx — вызов интерпретатора. Он может брать команды как из файла, так и из стандартного ввода. Во втором случае ввод завершается ^D, как обычно.
Когда программа полностью введена, он её исполняет, тут тоже понятно.

В коде использована одна особенность языка: неинициализированные переменные имеют значение, совпадающее с их именем. Таким образом, вместо "ABRACADABRA" можно написать abracadabra без кавычек, сэкономив 2 символа. И да, язык не чувствителен к регистру, можно написать DO, Do, do — как хотите.

Встроенная функция left(string, n), понятное дело, выдаёт n левых символов своего первого аргумента.

Для написания больших проектов язык, я думаю, не очень подходит, но для таких маленьких штук — самое то. В нём есть много очень приятных мелочей, которые реально превращают программирование в удовольствие.

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

Кстати, и калькулятор в той теме, со встроенной функцией факториал и с произвольной точностью я накатал минут за 5. Правда, без обработки ошибок, но и это там несложно прикрутить.

[фирэфохэ]

Haskell:

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

f [] = return ()
f x = do print x; f (init x)

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

*Main> f "ABRACADABRA"
"ABRACADABRA"
"ABRACADABR"
"ABRACADAB"
"ABRACADA"
"ABRACAD"
"ABRACA"
"ABRAC"
"ABRA"
"ABR"
"AB"
"A"
*Main>
Если убрать ненужные пробелы - 37 символов, с переводом строки.

[inkblack]

Круто.

Но у остальных программа вызывается без аргументов.  


Вообще внушает. Я щас попробовал подобный трюк — всё равно длиннее получилось: 39 символов.

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

arg a;do i=1 to 11;say left(a,12-i);end

[фирэфохэ]

Это ж хаскель, тут даже переменных нет . Хз как по-другому сделать.
В варианте arcfi, если не учитывать задание переменной, тоже 37 символов вроде.
И ещё, хаскель не круто, хаскель не нужен .

[ArcFi]

Вспомнилась похожая темка о способах выковыривания ip-адреса, на которую наткнулся пару лет назад:
http://www.catonmat.net/blog/golfing-the-extraction-of-ip-addresses-from-ifconfig/

[inkblack]

не нужен

— Ну, я другого и не ждал. 
А круто — это про решение.

[фирэфохэ]

Нет, ну хаскель в самом деле не нужен.
Пользователь решил продолжить мысль 16 Июля 2011, 02:36:50:На баше, независимо от количества символов в слове:

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

$ a=ABRACADABRA;while((${#a}));do echo $a;a=${a::$((${#a}-1))};done
ABRACADABRA
ABRACADABR
ABRACADAB
ABRACADA
ABRACAD
ABRACA
ABRAC
ABRA
ABR
AB
A
$ echo -n 'a=ABRACADABRA;while((${#a}));do echo $a;a=${a::$((${#a}-1))};done' |wc -m
65Пользователь решил продолжить мысль 16 Июля 2011, 02:39:06:Питон с рекурсией, с циклом уже было :

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

#! /usr/bin/python
def f(a):
if a:
print a
f(a[:-1])
f("ABRACADABRA")


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

РЕФАЛ ПЛЮС, мать его!

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

$use StdIO;
$use String;
$use Arithm;
$func Main  = e;
$func Abra s0 = e2;
Main = <Abra <String "Red-eyed penguin">>;

Abra
{
"" = ;
s1 = <PrintLN s1>, <Abra <Substring s1 0 <"-" <String-Length s1> 1>>>;
};
Три часа убил на это дело. Идея у языка неплохая, но сделано всё как-то через попу.

[RazrFalcon]

Вспомнилась похожая темка о способах выковыривания ip-адреса, на которую наткнулся пару лет назад:
http://www.catonmat.net/blog/golfing-the-extraction-of-ip-addresses-from-ifconfig/

Прикольно. До такого я не додумался.
Меня привлекла идея просто помучать мозг 

[spectator]

Вспомнилась похожая темка о способах выковыривания ip-адреса, на которую наткнулся пару лет назад:
http://www.catonmat.net/blog/golfing-the-extraction-of-ip-addresses-from-ifconfig/

Прикольно. До такого я не додумался.
Меня привлекла идея просто помучать мозг 

Кому интересно вот сайт о подобных забавах. Правда там используют только перл, питон, пхп и руби.
99 бутылок пива на перле в 161 символ это фантастика, я в 270 уложился.