フェルマーテスト
フェルマーの小定理
を用いる
こんな感じか
code:hs
isPrime :: Integer -> Bool
isPrime n
| n == 2 = True
| otherwise = fermat 2 n
where
fermat a p = a ^ p
mod
p == a
素数判定 - あどけない話