From 6efbce9f8fc3e4934b6410b9b33c8ee151833d17 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 24 Feb 2016 00:39:10 +0000 Subject: pm should be +- --- rpn.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'rpn.hs') diff --git a/rpn.hs b/rpn.hs index ff7dd6c..64fdb89 100755 --- a/rpn.hs +++ b/rpn.hs @@ -69,7 +69,7 @@ clarifySymbol s = do isKnownSymbol :: String -> Bool isKnownSymbol s = or [ - s `elem` ["+", "-", "*", "/", "±", "pm", "e"], + s `elem` ["+", "-", "*", "/", "±", "+-", "e"], isJust $ (maybeRead s :: Maybe Double) ] -- cgit v1.2.3