S-expressions: Difference between revisions
m
→{{header|Haskell}}
Line 3,083:
atom [] = List []
atom s@('"' : _) =
fromMaybe (List []) (maybeRead ("String " <> s))
atom s =
headDef (Symbol s) $
catMaybes $
maybeRead . (s <>) . (' ' :) <$> ["Int", "Float"]
maybeRead :: String -> Maybe Val
| |||