Войти в систему

Home
    - Создать дневник
    - Написать в дневник
       - Подробный режим

LJ.Rossia.org
    - Новости сайта
    - Общие настройки
    - Sitemap
    - Оплата
    - ljr-fif

Редактировать...
    - Настройки
    - Список друзей
    - Дневник
    - Картинки
    - Пароль
    - Вид дневника

Сообщества

Настроить S2

Помощь
    - Забыли пароль?
    - FAQ
    - Тех. поддержка



Пишет superhuman ([info]superhuman)
@ 2011-04-04 22:00:00


Previous Entry  Add to memories!  Tell a Friend!  Next Entry
Налабал интерпретаторы "эзотерических" языков HQ9+, H9+ и KL. Заодно стишок "99 бутылок пива".

Классическая задача программирования ("пивная песня"):
* http://www.99-bottles-of-beer.net/lyrics.html
* http://esolangs.org/wiki/99_bottles_of_beer

* http://esolangs.org/wiki/HQ9
* http://ru.wikipedia.org/wiki/HQ9%2B
* http://ivanguide.ru/kl/

Следующим или Brainfuck, или машина Тьюринга, пожалуй.


(Добавить комментарий)


[info]dmitry_danner
2011-04-05 02:30 (ссылка)
Ага, понравилось? ;)

(Ответить) (Ветвь дискуссии)


[info]phantom
2011-04-05 22:39 (ссылка)
Это так, на один зубок. :)

(Ответить) (Уровень выше) (Ветвь дискуссии)


[info]dmitry_danner
2011-04-06 00:30 (ссылка)
Можно свое что-нибудь придумать... %)

(Ответить) (Уровень выше) (Ветвь дискуссии)


[info]phantom
2011-04-06 00:37 (ссылка)
Ага, что-нибудь эдакое. Не шуточное. Но эзотерическое.

(Ответить) (Уровень выше)


[info]ketmar
2011-04-08 12:47 (ссылка)
# Jamfile for 99 Bottles of beer on the wall.
# David Brandon (brandon@aspentech.com)

ALWAYS beer ;


rule Drink {
local tenbeers beers b ;

for tenbeers in 9 8 7 6 5 4 3 2 1 "" {
for beers in 9 8 7 6 5 4 3 2 1 0 {
b = $(tenbeers)$(beers) ;
if $(b) = 0 {
Echo "Take one down and pass it around, no more bottles of $(<) on the wall." ;
Echo ;
Echo "No more bottles of $(<) on the wall, no more bottles of $(<)." ;
Exit "Go to the store and buy some more, 99 bottles of $(<) on the wall." ;
}
if $(b) != 99 {
Echo "Take one down and pass it around, $(b) bottles of $(<) on the wall." ;
Echo ;
}
if $(b) = 1 {
Echo "$(b) bottle of $(<) on the wall, $(b) bottle of $(<)." ;
} else {
Echo "$(b) bottles of $(<) on the wall, $(b) bottles of $(<)." ;
}
}
}
}


Drink beer ;


няняня.

(Ответить)


[info]ketmar
2011-04-08 12:47 (ссылка)
unlambda сделай.

(Ответить) (Ветвь дискуссии)


[info]phantom
2011-04-08 22:21 (ссылка)
Да, вот это обязательно сделаю. Пока теорию изучаю, комбинаторную логику.

(Ответить) (Уровень выше) (Ветвь дискуссии)


[info]ketmar
2011-04-09 00:11 (ссылка)
я вот серьёзно думаю о том, чтобы это встроить в асм как макроязык. ну, чисто поржать.

(Ответить) (Уровень выше)