S-expressions: Difference between revisions
Content deleted Content added
Line 3,035:
import Data.Tree (Tree (..), drawForest)
------------------------ DATA
data Val
Line 3,044:
| List [Val]
deriving (Eq, Show, Read)
--------------------------- MAIN -------------------------
Line 3,086 ⟶ 3,080:
atom :: String -> Val
atom [] =
atom s@('"' : _) =
fromMaybe
atom s = firstParse parses
where
firstParse [] =
firstParse (x : _) = x
parses =
|