! (, , - )
, ( , , ). , , ; , :
head :: [a] -> Maybe a
eqHead :: (Eq a) => [a] -> Maybe [a]
eqHead xs = do
h <- head xs
return $ filter (== h) xs
So eqHead "" ( , ), Maybe -ness head, , head - .
, , Haskell , Java. Haskell . , , , . , , , -, .
, , , .