Thread Perl Wiki (13 answers)
Opened by BrownWolf at 2003-09-08 04:48

Ishka
 2003-09-08 04:56
#17897 #17897
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Mich hat das am Anfang auch ewig irritiert. Versuch einfach dort ein bissal rumzuschauen, ein paar Sachen zu machen, nach einer Gewöhnungsphase kommt man dort gut zurecht.

Ich kann mir allerdings keinen Erklärungstext vorstellen, der mir geholfen hätte mich dort zurechtzufinden, macht die reine Erfahrung...
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}

View full thread Perl Wiki