Goile Sache, automatische Übersetzung, biets in China zum Download an.
wirklich Chinesisch, oder unleserliche Zeichen?
Funktioniert die Datei bei dir?
Welche Betriebssysteme, Standardsprache, usw. verwendest du und welche dein Freund?
Fragen über Fragen und ich hab meine Kristallkugel nicht da..
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}