Thread Rätsel der Woche 2007/6: Viel Spaß beim halbdutzendsten RDW in 07 (19 answers)
Opened by Ishka at 2007-03-06 18:52

Ishka
 2007-03-07 12:49
#74831 #74831
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Das soll keine zusätzliche Herausforderung sein, aber vielleicht hat ja jemand ne schöne Idee, was man damit machen kann, anstatt es direkt auszugeben. Und damit hätte man dann auch was schönes zum Anschauen, wenn man sich die Lösungen durchschaut. Aber damit das kein Zwang ist, hab ich das in ,,wenn möglich'' gepackt.
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 Rätsel der Woche 2007/6: Viel Spaß beim halbdutzendsten RDW in 07