From a7976e05d481ade628b3a31855dd34398646b33b Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Mon, 14 Sep 2020 22:55:18 +0200 Subject: Fully implements cons, car, and cdr. --- data/tests/extra_functionals.fate | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'data') diff --git a/data/tests/extra_functionals.fate b/data/tests/extra_functionals.fate index 53c4b33..090ab5b 100644 --- a/data/tests/extra_functionals.fate +++ b/data/tests/extra_functionals.fate @@ -36,4 +36,10 @@ (set_value st1 (eval update_test_struct (var st0))) +(car (cons 1 (cons 2 (cons 3 (cons 4 5))))) +(car (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))) +(car (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5))))))) +(car (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) +(cdr (cdr (cdr (cdr (cons 1 (cons 2 (cons 3 (cons 4 5)))))))) + (end) -- cgit v1.2.3-70-g09d2