Project Euler 解答

Project Euler Problem 052

Project Euler Problem 052

import Data.List check :: (Show a, Show a1) => a -> a1 -> Bool check x y = ( nub $ sort $ show x)==(nub $ sort $ show y) checker :: (Enum a, Num a, Show a) => a -> Bool checker n = all (check n) $ map (*n) [2..6] ans1 :: Integer ans1 = minimum [x | x<-[100000..199999],checker x] --142857 main :: IO () main = print ans1

since 2013