Haskell --- average of a list.

Rules:

✡ must compute arithmetic average of a list
✡ only one pass is allowed
✡ constant memory

The back-story is that some guy in Kyiv asked this question during interviews with about twenty different Haskellers, and not a single one of them was able to solve it correctly.