作者CindyLinz (Cindy Wang)
看板Programming
标题Re: [问题] 1-9位数不重复印出来 (Perl)
时间Thu Nov 24 14:55:59 2016
for(1..10**$ARGV[0]-1){
print $_,$/ if( !/(.).*\1/ );
}
※ 引述《mikemagic88 (Mikemagic88)》之铭言：
: 使用者输入1 印1-9
: 使用者输入2 印1-98 (11, 22, 33等重复的不印)
: 使用者输入3 印1-987 (121, 988, 667等有重复的不印)
--
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 112.121.78.5
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Programming/M.1479970562.A.346.html
※ 编辑: CindyLinz (112.121.78.5), 11/24/2016 14:56:39
1F：→ fourdollars: 请问 $_,$/ 的 ,$/ 是何作用？ 36.227.56.142 11/26 16:16
2F：→ CindyLinz: 预设里面存 "\n" 112.121.78.5 11/26 17:52
3F：→ CindyLinz: 是 <FILE> 或 <$file> 用来判断 EOL 的 112.121.78.5 11/26 17:52