Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Parsing-Shunting-yard-algorithm/Haskell/parsing-shunting-yard-algorithm-1.hs
+++ b/Task/Parsing-Shunting-yard-algorithm/Haskell/parsing-shunting-yard-algorithm-1.hs
@ -9,7 +9,8 @@ prec "-" = 2
 leftAssoc "^" = False
 leftAssoc _ = True

-isOp t = t `elem` (map (:[]) "-+/*^")
+isOp (t:[]) = t `elem` "-+/*^"
+isOp _      = False

 simSYA xs = final ++ [lastStep]
  where final = scanl f ([],[],"") xs