Ich hab weiterhin vor die Suchfunktion zu schreiben. Allerdings werde ich damit warten, bis gepostet werden kann, weil das Modell, was ich mir überlegt hab, macht vorher wenig Sinn. Zudem muß ich grad noch ein anderes Projekt innerhalb der nächsten drei Wochen verwendefertig kriegen. Aber jetzt wos losgeht wollte ich das nur nochmal kurz angemerkt haben.
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}