andigitalMultiple :: Int -> Bool
isPandigitalMultiple x = length allDigits == 9 && isPandigital allDigits where
  allDigits = makePandigitalMultiple x

m
isPandigitalMultiple :: Int -> Bool
isPandigitalMultiple x = length allDigits == 9 && isPandigital allDigits where
  allDigits = makePandigitalMultiple x
isPandigitalMultiple x = length allDigits == 9 && isPandigital allDigits where
  allDigits = makePandigitalMultiple x