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