diff --git a/src/Data/Number/Functions.hs b/src/Data/Number/Functions.hs index d6961ef..46fa429 100644 --- a/src/Data/Number/Functions.hs +++ b/src/Data/Number/Functions.hs @@ -61,7 +61,7 @@ toList (x:|xs) = x : toList xs -- -- <> 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