ePandigitalMultiple :: Int -> [Int]
makePandigitalMultiple x = concatMap digits products where
  xNumDigits = length (digits x)
  products = map (* x) [1..(9 `div` xNumDigits)]

makePandigitalMultiple :: Int -> [Int]
makePandigitalMultiple x = concatMap digits products where
  xNumDigits = length (digits x)
  products = map (* x) [1..(9 `div` xNumDigits)]
makePandigitalMultiple x = concatMap digits products where
  xNumDigits = length (digits x)
  products = map (* x) [1..(9 `div` xNumDigits)]