面白い問題おしえて〜な 30問目

あ、間違い。
15行目
isFitToTheySaid x = all (==True) $ zipWith (==) x $ map (\y-> y x) [asay, bsay,csay,dsay,esay,fday,gsay,hsay]
どのみち0。