S-expressions: Difference between revisions

m
Line 3,068:
finished (_, token : _) = ")" == token
 
parseToken (trees, []) = (trees, [])
parseToken (trees, "(" : rest) =
bimap
Line 3,092 ⟶ 3,091:
<$> ( fmap
(<> (' ' : s))
["Int", "Integer", "Float", "Double"]
<> ["Symbol \"" <> s <> "\""]
)
9,655

edits