33 lines
1.9 KiB
Plaintext
33 lines
1.9 KiB
Plaintext
(let (
|
|
check_and_erase (lambda (x type)
|
|
(let (xe (x)
|
|
xi (idx xe 0)
|
|
xt (idx xe 1))
|
|
(if (= type xt) xi (println "\n\nType error, expected" type "but got" xt "\n\n")))
|
|
)
|
|
|
|
add_one_impl (lambda (x) (+ x 1))
|
|
|
|
stlc (array
|
|
|
|
(array (quote WS) (array "( | |
|
|
|(;[ -~]*
|
|
))+") (lambda (x) nil))
|
|
|
|
(array (quote stlc_expr) (array "-?[0-9]+") (lambda (x) (lambda () (array (read-string x) (quote int)))))
|
|
(array (quote stlc_expr) (array "plus") (lambda (x) (lambda () (array + (quote (int int int))))))
|
|
(array (quote stlc_expr) (array "call" (quote WS) (quote stlc_expr) (quote WS) (quote stlc_expr) (quote WS) (quote stlc_expr)) (lambda (_ _ c _ a _ b) (lambda () (let (
|
|
ae (check_and_erase a (quote int))
|
|
be (check_and_erase b (quote int))
|
|
ce (check_and_erase c (quote (int int int)))
|
|
)
|
|
(array (ce ae be) (quote int))
|
|
))))
|
|
(array (quote stlc) (array (quote stlc_expr)) (lambda (x) (check_and_erase x (quote int))))
|
|
)
|
|
|
|
our_expr "call 4 13 20"
|
|
)
|
|
(println "\n\nExpr evaluates to" (eval (read-string our_expr stlc (quote stlc))) "\n")
|
|
)
|