Re: [問題] 遞迴呼叫
※ 引述《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
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
