Re: [問題] 排列組合
※ 引述《markpci (markpci)》之銘言：
: 請教一下各位排列組合的問題~
: 我有一個檔案~
: 檔案內容為:
: ab102 (用tab隔開) 11,01,65,99,68,78
: ac1256 01,23,41,65,74,63,26
: ef698 02,13,56,07,09
: ed23 32,05,06,23
: 我想寫出他們所有數字的組合的可能情形
: 6*7*5*4=840
: 應該會有840種組合
: 請問該怎麼寫呢~請大家幫忙解決一下~謝謝....
a(qw(ab102 ac1256 ef698 ed23));
sub a{
my $a;
open $a, shift;
push(@a, $_), (@_ && a(@_) || print "@a\n"), pop @a for( split /\s/, <$a> );
close $a;
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.30.55
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
