Opened by Crian at 2004-08-20 15:46
User since
2003-08-04
771 Artikel
HausmeisterIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
771 Artikel
HausmeisterIn
[quote=DS,22.08.2004, 13:25]
Natürlich schummeln wir... :p aber ich könnte noch viel mehr schummeln... wenn sich jemand wirklich nur für die beiden Primzahlen interessiert dann könnte ich die auch mit 57 Zeichen liefern... aber das ist dann schon ziemlich böse... :cool:[/quote]
welche ausgabe hast du bei 57 Zeichen?
[E|B,22.08.2004, 13:18]Schummelt ihr?? Das ist ja nicht mehr menschlich. :D
Natürlich schummeln wir... :p aber ich könnte noch viel mehr schummeln... wenn sich jemand wirklich nur für die beiden Primzahlen interessiert dann könnte ich die auch mit 57 Zeichen liefern... aber das ist dann schon ziemlich böse... :cool:[/quote]
welche ausgabe hast du bei 57 Zeichen?
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}
"":"\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}