diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-24 00:36:55 +0000 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-02-24 00:36:55 +0000 |
| commit | c4a5198f3330b4293c14d4ff2801475ef58ba43a (patch) | |
| tree | fe82715cae8a8ab4bccf449e85e530a4c222ce75 | |
| parent | 9f8e83010903509d338722c4a2adef295e8ea67e (diff) | |
| download | gausshs-c4a5198f3330b4293c14d4ff2801475ef58ba43a.tar gausshs-c4a5198f3330b4293c14d4ff2801475ef58ba43a.tar.gz gausshs-c4a5198f3330b4293c14d4ff2801475ef58ba43a.tar.bz2 gausshs-c4a5198f3330b4293c14d4ff2801475ef58ba43a.tar.xz gausshs-c4a5198f3330b4293c14d4ff2801475ef58ba43a.zip | |
Fixed constraints of pPrint
| -rwxr-xr-x | rpn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
| @@ -40,7 +40,7 @@ fromSymbol (Number x d) = (x, d) | |||
| 40 | fromSymbol _ = (0, 0) | 40 | fromSymbol _ = (0, 0) |
| 41 | 41 | ||
| 42 | 42 | ||
| 43 | pPrint :: Show a => Symbol a -> String | 43 | pPrint :: (Show a, Fractional a) => Symbol a -> String |
| 44 | pPrint (Number x d) = (show x) ++ " ± " ++ (show d) ++ " (relative error: " ++ (show $ d / x) ++ ")" | 44 | pPrint (Number x d) = (show x) ++ " ± " ++ (show d) ++ " (relative error: " ++ (show $ d / x) ++ ")" |
| 45 | pPrint s = show s | 45 | pPrint s = show s |
| 46 | 46 | ||