Smith numbers: Difference between revisions
m
→{{header|Haskell}}
Line 294:
isSmith :: Int -> Bool
isSmith n = pfs /= [n] &&
where
root = floor . sqrt . fromIntegral
pfs = primeFactors n
| |||