看板
[ Perl ]
討論串[問題] 遞迴呼叫
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁
內容預覽:
看到來湊一下熱鬧. 以前也寫過這個問題 >w<. #!/usr/bin/perl -w. @elements = ( 'a' .. 'e' ); # 隨便給. P( $#elements + 1, @elements ); # 開始排. sub P. {. if( $_[ 0 ] ). {. for
(還有37個字)
內容預覽:
想試試這個題目, 但我沒寫過, 所以就直接寫了.... #!/usr/bin/perl. $String = "Perl";. &Permutation(0, split('', $String));. ### Permutation Flag List ###. sub Permutation {
(還有266個字)
內容預覽:
小的在寫一個 印出所有字串中字元排列組合 的程式. 在遞迴呼叫的時候出了一點問題. 不知道有無大大可以幫我看一下,. 再印出 mylist 的地方只有第一次印的出來, 不知道為什麼?. 是我參數傳遞有錯嗎? 謝謝. main 呼叫:. &perm(0,$size-1,\@array);. sub p
(還有340個字)
首頁
上一頁
1
下一頁
尾頁