73問目
http://projecteuler.net/index.php?section=problems&id=73
1/2 と 1/3 の間に分母が10000以下の既約分数がいくつあるか求める。
律儀に数えてます。
import Data.List import Data.Ratio main = print $ euler073 3 2 10000 euler073 :: Int -> Int -> Int -> Int euler073 a b m = subtract 1 $ length $ [(n , d) | d <- [1..m], n <- [(div d a)+1..(div d b)], gcd d n == 1]