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

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

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

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

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

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

kildor (openid.yandex.ru/users/kildor)
27 марта 2008, 07: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, 08: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, 11:12

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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