http://projecteuler.net/index.php?section=problems&id=37 2パターンは数字を右から追加するか左から追加するかなので、数字を追加する関数をそれぞれ作っておきます。 let add_right m d n = m * 10 + d let add_left m d n = m + d * nnはmが3桁なら1000…