http://projecteuler.net/index.php?section=problems&id=20 これも前にで作った多倍長整数クラスを使えば簡単。掛け算は足し算を繰り返すだけ。ただし、単純に足すだけだと芸がないのでバイナリ法を使った。 #include <iostream> #include "itertools.h" #include "lo</iostream>…

http://projecteuler.net/index.php?section=problems&id=3 最大の素数を求めればよいのですが、せっかくなので素因数分解のコードを書きました。あまりうまく書けていません。 let rec calc_exp n p = if n % p = 0 then let t = calc_exp (n / p) p (fst t…