Opened by Gast at 2004-08-19 13:07
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
wenn du wirklich durchläufst, dh. nicht rumspringen mußt, würde ich sie wirklich zweimal lesen und nicht im Speicher behalten, denn
a) wohl viel weniger Aufwand als alle Spezialfälle zu berücksichtigen
b) Es werden keine Daten rausgeswapt
@Konstannte anlegen - das macht der perl-optimierer schon automatisch - alles was vorab berechnet werden kann, wird berechnet.
a) wohl viel weniger Aufwand als alle Spezialfälle zu berücksichtigen
b) Es werden keine Daten rausgeswapt
@Konstannte anlegen - das macht der perl-optimierer schon automatisch - alles was vorab berechnet werden kann, wird berechnet.
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}