http://projecteuler.net/index.php?section=problems&id=143 やっと解けた。 import Control.Monad import Data.List import qualified Data.Map as M import qualified Data.IntSet as S eisenstein :: Int -> [(Int,Int)] eisenstein upp = do n <- [1..s…

http://projecteuler.net/index.php?section=problems&id=145 とりあえずナイーブなもの。 import Data.Char revInt ::Integer -> Integer revInt = read.reverse.show reversible n = mod n 10 /= 0 && (all odd.map digitToInt.show.(+n).revInt) n p145 n…

http://projecteuler.net/index.php?section=problems&id=144 一次方程式と二次方程式を解くだけの簡単なお仕事。 だが、計算ミスしそうだったので、慎重にやった。 答えあわない… とおもったら、終了条件を１つ見逃していた。 まったく、これだから英語は。…