hoi, ik zit al vrij lang te turen op een ogenschijnlijk goed op te lossen probleem. Ik heb een 2 dimensionaal array met plaatsen, en wil alle mogelijke combinaties (tussen de rijen) van die plaatsen vinden, dus op deze manier:
Array:
A1 A2 A3
B1 B2 B3
C1 C2 C3
Resultaat:
A1->B1->C1
A1->B2->C1
A1->B3->C1
A1->B1->C2
A1->B2->C2
A1->B3->C2
A1->B1->C3
A1->B2->C3
A1->B3->C3
A2->B1->C1
[....]
A3->B3->C3
Ik had even snel de code getypt voor als ik weet dat ik 3 rijen heb, maar kan even de stap niet maken naar een recursieve functie voor X aantal rows.
Zou super zijn als iemand me hiermee kon helpen
Array:
A1 A2 A3
B1 B2 B3
C1 C2 C3
Resultaat:
A1->B1->C1
A1->B2->C1
A1->B3->C1
A1->B1->C2
A1->B2->C2
A1->B3->C2
A1->B1->C3
A1->B2->C3
A1->B3->C3
A2->B1->C1
[....]
A3->B3->C3
Ik had even snel de code getypt voor als ik weet dat ik 3 rijen heb, maar kan even de stap niet maken naar een recursieve functie voor X aantal rows.
Perl:
1
2
3
4
5
6
7
8
9
10
| for (my $i=0; $i<scalar(@{$hashArray[0]}) ;$i++){ for (my $j=0; $j<scalar(@{$hashArray[1]}) ;$j++){ for (my $k=0; $k<scalar(@{$hashArray[2]}) ;$k++){ print "$hashArray[0]->[$i]->{name} - "; print "$hashArray[1]->[$j]->{name} - "; print "$hashArray[2]->[$k]->{name}"; print "\n"; } } } |
Zou super zijn als iemand me hiermee kon helpen
Just 'cause I'm paranoid doesn't mean they're not after me | The only operating system that does what you want: LFS