Thread Kleines mathe-skript
(31 answers)
Opened by SirLant at 2003-09-02 16:39
Doch...
Ich sollte mir wieder angewöhnen, gründlich und von oben nach unten zu lesen. Nach pqs 'es war falsch, hatte den algorithmus nicht mehr so im kopf.' hatte ich im Kopf behalten, daß sie irgendwas falsches gesagt hat und das weiter oben von ihr ignoriert...\n\n <!--EDIT|Ishka|1062544133--> 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} |