[quote=Rambo,30.06.2007, 17:10]jep so ist es, es sind Millisekunden. habe die abfrage entsprechend
geändert und lese nur die 10 stellen aus die ich benötige.[/quote]
Ich hoffe mal, du liest alles außer den letzten drei Stellen und nicht wirklich die ersten 10 Stellen aus. Sonst schaut in ca. 300 Jahren jemand echt doof, wenn er deinen Code dann noch unverändert verwendet.
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}