Евгений Степанищев

Я — эксперт в области разработки веб-приложений и безопасности в интернете. Каждый месяц мой блог посещают около 90 тысяч человек. Работаю техническим директором в «Системах документооборота», занимаюсь электронным правительством.

99 бутылок пива на стене

У меня в разделе «99 бутылок пива обновление: считалочка на языке программирования «РАЯ» (русский алгоримический язык) и на MS HTML (через microsoft data binding).
26 марта 2008 17:27

extremus.livejournal.com (extremus.livejournal.com)
26 марта 2008, 19:40

Небольшая опечатка: "записывать через проблемы", а не "через пробелы".

bolk (bolknote.ru)
26 марта 2008, 19:47, ответ предназначен extremus.livejournal.com:

Спасибо, поправил.

kildor (openid.yandex.ru/users/kildor)
27 марта 2008, 09:40

Хм..

Макроязык фара. Просто запустить макрос в командной строке (требует плагин FarCMD, и не скажу, будет ли работать в 1.70 релизе)

macro:post ShiftF4 $text "99 bottles of beer in the wall.txt" CtrlEnter
$if (Dialog)
CtrlEnter CtrlA CtrlD
$end
CtrlHome
$MMode 1
%b = 99;
%s = "s";

$while(%b>0)
  $text %b
  $if (%b==1)
$text " bottles of beer on the wall."
  $else
$text " bottles of beer on the wall."
    $end
  Enter Enter
  %b=%b-1;
  sleep(10)
$end

msgbox("No more bottles of beer on the wall.",
"No more bottles of beer...\nGo to the store and buy some more...", 1)

kildor (openid.yandex.ru/users/kildor)
27 марта 2008, 10:03

И конечно же я всё перепутал.. :-(
Вот более правильный вариант, поющий все строчки..
macro:post ShiftF4 $text "99 bottles of beer in the wall.txt" CtrlEnter
$if (Dialog) CtrlEnter CtrlA CtrlD
$end
CtrlHome
$MMode 1
%b = 99;
%s = "s";

$while(%b>0)
  $if (%b==1)
    %s="";
    $end
  %string = %b+" bottle"+%s+" of beer on the wall, "+%b+" bottle"+%s+ " of beer";
  $text %string
  Enter
  $text "Take one and pass it around"
  Enter
  %b=%b-1;
  $if (%b!=0)
    %string= %b+" bottle"+%s+" of beer on the wall";
    $text %string
    Enter Enter
    $end
  sleep(10)
  $end

msgbox("No more bottles of beer on the wall.",
"No more bottles of beer...\nGo to the store and buy some more...", 1)

bolk (bolknote.ru)
27 марта 2008, 13:12

Спасибо, но я выкладываю только то, чт онаписал сам :)

bolk (bolknote.ru)
27 марта 2008, 13:13

Я даже не подозревал, что у «Фара» есть такой богатый макроязык.

kildor (openid.yandex.ru/users/kildor)
27 марта 2008, 15:16, ответ предназначен bolk (bolknote.ru):

Ну, значит не судьба ;)
Надо было сказать просто про возможность это сделать.

И да, он там достаточно богат. Некоторые вещи можно сделать на макросах, не вынося это в плагины.

bolk (bolknote.ru)
27 марта 2008, 16:03

Офигеть, надо глянуть :)

www.codeblogz.ru (www.codeblogz.ru)
30 мая 2008, 21:57

Вы в курсе, что есть такой сайт <a href="http://99-bottles-of-beer.net/">99-bottles-of-beer</a>, в котором приводится реализация на 1200 языках?

bolk (bolknote.ru)
31 мая 2008, 22:27, ответ предназначен www.codeblogz.ru:

Даже когда я только-только это начал таких сайтов было множество. Те языки, на которых я песню не обнаружил, я и взял за основу. Подозреваю, что на том сайте есть и несколько моих текстов, я никогда не отслеживал их заимствование. Другое дело, что сам я ни у кого их не беру.

Ваше имя или адрес блога (можно OpenID):

Текст вашего комментария, не HTML:

Кому бы вы хотели ответить (или кликните на его аватару)

Подсказка по написанию комментария

В комментариях можно применять следующую специальную разметку:

  • слово, обрамлённое в «звёздочки» выделяется *жирным*
  • ссылка становится ссылкой: http://bolknote.ru
  • ссылка в скобках также становится ссылкой, закрывающая скобка не захватывается: (http://bolknote.ru)
  • каждую строку цитаты следует начинать со знака «больше»:
    > это цитата
    > из двух строк

  • можно вставить картинку, залитую на один из сервисов: «Яндекс.Фотки», «Фликр» или «Пикплз». Для этого нужно вставить на страницу полный адрес вашей картинки на сервисе, он превратится в картинку:

    http://fotki.yandex.ru/users/bolknote/view/274311?page=3