作者CindyLinz (Cindy Wang)
看板Programming
标题Re: [问题] 1-9位数不重复印出来
时间Sat Nov 12 16:01:39 2016
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://webptt.com/cn.aspx?n=bbs/Programming/M.1478937702.A.52B.html