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

[CindyLinz (Cindy Wang)]

Haskell 的例子~

import Control.Monad
import Data.Functor
import Data.List

main = do
  l <- read <$> getLine
  let
    checkLen n = length n <= l
    checkNoDup n = length (group (sort n)) == length n
    nums = takeWhile checkLen $ filter checkNoDup $ map show [1..]
  forM_ nums $ \n -> putStrLn n

其中 checkNoDup 是利用 group 把相同的數字分組,
 然後判斷組數和數字個數是不是剛好一樣

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.121.78.5
※ 文章網址: https://www.ptt.cc/bbs/Programming/M.1478937702.A.52B.html