Fix off-by-one in e

2016-02-23 04:19:45 +01:00 · 2016-02-23 04:19:45 +01:00 · dea3df894c
commit dea3df894c
parent d23b21de6b
1 changed files with 1 additions and 1 deletions
--- a/src/Data/Number/Functions.hs
+++ b/src/Data/Number/Functions.hs
@ -61,7 +61,7 @@ toList (x:|xs) = x : toList xs
 --
 -- <<https://i.imgur.com/q1SwKoy.png>>
 e :: Number
-e = fmap a σ where 
+e = 1 + fmap a σ where 
  a n | p == 0    = 2*q
      | otherwise = 1
    where (q, p) = quotRem n 3