4 lines
210 B
Haskell
4 lines
210 B
Haskell
isSemiprime :: Int -> Bool
|
|
isSemiprime n = (length factors) == 2 && (product factors) == n ||
|
|
(length factors) == 1 && (head factors) ^ 2 == n
|
|
where factors = primeFactors n
|