Project Euler 解答

Project Euler Problem 090

Project Euler Problem 090

import Data.List e :: Integer -> [Integer] -> Bool e = elem ci :: [Integer] -> [Integer] -> Integer -> Integer -> Bool ci l r a b = (e a l && e b r) || (e b l && e a r) check :: [Integer] -> [Integer] -> Bool check l r = imp 0 1 && imp 0 4 && (imp 0 9 || imp 0 6) && (imp 1 6 || imp 1 9) && imp 2 5 && (imp 3 6 || imp 3 9) && (imp 4 9 || imp 4 6) && (imp 6 4 || imp 9 4) && imp 8 1 where imp = ci l r ten = [0..9] test = check [0,5,6,7,8,9] [1,2,3,4,8,9] -- 7を使ってもtrueになる組み合わせは可 test2 = check [0,5,6,7,8,7] [1,2,3,4,8,9] -- 重複する組み合わせもある test3 = check [0,2,3,6,8] [1,4,5,6] -- 少なく考えてみたもの。これもtrue -- 最低限0,1,2,3,4,5,[6 or 9],8の8種類は出現する必要がある ans1 = length $ nub $ sort [if l

since 2013