【Haskell】素数判定

isPrime.hs

-- 試し割り
isPrime :: Int -> Bool
isPrime 2 = True
isPrime n
    | n < 2            = False
    | (n `mod` 2) == 0 = False
    | otherwise        = testDiv 3 n
    where testDiv :: Int -> Int -> Bool
          testDiv i n
              | i * i > n      = True
              | n `mod` i == 0 = False
              | otherwise      = testDiv (i + 2) n

-- エラトステネスのふるい
isPrime' :: Int -> Bool
isPrime' n
    | n < 2     = False
    | otherwise = n == last (sieveOfE [2..n])
    -- Sieve of Eratosthenes
    where sieveOfE :: [Int] -> [Int]
          sieveOfE []  = []
          sieveOfE [a] = [a]
          sieveOfE all@(x:xs)
              | x < 2           = error "`head list` must be `> 1`"
              | last xs < x ^ 2 = all
              | otherwise       = x : sieveOfE [n | n <- all, n `mod` x /= 0]

http://jsrun.it/honda0510/moug-62306　にて投稿した　[Userformの見栄えを向上する為にグラデーションをかける
クラス ] は、シェアーして頂ければ、ありがたいです。　　[email protected]