Opened by Rambo at 2007-06-28 12:35
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
[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.
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}
"":"\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}