rnhmjoj/hsilop
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Change wrong name

Browse Source
This commit is contained in:
Rnhmjoj 2015-02-27 01:10:10 +01:00
parent 25e13c005a
commit 079adf3ae9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hsilop.hs
View File

@ -18,7 +18,7 @@ io f = interact (unlines . map f . filter (not . null) . lines)
result :: Either String Double -> String result :: Either String Double -> String
result (Left err) = "Ꞥ∘ " ++ err result (Left err) = "Ꞥ∘ " ++ err
result (Right x) = printf ("ꟼ∘ " ++ format) x where result (Right x) = printf ("ꟼ∘ " ++ format) x where
format = if ceiling n == floor n then "%.0f" else "%.10f" format = if ceiling x == floor x then "%.0f" else "%.10f"
-- Solve a RPN expression -- Solve a RPN expression