{"name":"gist: 960911","desc":"population count as a fractal sequence","actor":"rferranti","url":"https://gist.github.com/960911","snippet":"Prelude Data.Bits> let population n = length $ filter (testBit n) [0..31]\nPrelude Data.Bits> let all = [population (x::Int) | x <- [0..] ]\nPrelude Data.Bits> let even = [population (x::Int) | x <- [0,2..] ]","actor_gravatar":"7a1aba42cedcbe3c3b76383b5b1f37e5","action":"create"}