Ocena użytkownikóww: ***** / 0
Nadesłany przez Adam Chrapkowski, 20 grudnia 2013 02:19
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.liczba_elementow.hs:
-- Zliczanie wysąpień na liście
-- Adam Chrapkowski
-- www.algorytm.org
--
-- Compliant with Haskell 98 standard
myCount :: (Ord t) => [t] -> t -> Int
myCount xs a = sum [1 | x <- xs, x == a]
-- usage:
-- myCount "The quick brown fox jumps over the lazy dog" 'o'
-- 4