11 lines
303 B
Haskell
11 lines
303 B
Haskell
|
module Eval where
|
||
|
|
|
||
|
|
import Parser
|
||
|
|
import Research
|
||
|
|
|
||
|
|
evalSapling :: SaplingAST -> T
|
||
|
|
evalSapling TLeaf = Leaf
|
||
|
|
evalSapling (TStem t) = Stem (evalSapling t)
|
||
|
|
evalSapling (TFork t1 t2) = Fork (evalSapling t1) (evalSapling t2)
|
||
|
|
evalSapling _ = error "Evaluation currently only supported for Tree Calculus terms."
|