Re: [問題] 遞迴呼叫

看板Perl作者 (小a)時間16年前 (2008/12/07 14:58), 編輯推噓0(001)
留言1則, 1人參與, 最新討論串2/3 (看更多)
※ 引述《typeotoco (打字男)》之銘言: : 小的在寫一個 印出所有字串中字元排列組合 的程式 : (略) 想試試這個題目, 但我沒寫過, 所以就直接寫了... #!/usr/bin/perl $String = "Perl"; &Permutation(0, split('', $String)); ### Permutation Flag List ### sub Permutation { my @TMP = @_; my $Flag = shift(@TMP); my @Array = splice(@TMP, 0); for(my $i = $Flag; not $i > $#Array; $i ++) { @TMP = @Array; ($TMP[$Flag], $TMP[$i]) = ($TMP[$i], $TMP[$Flag]); if($i != $Flag or $i == 0) { # print join(' ', @TMP) . "\n"; print join(' ', @TMP) . ", \$Flag = $Flag, \$i = $i\n"; } &Permutation($Flag + 1, @TMP); } } -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 118.232.172.163

12/07 15:02, , 1F
也許有多餘的部分, 還請大大指點... (頭暈 @.@rz
12/07 15:02, 1F
文章代碼(AID): #19EtGSa8 (Perl)
討論串 (同標題文章)
文章代碼(AID): #19EtGSa8 (Perl)