#!/usr/bin/perl
# Жить и плодить себе подобных!
$children = 0;
while (!dead()){
fork;
print "Поздравляем! У вас " . sex() . "\n";
$children++;
}
die("Вы скончались
\n" . "За свою жизнь Вы наплодили $children себе подобных.\n");
sub dead{
(rand(100) == rand(100)) ? return 1 : return 0;
}
sub sex{
$who = int(rand(2));
($who == 1) ? return "мальчик" : return "девочка";
}
Webmoney Z163628999150, R61715184597
|
21 мая 2009
Отлично написано. Позитива конечно не хватает, но читал на одном дыхании
27 мая 2009
как говориться, Без пользы жить — безвременная смерть.