作者LyinZ (琳子)
看板Perl
標題Re: [問題] 排列組合
時間Fri Feb 15 03:51:11 2008
※ 引述《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