count-zero-golf.hs

-- adds up how many zeros are in the elements of a list
cz :: Show a => [a] -> Int
cz = sum . map length . map (filter (=='0')) . map show

-- the (.) means function composition, and lets you exclude the
-- variable being operated on. so:
-- f . g == f (g (x))

cz' :: Show a => [a] -> Int
cz' s = sum (map length (map (filter (=='0')) (map show s)))

-- to make it more readable:
cz'' :: Show a => [a] -> Int
cz'' s = sum c
    where c = map length b
          b = map (filter (=='0')) a
          a = map show s

GNARLY!!!!!!!!!!!!!!!!

wut.... is this ur 0nly g1st????

i iz d1sapp01nt.