implemented resetAbacus and rungList

src/Abacus.hs

@@ -34,6 +34,8 @@ module Abacus (
   getRung,
   setRung,
   rungL,
+  resetAbacus,
+  rungList,
   ) where
 
 import Data.List (find)
@@ -105,4 +107,13 @@ rungL n = lens
   (fromJust . getRung n)
   (flip $ setRung n)
 
+-- | Resets all the beads on an 'Abacus'
+resetAbacus :: Abacus -> Abacus
+resetAbacus a = a
+  { abacusRungs = map (const 0) (abacusRungs a) }
+
+-- | Returns values on each rung as a list
+rungList :: Abacus -> [Int]
+rungList = abacusRungs
+
 --jl