http://projecteuler.net/index.php?section=problems&id=134ユークリッドの互除法を利用。 import Number -- given m,n. find a,b. s.t. am+bn=1 euclid m n | n > m = let (a,b) = euclid n m in (b,a) | r == 1 = (1,-q) | otherwise = let (a,b) = eucli…

http://projecteuler.net/index.php?section=problems&id=131 import Number {-- n^3 + n^2 p = n^2 (n+p) = cube p : prime -> gcd n (n+p) = 1 より n^2 と n+p は共通因数を持たない 従って n = a^3 , n+p = (a+k)^3 とおける ここで (a+k)^3 = a^3 + 3 a…