Problem 33 http://projecteuler.net/index.php?section=problems&id=33 11の倍数はダメ。 is_cancellable (x, y) = f x y || f y x where f x y = (div y 10) == (mod x 10) && x * (mod y 10) == y * (div x 10)a :: [(Int,Int)] a = filter is_cancellabl…

Problem 72 n/dという分数を考える。ここで、nとdは正の整数。n