Opened by Ishka at 2007-03-06 18:52
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
Ich zitiere mal die Regeln:
* Die Verwendung von Modulen ist generell erlaubt, wird jedoch
das ganze Problem von einem Modul erschlagen, so macht das
die Lösung langweilig -- und das ist nicht unbedingt der
Sinn dieser Rätsel.
Ich würde sagen, ja, sofern du nicht auf eines zugreifst, was den ganzen Quelltext zurückgeben kann.
Naja, erlaubt ist natürlich prinzipiell alles, aber die Lösung soll halt interessant sein :)
* Die Verwendung von Modulen ist generell erlaubt, wird jedoch
das ganze Problem von einem Modul erschlagen, so macht das
die Lösung langweilig -- und das ist nicht unbedingt der
Sinn dieser Rätsel.
Ich würde sagen, ja, sofern du nicht auf eines zugreifst, was den ganzen Quelltext zurückgeben kann.
Naja, erlaubt ist natürlich prinzipiell alles, aber die Lösung soll halt interessant sein :)
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}