作者reizarc (零式札克)
看板Perl
标题Re: [问题] 递回呼叫
时间Sun Dec 7 19:57:49 2008
※ 引述《giacch (小ａ)》之铭言：
: ※ 引述《typeotoco (打字男)》之铭言：
: : 小的在写一个 印出所有字串中字元排列组合 的程式
: : (略)
: 想试试这个题目, 但我没写过, 所以就直接写了...
看到来凑一下热闹
以前也写过这个问题 >w<
#!/usr/bin/perl -w
@elements = ( 'a' .. 'e' ); # 随便给
P( $
#elements + 1, @elements ); # 开始排
sub P
{
if( $_[ 0 ] )
{
foreach( 1 .. $_[ 0 ] )
{
P( $_[ 0 ] - 1,
@_[ ( 1 .. $_ - 1 ), ( $_ + 1 .. $#_ ), $_ ] );
}
}
else
{
print @_[ 1 .. $#_ ], $/;
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.124.2.128