Программа на 621 языке!

[MAPA3bM]

В общем, <a href='http://www.99-bottles-of-beer.net/' target='_blank'>сабж</a>. Одна и та же прога, написанная на 621 языке программирования.

/me в о#уении...

[Sh0Ck_filE]

Вот нативная программа, которую так безбожно усложнили.... по сути - не сложнее ХеллоВорлда

Код: выделить все

   Programming language: C++ (hacking style)   
 

// C++ version of 99 Bottles of beer
// programmer: Tim Robinson timtroyr@ionet.net
// Corrections by Johannes Tevessen

#include <iostream>
using namespace std;

int main()
   {
   int bottles = 99;
   while ( bottles > 0 )
       {
       cout << bottles << " bottle(s) of beer on the wall," << endl;
       cout << bottles << " bottle(s) of beer." << endl;
       cout << "Take one down, pass it around," << endl;
       cout << --bottles << " bottle(s) of beer on the wall." << endl;
       }
   return 0;
   }


[SiMM]

<a href='http://www.nyx.net/~gthompso/quine.htm' target='_blank'>Квайны</a> (думаю, особенно интересны полиглоты). Может их не так много, но и сама задачка куда интереснее банального цикла

[Gluek]

Да уж, программы на некоторых языках просто поражают...

2SiMM да, забавно...

[krYss]

Еще конфы для 1С не хватает =)

[Sh0Ck_filE]

<!--QuoteBegin-krYss+Feb 6 2005, 00:44--><div class='quotetop'>QUOTE(krYss @ Feb 6 2005, 00:44)</div><div class='quotemain'><!--QuoteEBegin-->Еще конфы для 1С не хватает =)
[right][snapback]163192[/snapback][/right]
<!--QuoteEnd--></div><!--QuoteEEnd-->

Код: выделить все

Перем Бутылки = 99;
Перем Название = "";
Пока (Бутылки > 0) Цикл
   Если (Прав(Строка(Бутылки)) = "1")
       Тогда Название = "ка ";
       ИначеЕсли (Прав(Строка(Бутылки)) = "2") или (Прав(Строка(Бутылки)) = "3") или (Прав(Строка(Бутылки)) = "4")
       Тогда Название = "ки ";
       Иначе Название = "ок ";
   КонецЕсли;
   Сообщить(Бутылки + " бутыл" + Название + "пива на столе");
   Сообщить(Бутылки + " бутыл" + Название + "пива...");
   Сообщить("Одна бутылка упала и разбилась...");
   Бутылки = Бутылки - 1;
   Сообщить("И вот всего " + Бутылки + " бутыл" + Название + "пива осталось на столе.");
КонецЦикла;


ногами не пинать. Это так, по запросу трудящихся <!--emo&:)-->[img]style_emoticons/<#EMO_DIR#>/smile.gif[/img]<!--endemo-->

[krYss]

УАААА-Ха-Ха-Ха-Ха!!! Может сабмит им оформишь? Фром Рашшиа виз бух! =))

[Gluek]

<!--QuoteBegin--><div class='quotetop'>QUOTE</div><div class='quotemain'><!--QuoteEBegin-->  Programming language: Ook<!--QuoteEnd--></div><!--QuoteEEnd-->
Вот на нем тема программы писать
И отлаживать ))

[krYss]

Хехе "designed for orang-utans". Представляю офис с обезьянами в свитерах/рубашечках, попивающих кофе и гоняющих время от времени в КС =)