Re: [問題] 排列組合

[LyinZ (琳子)]

※ 引述《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