Re: [問題] 1-9位數不重複印出來 (Perl)

[CindyLinz (Cindy Wang)]

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://www.ptt.cc/bbs/Programming/M.1479970562.A.346.html
※ 編輯: CindyLinz (112.121.78.5), 11/24/2016 14:56:39
→ fourdollars: 請問 $_,$/ 的 ,$/ 是何作用？
→ CindyLinz: 預設裡面存 "\n"
→ CindyLinz: 是 <FILE> 或 <$file> 用來判斷 EOL 的