看板 [ Perl ]
討論串[問題] 排列組合
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#4
Re: [問題] 排列組合
推噓1(1推 0噓 6→)留言7則，0人參與, 最新作者abliou (Art of Life)時間17年前 (2008/03/01 11:48), 編輯資訊
0
0
0
內容預覽:
非常感謝您的指教!!這邊我就瞭解了..... 在comma這邊我也有想過您所講的意思....所以我用了以下兩種不同的程式碼測試. ======以下為comma.pl=====. @a=("a");. push @a,$_ , $a++ , print @a,$/,$a,$/ for (0..3);.
(還有207個字)
#3
Re: [問題] 排列組合
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者david220 (累)時間17年前 (2008/02/29 23:54), 編輯資訊
0
0
0
內容預覽:
open是開shift的return value. $a才是file handle. 那一行大約等同. for (split /\s/, <$a>) {. push(@a, $_);. (@_ && a(@_) || print "@a\n");. pop @a;. }. 注意@a是global.
(還有95個字)
#2
Re: [問題] 排列組合
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者abliou (Art of Life)時間17年前 (2008/02/29 19:28), 編輯資訊
0
0
0
內容預覽:
這幾行程式碼真的寫的很棒..用遞迴減少很多程式碼.... 不過還是有一些東西小弟想了很久還是不能參透..... 不知道能不能請高手為小弟指點一下....真的感激不盡!!. 這是我的第一個疑問...就是這邊open的用法...它會對那一個檔打開??. 另外這邊為什麼沒有filehandling?. 接
(還有79個字)
#1
Re: [問題] 排列組合
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者LyinZ (琳子)時間17年前 (2008/02/15 03:51), 編輯資訊
0
0
0
內容預覽:
a(qw(ab102 ac1256 ef698 ed23));. sub a{. my $a;. open $a, shift;. push(@a, $_), (@_ && a(@_) || print "@a\n"), pop @a for( split /\s/, <$a> );. close
首頁
上一頁
1
下一頁
尾頁