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

Use guards instead of if

Browse Source
This commit is contained in:
Rnhmjoj 2015-02-27 23:13:22 +01:00
parent 37f974ef02
commit 86dd293001
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hsilop.hs
View File

@ -18,7 +18,8 @@ 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 x == floor x then "%.0f" else "%.10f" format | ceiling x == floor x = "%.0f"
| otherwise = "%.10f"
-- Solve a RPN expression -- Solve a RPN expression
@ -28,7 +29,7 @@ rpn = foldM parse [] . words >=> return . head where
parse (x:xs) (flip lookup monad -> Just f) = Right (f x : xs) parse (x:xs) (flip lookup monad -> Just f) = Right (f x : xs)
parse xs (flip lookup nilad -> Just k) = Right (k : xs) parse xs (flip lookup nilad -> Just k) = Right (k : xs)
parse xs (readMaybe -> Just x) = Right (x : xs) parse xs (readMaybe -> Just x) = Right (x : xs)
parse xs _ = Left "syntax error" parse _ _ = Left "syntax error"
-- dyadic functions -- dyadic functions