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