Thread Codeverschlüsselungstechnik
(86 answers)
Opened by [E|B] at 2004-02-06 19:37
Diese Diskussion ist noch längst nicht off-topic - da hab ich schon ganz andere Sachen erlebt.
Perl lebt im übrigen unter einer Doppellizenz. Ich bin im übrigen eher der Meinung, du hast den Geist der offenen Software nicht begriffen. Offen heißt nicht 'jeder klaut sich seinen Code zusammen', sondern offen heißt 'jeder darf schauen, wie das funktioniert und ggf. nach verbesserungsmöglichkeiten suchen, wenn er Lust dazu hat'. 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} |