Opened by Ishka at 2007-02-05 14:03
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
ps:
Es wäre vielleicht nicht schlecht, wenn jeder Teilnehmer 2-30 Wörter dazuschreibt, die ich dann im Test der Lösungen am Schluß verwende. Sonst neige ich dazu nur die Wörter zu verwenden, an die ich denke und meine Lösung kommt dann beim Test überproportional gut weg ;)
Es wäre vielleicht nicht schlecht, wenn jeder Teilnehmer 2-30 Wörter dazuschreibt, die ich dann im Test der Lösungen am Schluß verwende. Sonst neige ich dazu nur die Wörter zu verwenden, an die ich denke und meine Lösung kommt dann beim Test überproportional gut weg ;)
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}