http://ja.doukaku.org/14/ s13 s = sum $ map (\(y,z) -> (13 ^ y) * (read [z])) $ zip [(length s)-1,(length s)-2..0] s f = [n | n <- [10..], n * 2 == s13 (show n)]

http://karetta.jp/article/blog/ll-spirit/033840 import Data.List data Oke = Oke {limit::Int, amount::Int} deriving (Show, Eq) type Oke3 = (Oke,Oke,Oke) (.<.) x1@(Oke l1 a1) x2@(Oke l2 a2) | l1 == a1 = Nothing | a2 == 0 = Nothing | l1 < (a1…