Thread neuer Perl Tread (7 answers)
Opened by lichtkind at 2005-01-10 23:24

Ishka
 2005-01-11 00:01
#88497 #88497
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Aber es klingt nicht zwingend unlogisch, wenn die Summe der Spezialisierungen größer ist, als der nicht spezialisierte Bereich.

Aber auch mir ist damals keine bessere Struktur eingefallen. Aber wie strat schon sagte: Wenn du nen sinnvollen Vorschlag hast, her damit.
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 neuer Perl Tread