Opened by Ishka at 2004-08-05 03:03
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
das muß nicht gelten - die Werte in f sind auch nicht eindeutig.
Die von dir angesprochene Lösung setzt vorraus, daß ich ein Programm hab, was in einer Blackbox läuft und Daten raussendet - unter der vorraussetzung wäre es einfach. Ich will aber ein Programm haben, bei dem man alles genau auseinandernehmen kann und ruhig wissen kann, wie es funktioniert und es trotzdem nicht rausbekommt.
sprich - ich kann nicht die richtigen Werte abspeichern.
Die von dir angesprochene Lösung setzt vorraus, daß ich ein Programm hab, was in einer Blackbox läuft und Daten raussendet - unter der vorraussetzung wäre es einfach. Ich will aber ein Programm haben, bei dem man alles genau auseinandernehmen kann und ruhig wissen kann, wie es funktioniert und es trotzdem nicht rausbekommt.
sprich - ich kann nicht die richtigen Werte abspeichern.
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}