Ich muß sagen: Ich weiß nicht, ob sie es sind. Um genau zu sein, weiß ich, daß ich es nicht weiß. Denn es gibt einen Beweis, daß falls sie es sind, man das nicht zeigen kann (Gödelscher Unvollständigkeitssatz). Und damit ist auch die Aussage 'zu jedem problem gibts eine lösung' unter einem gewissen Betrachtungswinkel falsch ;)
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}