arbitrary precision e as a lazy list

e.hs

-- arbitrary presision e as a lazy list

main = print $ take 1000 e

e = conv (2 : [1, 1 ..])
    where
      conv (x : xs) =
          x : conv (norm 2 (0 : map (* 10) xs))
      norm c (x : y : xs) =
          if y + 9 < c then zs else carry c zs
              where zs = x : norm (c + 1) (y : xs)
      carry c (x : y : xs) =
          x + div y c : mod y c : xs

http://ideone.com/uFfZHN