Как грамотно именовать переменные
Понравились имена аргументов в GHCi-шной реализации функции isInfixOf:
:-)
isInfixOf :: (Eq a) => [a] -> [a] -> Bool isInfixOf needle haystack = any (isPrefixOf needle) (tails haystack)
:-)