S-expressions: Difference between revisions
m
→{{header|Haskell}}
Line 3,063:
parseExpr :: [String] -> ([Tree Val], [String])
parseExpr =
where
finished (_, []) = True
finished (_, token : _) = ")" == token
Line 3,074 ⟶ 3,072:
((trees <>) . return . Node (Symbol "List"))
tail
(
parseToken (trees, ")" : rest) = (trees, rest)
parseToken (trees, t : rest) =
|