http://projecteuler.net/index.php?section=problems&id=43 ライブラリで順列を出して判定すると非常に遅い。 import Data.List primes = [2,3,5,7,11,13,17] numerize a = foldl (\x y -> x * 10 + y) 0 a is_valid a [] = True is_valid a (p:ps) = if mo…

プロジェクトオイラー http://projecteuler.net/index.php?section=problems&id=278 やっとfが計算できるようになった。道のりは遠そう。 fの計算が速くなった。でも、このfで計算したら一生かかりそう。 p = 2のときができた。なんで他はできない？ 元の計…