這幾行程式碼真的寫的很棒..用遞迴減少很多程式碼...
不過還是有一些東西小弟想了很久還是不能參透....
不知道能不能請高手為小弟指點一下....真的感激不盡!!
※ 引述《LyinZ (琳子)》之銘言：
: ※ 引述《markpci (markpci)》之銘言：
: : 請教一下各位排列組合的問題~
: : 我有一個檔案~
: : 檔案內容為:
: : ab102 (用tab隔開) 11,01,65,99,68,78
: : ac1256 01,23,41,65,74,63,26
: : ef698 02,13,56,07,09
: : ed23 32,05,06,23
: : 我想寫出他們所有數字的組合的可能情形
: : 6*7*5*4=840
: : 應該會有840種組合
: : 請問該怎麼寫呢~請大家幫忙解決一下~謝謝....
: a(qw(ab102 ac1256 ef698 ed23));
: sub a{
: my $a;
: open $a, shift;
這是我的第一個疑問...就是這邊open的用法...它會對那一個檔打開??
另外這邊為什麼沒有filehandling?
: push(@a, $_), (@_ && a(@_) || print "@a\n"), pop @a for( split /\s/, <$a> );
接這就是這一行....我很不了解這一行的程式運作方式...
而且當中用了很多逗號...我很想了解到底逗號的使用時機跟限制到底是如何?
: close $a;
: }
有試著去實做和查資料..但是都途勞無功...所以在此請教高手們...
感謝高手們的指教..因為小弟正在當兵..可能沒有辦法為教導的高手們提出即時的感謝
但小弟有放假一定會來道謝....
先在這邊謝過各位高手了...
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.123.199.42