http://www.ioi-jp.org/ioi/2006/problem/index.htm こんなんでどうだ。 import Data.List (elem, delete) counts :: String -> String -> Int counts s1 s2 = length $ filter (== True) $ f s1 s2 f :: String -> String -> [Bool] f _ [] = [True] f [] _…