ABRACADABRA!

[RazrFalcon]

Если кто не в курсе, то из этого слова, вычитанием последней буквы, можно получить это же самое слово.
man

Суть темы в том, что бы найти самый короткий способ это сделать. Желательно на баше, но можно и на других языках.

Мой вариант:

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

$ for i in `seq 0 10`;do echo "ABRACADABRA"|sed "s/.\{$i\}$//";done
ABRACADABRA
ABRACADABR
ABRACADAB
ABRACADA
ABRACAD
ABRACA
ABRAC
ABRA
ABR
AB
A


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

echo -n 'for i in `seq 0 10`;do echo "ABRACADABRA"|sed "s/.\{$i\}$//";done' | wc -m
65

PS: Just for fun! Удачи!

[ArcFi]

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

$ w=ABRACADABRA;for i in {11..1};do echo ${w::i};done
ABRACADABRA
ABRACADABR
ABRACADAB
ABRACADA
ABRACAD
ABRACA
ABRAC
ABRA
ABR
AB
A

$ echo -n 'w=ABRACADABRA;for i in {11..1};do echo ${w::i};done' | wc -m
51

[RustemNur]

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

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

[RazrFalcon]

Так я же говорю: Just for fun!
Это не проблема, просто мне интересно увидеть самый короткий вариант. Ну и программирование тут как ни к стати. Не в разговоры же такое.

[Красноглазый]

Что-то я не совсем понял задачу. Каким образом вычитание последней буквы создает то же самое слово?
Если срезать по одной букве с конца и читать срезанные буквы в обратном порядке, то ЛЮБОЕ слово можно будет прочитать таким образом.
Задача какая-то дурацкая...

[RustemNur]

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

В каких-то языках, например, print, а в каких-то echo. Уже -1 символ.

Предлагаю наделать обнобуквенных алиасов на следующие команды:
echo ABRA
echo C
echo A
echo D
echo B
echo R
Получится всего 7 символов.
эээ.... сейчас посчитаю

[RazrFalcon]

Неее, нужна именно "программа".

Красноглазый
Ладно, объясню снова:
ABRACADABRA
ABRACADABR
ABRACADAB
ABRACADA
ABRACAD
ABRACA
ABRAC
ABRA
ABR
AB
A
А теперь прочтите выделенное с конца.  
По сути да, нужно отнимать последнюю букву, но может есть еще более странный вариант получения такого "вывода". По сути нужно получить текст как выше. Способ роли не играет.


Не принимайте все это всерьез. Я же написал, это просто в шутку, Развлекалочка-головоломка.

[Красноглазый]

Красноглазый
Ладно, объясню снова:
ABRACADABRA
ABRACADABR
ABRACADAB
ABRACADA
ABRACAD
ABRACA
ABRAC
ABRA
ABR
AB
A
А теперь прочтите выделенное с конца. 
По сути да, нужно отнимать последнюю букву, но может есть еще более странный вариант получения такого "вывода". По сути нужно получить текст как выше. Способ роли не играет.

Не принимайте все это всерьез. Я же написал, это просто в шутку, Развлекалочка-головоломка.

КРАСНОГЛАЗЫЙ
КРАСНОГЛАЗЫ
КРАСНОГЛАЗ
КРАСНОГЛА
КРАСНОГЛ
КРАСНОГ
КРАСНО
КРАСН
КРАС
КРА
КР
К

Почему именно abracarabra?

[RazrFalcon]

Абракадабра (лат. abracadabra) — магическое слово, впервые упоминается в конце II века н. э. в медицинском трактате De Medicina Praecepta Самоника, врача императора Септимия Севера для лечения сенной лихорадки. Слово (заклинание против различных болезней) предписывалось использовать следующим образом. Оно выписывалось столбиком на дощечке 11 раз, при этом последняя буква каждый раз отсекалась. Получался треугольник. Такое постепенное укорачивание этого слова должно было уничтожать силу злого духа, и больной, надевая амулет, должен был постепенно выздоравливать.

Жду код!

[RustemNur]

Вы клинику при синагоге открываете, что ли? 
А Кроасноглазого бесплатно заюзать решили?

[RazrFalcon]

 
Не, просто такая вот головоломка в голову пришла, вот и интересно стало, кто самый маленький код напишет.
Просто дурачество, пятница же 

[screen0920]

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

#include <iostream>

using namespace std;

int main()
{
    string s;
    s="ABRACADABRA";
    for(int i=11;i>=0;i--)
        for(int j=0;j<=i;j++)
            {
                cout<<s[j-1];
                if (j==i)
                    cout<<"\n";
            }
    return 0;
}

Самое короткое, что я смог придумать. Сильно не пинать

[RazrFalcon]

Думаю такого хватит, заголовочники можно опустить:

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

string s;
s="ABRACADABRA";
for(int i=11;i>=0;i--)
  for(int j=0;j<=i;j++)
  {
    cout<<s[j-1];
    if (j==i)
      cout<<"\n";
  }103 символа
Пользователь решил продолжить мысль [time]Fri Jul  8 16:43:55 2011[/time]:Вариант на Qt:

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

for(int i=10,n=1;i>0;--i,++n)qDebug()<<QString("ABRACADABRA").remove(i,n);

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

$ echo -n 'for(int i=10,n=1;i>0;--i,++n)qDebug()<<QString("ABRACADABRA").remove(i,n);' | wc -m
74

[spectator]

-upd-
c99

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

main(){for(int i=11;i>0;i--){write(1,"ABRACADABRA",i);write(1,"\n",1);}}
72 символа

fasm бинарник 182 байта

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

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

format ELF executable 3
entry start

segment readable executable

start:
    push 11
    jmp write

write:
    pop edx
    mov eax,4           
    xor ebx,ebx
    inc ebx
    mov ecx,a
    int 80h
    dec edx
    push edx
    cmp edx, -1
    jz exit
    mov eax, 4
    xor ebx, ebx
    inc ebx
    mov ecx,nl
    xor edx, edx
    inc edx
    int 80h
    jmp write
   
exit:
    xor eax, eax
    inc eax
xor ebx,ebx           
int 80h

segment readable writeable
a db 'ABRACADABRA'
nl db 10


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

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

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

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