Generowanie wszystkich mozliwosci totolotka

Article View: pl.comp.lang.perl

Article #52581

#52581

From: Cezary Grądys
Date: Mon, 20 Feb 2017 09:49

29 lines
1713 bytes

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.

Technical Details

Message-ID: <58aabbc5$0$5153$65785112@news.neostrada.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!goblin1!goblin.stu.neva.ru!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!unt-spo-b-01.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail
Newsgroups: pl.comp.lang.perl
X-Mozilla-News-Host: news://news.neostrada.pl:119
From: Cezary Grądys <czarekgr@wa.onet.pl>
Subject: Generowanie wszystkich mozliwosci totolotka
Date: Mon, 20 Feb 2017 10:49:57 +0100
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Thunderbird/45.5.1
MIME-Version: 1.0
Lines: 30
Message-ID: <58aabbc5$0$5153$65785112@news.neostrada.pl>
Organization: Telekomunikacja Polska
NNTP-Posting-Host: 195.117.101.50
X-Trace: 1487584197 unt-rea-a-01.news.neostrada.pl 5153 195.117.101.50:51118
X-Complaints-To: abuse@news.neostrada.pl
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit