On Wed, Feb 12, 2014 at 11:23 AM, Bryan Brady <bryan.brady@gmail.com> wrote:
ruler :: Stream Integer
ruler = foldr1 interleaveStreams (map streamRepeat [0..])

This is an interesting solution.

I'd hazard to say that it's probably not the solution the author had in mind, so bonus points for novelty!

How would you prove it correct though?

-- Kim-Ee