[quote=jan,04.10.2003, 01:15]ich bin neben "ich will ein bier" für eine weitere alternative. "fragen, die die welt nicht braucht". wer ist so lieb und tut mir den gefallen und eröffnet endlich die noch fehlenden umfragen "ist das glas für dich immer halb leer oder halb voll?", "faltest du das klo-papier oder knüllst du es eher" und den alltimehit "guckst du beim überqueren einer strasse erst nach links und dann nach rechts oder erst nach rechts und dann nach links".
danke.[/quote]
kein Problem :p
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}