4 lines
150 B
Haskell
4 lines
150 B
Haskell
isSemiprime :: Int -> Bool
|
|
isSemiprime n = case (primeFactors n) of
|
|
[f1, f2] -> f1 * f2 == n
|
|
otherwise -> False
|