## Question

It can be seen that the number, 125874, and its double, 251748, contain exactly the same digits, but in a different order.

Find the smallest positive integer, x, such that 2x, 3x, 4x, 5x, and 6x, contain the same digits.

import Data.List (sort)

main :: IO ()
main = print $head [n | n <- [1..], all ((== (sort . show) n) . (sort . show) . (n*)) [1..6]]$ ghc -O2 -o permuted-multiples permuted-multiples.hs
real   0m0.467s
user   0m0.464s
sys    0m0.000s