Hat die Aufgabe denn irgendwer verstanden? Kann wer auch immer es verstanden hat, mir vielleicht helfen es zu formulieren? Oder hat jemand ne Idee, an welcher Stelle ich gründlicher erklären sollte?
Also die Datei ausgeben, ohne sie zu lesen ist einfach, wenn man den Inhalt der Datei kennt. Die Schwierigkeit bei der Aufgabe liegt nur darin, daß es die gleiche Datei sein soll, in der auch das Programm steht. Aber schließlich soll das ja auch ein Rätsel 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}