http://projecteuler.net/index.php?section=problems&id=87 ナイーブな方法で解けた。遅いけど。 import Number import Data.List import Data.Array.IArray import System primesS = map (^2) primes primesC = map (^3) primes primesF = map (^4) primes…

http://projecteuler.net/index.php?section=problems&id=86 英語難しいです。 最短を忘れていたり、組ではなく並びかと思ったりと。 import Data.List cuboid m = sum[div2 n m |n<-[2..2*m-1],isIntSqrt$n*n+m*m] div2 n m | n > m = div (2*m-n+2) 2 | n …

http://projecteuler.net/index.php?section=problems&id=85 効率の良い解法ではないが、コードは短いし、単純。 main =print.minimum$[(abs$8*10^6-a*(a+1)*b*(b+1),a*b)|a<-[1..ceiling.sqrt$8*10^6],b<-[1..a]]

http://projecteuler.net/index.php?section=problems&id=88 調べる範囲が2~12000なので、product-sumの値は高々20000だとした。実際そうだった。 あまり速くない。やはり、Arrayはあまり速くないのか？ import Data.List import qualified Data.Set as S im…