2021-08-09 23:58:40 -04:00
|
|
|
(with_import "./partial_eval.kp"
|
|
|
|
|
(let (
|
|
|
|
|
test-case (lambda (code) (let (
|
|
|
|
|
_ (println "Code: " code)
|
2021-08-11 23:30:49 -04:00
|
|
|
[comb_to_mark_map partially_evaled] (partial_eval code)
|
2021-08-09 23:58:40 -04:00
|
|
|
_ (println "Partially evaled: " partially_evaled)
|
2021-08-10 22:56:12 -04:00
|
|
|
stripped (strip partially_evaled)
|
|
|
|
|
_ (println "Stripped: " stripped)
|
|
|
|
|
fully_evaled (eval stripped)
|
2021-08-09 23:58:40 -04:00
|
|
|
_ (println "Fully evaled: " fully_evaled)
|
2021-08-15 01:27:53 -04:00
|
|
|
_ (if (combiner? fully_evaled) (println "..and called " (fully_evaled 1337)))
|
2021-08-09 23:58:40 -04:00
|
|
|
_ (println)
|
|
|
|
|
) fully_evaled))
|
|
|
|
|
|
|
|
|
|
simple_add (read-string "(+ 1 2)")
|
2021-08-16 00:37:56 -04:00
|
|
|
vau_with_add (read-string "(vau (y) (+ 1 2))")
|
|
|
|
|
vau_with_add_called (read-string "((vau (y) (+ 1 2)) 4)")
|
|
|
|
|
vau_with_passthrough (read-string "((vau (y) y) 4)")
|
|
|
|
|
vau_with_no_eval_add (read-string "((vau (y) (+ 13 2 y)) 4)")
|
2021-08-16 01:20:10 -04:00
|
|
|
vau_with_wrap_add (read-string "((wrap (vau (y) (+ 13 2 y))) (+ 3 4))")
|
2021-08-16 00:37:56 -04:00
|
|
|
vau_with_add_p (read-string "(vau de (y) (+ (eval y de) (+ 1 2)))")
|
|
|
|
|
vau_with_add_p_called (read-string "((vau de (y) (+ (eval y de) (+ 1 2))) 4)")
|
2021-08-09 23:58:40 -04:00
|
|
|
_ (test-case simple_add)
|
|
|
|
|
_ (test-case vau_with_add)
|
2021-08-10 23:26:22 -04:00
|
|
|
_ (test-case vau_with_add_called)
|
2021-08-15 01:27:53 -04:00
|
|
|
_ (test-case vau_with_passthrough)
|
|
|
|
|
_ (test-case vau_with_no_eval_add)
|
2021-08-16 01:20:10 -04:00
|
|
|
_ (test-case vau_with_wrap_add)
|
2021-08-15 01:27:53 -04:00
|
|
|
;_ (test-case vau_with_add_p)
|
|
|
|
|
;_ (test-case vau_with_add_p_called)
|
2021-08-09 23:58:40 -04:00
|
|
|
) nil))
|
