clac 0.1.0 → 0.2.0

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

clac.cabal +1/−1
src-exec/clac.hs +1/−1

clac.cabal view

@@ -1,5 +1,5 @@ name:                  clac-version:               0.1.0+version:               0.2.0 synopsis:              Simple CLI RPN calculator description:           Simple CLI RPN calculator. license:               GPL-3

src-exec/clac.hs view

@@ -56,7 +56,7 @@ p m = (fmap fst .: lookup) m os <|> Snum <$> (readMay m :: Maybe Double)  s :: [StackItem Double] -> [StackItem Double] -> Maybe Double-s (Sop (Bop o) : ss) (Snum m : Snum n : ts) = s ss (Snum (m `o` n) : ts)+s (Sop (Bop o) : ss) (Snum n : Snum m : ts) = s ss (Snum (m `o` n) : ts) s (Sop (Uop o) : ss) (Snum m : ts)          = s ss (Snum (o m) : ts) s (n:ss) ts                                 = s ss (n : ts) s [] (Snum n:_)                             = Just n