这几行程式码真的写的很棒..用递回减少很多程式码... 不过还是有一些东西小弟想了很久还是不能参透.... 不知道能不能请高手为小弟指点一下....真的感激不尽!! ※ 引述《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