Opened by Crian at 2004-08-06 12:22
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=Crian,06.08.2004, 15:53][...]
@Ishka: Wer da Nicht-Mengen reintut, muss mit Ergebnismüll leben können. Es steht Dir aber natürlich frei eine Variante zu schreiben, die das berücksichtigt. Müsste man am Ende ja nur Unique machen, und das fände ich öde.[/quote]
eine Variante um permutationen zu machen hab ich schon, notfalls geb ich die ab. Aber ich versuch das mit gleichen Zeichen zu berücksichtigen, ohne unique danach zu machen.
@Ishka: Wer da Nicht-Mengen reintut, muss mit Ergebnismüll leben können. Es steht Dir aber natürlich frei eine Variante zu schreiben, die das berücksichtigt. Müsste man am Ende ja nur Unique machen, und das fände ich öde.[/quote]
eine Variante um permutationen zu machen hab ich schon, notfalls geb ich die ab. Aber ich versuch das mit gleichen Zeichen zu berücksichtigen, ohne unique danach zu machen.
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}