2008-06-23 97問目 Haskell Project Euler メルセンヌ素数ではない素数 28433×27830457+1 の下十桁を求める。 main = print euler097 euler097 :: Integer euler097 = mod (28433 * 2 ^ 7830457 + 1) (10 ^ 10)