diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-24 00:39:10 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-24 00:39:10 +0000 |
| commit | 6efbce9f8fc3e4934b6410b9b33c8ee151833d17 (patch) | |
| tree | 1d1bf44a094bc24447721e1c8733d7bbc88d73a4 | |
| parent | c4a5198f3330b4293c14d4ff2801475ef58ba43a (diff) | |
| download | gausshs-6efbce9f8fc3e4934b6410b9b33c8ee151833d17.tar gausshs-6efbce9f8fc3e4934b6410b9b33c8ee151833d17.tar.gz gausshs-6efbce9f8fc3e4934b6410b9b33c8ee151833d17.tar.bz2 gausshs-6efbce9f8fc3e4934b6410b9b33c8ee151833d17.tar.xz gausshs-6efbce9f8fc3e4934b6410b9b33c8ee151833d17.zip | |
pm should be +-
| -rwxr-xr-x | rpn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -69,7 +69,7 @@ clarifySymbol s = do | |||
| 69 | 69 | ||
| 70 | isKnownSymbol :: String -> Bool | 70 | isKnownSymbol :: String -> Bool |
| 71 | isKnownSymbol s = or [ | 71 | isKnownSymbol s = or [ |
| 72 | s `elem` ["+", "-", "*", "/", "±", "pm", "e"], | 72 | s `elem` ["+", "-", "*", "/", "±", "+-", "e"], |
| 73 | isJust $ (maybeRead s :: Maybe Double) | 73 | isJust $ (maybeRead s :: Maybe Double) |
| 74 | ] | 74 | ] |
| 75 | 75 | ||