Re: [問題] 遞迴呼叫

看板Perl作者 (零式札克)時間16年前 (2008/12/07 19:57), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串3/3 (看更多)
※ 引述《giacch (小a)》之銘言: : ※ 引述《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
文章代碼(AID): #19Exf0hy (Perl)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 3 之 3 篇):
0
2
文章代碼(AID): #19Exf0hy (Perl)