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