---
title: Counting Ones
dependencies: [ 'static/procedural/codeAndPic' ,
                'static/procedural/includePic' ,
                'static/procedural/greyCode'   ,
                'static/procedural/Pic.hs'     ]
packages: [ 'file2img', 'ghc', 'imagemagick', 'wrapCode' ]
---

```{.unwrap pipe="./root/static/procedural/codeAndPic count grey"}
f x y = (* adjust) $ count (toBits x) + count (toBits y)

adjust = (2 ^ scale) `div` (2 * scale)

count []         = 0
count (True :xs) = 1 + count xs
count (False:xs) =     count xs
```