http://www.agusa.i.is.nagoya-u.ac.jp/person/mzp/hiki/?exercise#l22 から。普通。 import Data.List partial :: ([Int], Int) -> Bool partial ([], _) = False partial (xs, n) = let t = [(delete a xs, n-a) | a <- xs] in if any ((==0).snd) t then …

http://www.agusa.i.is.nagoya-u.ac.jp/person/mzp/hiki/?exercise#l16 から。 ひねりも何もない、普通の関数。テストもろくにしてないのでもしかしたらダメかも。 lcs :: Eq a => [a] -> [a] -> [a] lcs [] _ = [] lcs _ [] = [] lcs (x:xs) ys = longer (x…