LINUX.ORG.RU

program Елочка


0

0

Офтоп и боян, конечно.. Но в преддверии, как говорится ;)

http://www.wasm.ru/forum/viewtopic.php?pid=358103#p358103

program Елочка;
Begin

Лес.елочка.create();
While not Лес.елочка.dead do
Begin

лес.елочка.age := лес.елочка.age 1;
if зима or лето then
begin

лес.елочка.plain := true;
лес.елочка.color := cl_green;
end;

метель.filename:=«'D:„Music"NSYNC - Bye Bye Bye.mp3“';
метель.open;
sleep(1000);
метель.play;
мороз.укутать(лес.елочка);
GetMessage(H, лес.елочка.handle, 0, 0);
if h.uint = wm_замерзла then
dead := true;
end;

лес.заяц.create;
лес.заяц.трусливый := true;
лес.заяц.color := cl_gray;
x := лес.елочка.left;
y := лес.елочка.top;
While x
Begin

лес.заяц.left := x;
inc(x);
лес.заяц.top := y round( abs(sin(x*pi/180)*10) );
end;

Winexec(»'wolf3d.exe /evil"',0);
лес.елочка.cuttoclipboard;
Праздник.pastefromclipboard;
Праздник.елочка.skin.loadfromfile(«'нарядная.jpg»');
For i:=1 to SizeOf(Праздник.елочка.радость) do
Праздник.Дети.Настроение Праздник.елочка.радость;
End.

★★★★

А теперь всё то же но на LISPе. С как минимум такой же выразительностью а лучше больше.

bibi
()
Ответ на: комментарий от bibi
The Eternal Flame

I was taught assembler in my second year of school.
It’s kinda like construction work — with a toothpick for a tool.
So when I made my senior year, I threw my code away,
And learned the way to program that I still prefer today.

Now, some folks on the Internet put their faith in C++.
They swear that it’s so powerful, it’s what God used for us.
And maybe it lets mortals dredge their objects from the C.
But I think that explains why only God can make a tree.

For God wrote in Lisp code
When he filled the leaves with green.
The fractal flowers and recursive roots:
The most lovely hack I’ve seen.
And when I ponder snowflakes, never finding two the same,
I know God likes a language with its own four-letter name.

Now, I’ve used a SUN under Unix, so I’ve seen what C can hold.
I’ve surfed for Perls, found what Fortran’s for,
Got that Java stuff down cold.
Though the chance that I’d write COBOL code
is a SNOBOL’s chance in Hell.
And I basically hate hieroglyphs, so I won’t use APL.

Now, God must know all these languages, and a few I haven’t named.
But the Lord made sure, when each sparrow falls,
that its flesh will be reclaimed.
And the Lord could not count grains of sand with a 32-bit word.
Who knows where we would go to if Lisp weren’t what he preferred?

And God wrote in Lisp code
Every creature great and small.
Don’t search the disk drive for man.c,
When the listing’s on the wall.
And when I watch the lightning
Burn unbelievers to a crisp,
I know God had six days to work,
So he wrote it all in Lisp.

Yes, God had a deadline.
So he wrote it all in Lisp.
anonymous
()

> метель.filename:=«'D:„Music"NSYNC - Bye Bye Bye.mp3“';

Winexec(»'wolf3d.exe /evil"',0);

Ну ты понел

static_lab ★★★★★
()

Давай на сях под альсу :)

Eddy_Em ☆☆☆☆☆
()

>GetMessage(H, лес.елочка.handle, 0, 0);
Хм? После каждого события елочка становится старше на 1 год? Даже если придет WM_зайчик?

С другой стороны, перемещение зайца начнется только после того, как елочка умрет, что не соответствует оригиналу.

Winexec(«'wolf3d.exe /evil»',0);

Эта функция устарела со времен Win95. Нужно использовать CreateProcess.


В общем, отлаживать надо. :)

proud_anon ★★★★★
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.