Opened by styx-cc at 2007-07-01 20:45
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=styx-cc,02.07.2007, 15:54]Erstmal danke fuer die Antwort..
Schade, ich dachte es waere einfacher aus:
ein:
zu machen, is halt n bissi doof das erst in nen Hash zu packen und den dann zu sortieren, aber wird schon klappen =)
Danke
MfG[/quote]
Das ist auch nicht so schwer:
Schade, ich dachte es waere einfacher aus:
Code: (dl
)
my @array = qw/1 2 3 4 5 6/;
ein:
Code: (dl
)
@array = ([1,2], [3,4], [5,6]);
zu machen, is halt n bissi doof das erst in nen Hash zu packen und den dann zu sortieren, aber wird schon klappen =)
Danke
MfG[/quote]
Das ist auch nicht so schwer:
Code: (dl
)
1
2
3
4
5
6
my @neuarray=();
for(0..@array/2-1)
{
push @neuarray, [@array[$_*2,$_*2+1]];
}
@array=@neuarray;
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}