Font
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]5681[/thread]

Kleines mathe-skript (page 4)

Readers: 2


<< |< 1 2 3 4 >| >> 32 entries, 4 pages
SirLant
 2003-09-03 03:01
#83001 #83001
User since
2003-08-04
516 articles
BenutzerIn
[default_avatar]
Ok danke :)
ist deine letzte variante nicht die gleiche wie von pq?
--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!
Ishka
 2003-09-03 03:08
#83002 #83002
User since
2003-08-04
771 articles
HausmeisterIn
[Homepage] [default_avatar]
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}
<< |< 1 2 3 4 >| >> 32 entries, 4 pages



View all threads created 2003-09-02 16:39.