S-expressions: Difference between revisions

m
Line 3,065:
go tokens = until finished parseToken ([], tokens)
 
finished (_, rest[]) = null rest || ")" == head restTrue
finished (_, token : _) = ")" == token
 
parseToken (trees, []) = (trees, [])
9,655

edits