render labelled decision trees as graphviz diagrams

This commit is contained in:
sneeker committed 2020-03-13 12:00:00 +00:00
1 parent e8a2f30163
commit d16ff1aa0d
2 files changed
+23

No files matched your search

+11
View File
@@ -0,0 +1,11 @@
data Expr = Lit Int | Add Expr Expr | Mul Expr Expr | Neg Expr
match simplify (e : Expr) : Expr =
| Add (Lit 0) x -> x
| Add x (Lit 0) -> x
| Mul (Lit 0) x -> Lit 0
| Mul x (Lit 0) -> Lit 0
| Mul (Lit 1) x -> x
| Mul x (Lit 1) -> x
| Neg (Neg x) -> x
| e -> e