作者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