[Alegun]

Первомай всё же, можно немного и раслабиться, а посему, такая тема.

Есть ящик пива, есть копчёный лещ,
попер паскаль в стихах, такая вещь...

Давно-давно видел хабрахабровский конкурс стихоплётов на паскале и там было примерно такое:

Код:

If then begin, begin to do 
In case interface in do 
In do, in do... begin to do 
If else case then interface!

...

Код:

to return not break

// 4 раза

do while break return
do while break return
do while break return
for if switch case default

...

Там даже чтецы выступали со своими виршами, выглядело как то так:

Ай интежер - Си чар.

Рипит фо Ай зеро ту тен,
ду бегин,
Иф Си плас ейт лесс 'ю' ту энд
Ай плас твелв ин.

[Зеро... Твенти файф] Вен райт эл эн "эй";
Рипит антил кипресст;
Энд Райт эл эн си - риид кей
Антил си лардж вен 'Эсс'!

...

Это ламерское:

Рипит фо Ай равно нулю, ту тен ду трай бегин.
Иф си плюс восемь меньше Ю, и Ай плюс двадцать три.
Ноль — двадцать пять, зен райтелн эй,
Рипит антил кейпрессед.
Энд, райтелн, Си равно ридкей,
Антил Си больше Эс зи энд.

...

Вот и мой вариант:

const or var?
{эфм: быть или не быть?}

Код:

If then begin, for var begin
And case mod while div to do
Try except true, in do begin
repeat until to unit interface
If else const then while case!

...

После бутылки чего покрепче даже пестня попёрла (на мотив битловской ЖПЛ, в смысле Yellow submarine)

Код:

In then down while is down
string as var begin to set
And shr mod if of xor file
In inline and of interrupt
To of label in to then sum
with do not for div of then
And if end record do uses
In asm array procedure;

// припев

if do while
is, do while break
is do while break
is do while break

...

Может, кто продолжит?


З.Ы. Кстати, вот список возможных слов для рифмы:

Код:

uses
absolute, label, and, library, array, mod, asm, nil, begin, not, case, 
or, const, of, constructor, object, div, packed, goto, procedure, do,
program, downto, record, destructor, repeat, else, set, end, shl, exports,
shr, external, string, file, then, for, to, forward, type, function, unit, if, until,
implementation, in, var, inline, while, interrupt, with, interface, xor, inherited;

Эпитафия:

А потом пришли сишники... и прослезились - подобрать рифму для фигурной скобки сложновато...

[PhoeniX]

Фигня всё это - оно даже не скомпилируется. Как-то на IT Happens было куда лучше:

Код:

if (newGame) resources.free();
s = FILENAME + 3;
setLocation(); load(s);
loadDialog.process();

try { setGamerColor(RED); }
catch(Exception e) { reset(); }
while (notReady) { objects.make();
if (resourceNotFound) break; }

byte result; // сменить на int!
music();
System.out.print("");

[Alegun]

Это же "скобяная" поделка!

Эпитафия действует!

[PhoeniX]

Когда вы так говорите, создаётся впечатление, что вы - типичный школьник в интернете, ненавидящий знаки препинания (ибо "мы не на уроке")
// Без обид

[Alegun]

Та лан те, Феникс,



//без этих самых

[Bargest]

Как-то на IT Happens было куда лучше:

Читал в полной уверенности, что C++. Только на последней строке догнал, что это Java.

[M.A.D.M.A.N.]

На перл какой-то стих (или чето наподобии того) есть, который даже работает.

[NumLock]

http://www.99-bottles-of-beer.net/la...-perl-737.html

[ChinYan]

Сообщение от M.A.D.M.A.N.

На перл какой-то стих (или чето наподобии того) есть, который даже работает.

Не этот? Вики говорит, что какие-то версии Перла его успехно интерпретировали:

Код:

BEFOREHEAD: close door, each window & exit; wait until time.
 open spellbook, study, read (scan, select, tell us);
 write it, print the hex whole each watches,
 reverse its length, write again;
 kill spiders, pop them, chop, split, kill them.
 unlink arms, shift, wait & listen (listening, wait),
 sort the flock (then, warn the "goats" & kill the "sheep");
 kill them, dump qualms, shift moralities,
 values aside, each one;
 die sheep! die to reverse the system
 you accept (reject, respect);
 next step,
 kill next sacrifice, each sacrifice,
 wait, redo ritual until "all the spirits are pleased";
 do it ("as they say").
 do it(*everyone***must***participate***in***forbidden**s*e*x*).
 return last victim; package body;
 exit crypt (time, times & "half a time") & close it,
 select (quickly) & warn your next victim;
 AFTERWORDS: tell nobody,
 wait, wait until time;
 wait until next year, next decade;
 sleep, sleep, die yourself,
 die at last

Оно было написано изначально для Perl 3, и по словам самого Ларри [Уолла], он испытал моральное удовлетворение, когда стихотворение не прошло синтаксический анализатор в Perl 5.