Generowanie wszystkich mozliwosci totolotka

[Cezary Grądys]

Witam.
Chciałbym wygenerować wszystkie możliwe zestawy liczb w totolotku.
Pierwsze nieeleganckie podejście to 6 pętli for:

----------------------------------------------------------

#!/usr/bin/perl
use strict;

for (my $a=6;$a<50;$a++) {
for (my $b=5;$b<$a;$b++){
for (my $c=4;$c<$b;$c++){
for (my $d=3;$d<$c;$d++){
for (my $e=2;$e<$d;$e++){
for (my $f=1;$f<$e;$f++){
print "$a\t$b\t$c\t$d\t$e\t$f\n";
}
}
}
}
}
}
print "\n";

-----------------------------------------------------------

Mogło by tak zostać, ale totolotek to tylko przykład tu może się
zmienić liczba tych pętli. Poszukuję bardziej ogólnego sposobu,
tak, żeby łatwo wygenerować zestawy 5,6 czy 10 liczb.

[Cezary Grądys]

W dniu 20.02.2017 o 10:49, Cezary Grądys pisze:

Już sobie poszukałem, jak kogoś to interesuje multum przykładów w
różnych językach:
https://rosettacode.org/wiki/Combinations