From 43861f9d91782d864dc9866eee1d39288bb3a76d Mon Sep 17 00:00:00 2001
From: Bad Diode <bd@badd10de.dev>
Date: Sun, 10 Oct 2021 18:03:56 +0200
Subject: Add list manipulation primitives

---
 tests/lists_expected.txt | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 tests/lists_expected.txt

(limited to 'tests')

diff --git a/tests/lists_expected.txt b/tests/lists_expected.txt
new file mode 100644
index 0000000..9030886
--- /dev/null
+++ b/tests/lists_expected.txt
@@ -0,0 +1,15 @@
+(list) -> ()
+(list 1) -> (1)
+(list 1 2) -> (1 2)
+(list 1 2 3) -> (1 2 3)
+(list 4 5 (+ 1 2 3)) -> (4 5 6)
+(car (list 1 2 3)) -> 1
+(cdr (list 1 2 3)) -> (2 3)
+(car (list (* 10 20) (+ 1 2 3) 50 60)) -> 200
+(cdr (list (* 10 20) (+ 1 2 3) 50 60)) -> (6 50 60)
+(car (cdr (list (* 10 20) (+ 1 2 3) 50 60))) -> 6
+(cons 1 2) -> (1 . 2)
+(cons "a" "b") -> ("a" . "b")
+(cons "a" (cons "c" ())) -> ("a" "c")
+(cons 1 (cons 2 (cons (+ 1 2) ()))) -> (1 2 3)
+(cons 1 (cons 2 (cons (+ 1 2) 4))) -> (1 2 3 . 4)
-- 
cgit v1.2.1