いろんな言語で宿題スレ
■ このスレッドは過去ログ倉庫に格納されています
0663デフォルトの名無しさん
2009/09/08(火) 04:22:53-- Haskell
fact :: Integer -> Integer
fact n = foldl1 (*) [1..n]
isPrime :: Integer -> Bool
isPrime x = (fact (x-1) + 1) `mod` x == 0
main = print $ filter isPrime [2..30]
■ このスレッドは過去ログ倉庫に格納されています