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
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} |