Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
zero :: Integer -> Bool
zero = (==0)
ieq :: Num p => Bool -> p
ieq x = if x then 1 else 0
elem' :: (Foldable t, Eq a) => t a -> a -> Bool
elem' xs x = not $ zero func
where
func = foldl (\acc y -> acc + (ieq $ x == y)) 0 xsПетуху дали поиграть в Haskell.
Запостил: 
digitalEugene,
(Updated )
все студенты разбежались
Не до хаскеля
Какой бульшит )))
А чем не устроило какое-нибудь банальное elem x = or . map (==x)?