よく見たら何故か使う素数の上限が12迄になってました……orz と、云うわけで修正版です。 module Main where import List import Maybe import System import Numeric erat (x:xs) = x:erat [y | y <- xs, y `mod` x /= 0] primes = erat (2:[3,5..]) factori…

何となく最近Haskellにはまっております。Haskellって、難しいんだけど、何故か、こう、惹かれる物がある気がします(私だけ？ 同じ関数型言語ではOCamlが有名ですが、どうもあれは一回やろうとしたきりで、そんなにやる気が起きない。何だろうこの差は(笑Has…