diff options
| author | Bad Diode <bd@badd10de.dev> | 2021-10-10 18:03:56 +0200 |
|---|---|---|
| committer | Bad Diode <bd@badd10de.dev> | 2021-10-10 18:03:56 +0200 |
| commit | 43861f9d91782d864dc9866eee1d39288bb3a76d (patch) | |
| tree | 32a67e5c602f5266aeaf3723020ba9c845c3204a /tests | |
| parent | 2bbafc053adfd4af01503d3163cba71698855fb0 (diff) | |
| download | bdl-43861f9d91782d864dc9866eee1d39288bb3a76d.tar.gz bdl-43861f9d91782d864dc9866eee1d39288bb3a76d.zip | |
Add list manipulation primitives
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lists_expected.txt | 15 |
1 files changed, 15 insertions, 0 deletions
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 @@ | |||
| 1 | (list) -> () | ||
| 2 | (list 1) -> (1) | ||
| 3 | (list 1 2) -> (1 2) | ||
| 4 | (list 1 2 3) -> (1 2 3) | ||
| 5 | (list 4 5 (+ 1 2 3)) -> (4 5 6) | ||
| 6 | (car (list 1 2 3)) -> 1 | ||
| 7 | (cdr (list 1 2 3)) -> (2 3) | ||
| 8 | (car (list (* 10 20) (+ 1 2 3) 50 60)) -> 200 | ||
| 9 | (cdr (list (* 10 20) (+ 1 2 3) 50 60)) -> (6 50 60) | ||
| 10 | (car (cdr (list (* 10 20) (+ 1 2 3) 50 60))) -> 6 | ||
| 11 | (cons 1 2) -> (1 . 2) | ||
| 12 | (cons "a" "b") -> ("a" . "b") | ||
| 13 | (cons "a" (cons "c" ())) -> ("a" "c") | ||
| 14 | (cons 1 (cons 2 (cons (+ 1 2) ()))) -> (1 2 3) | ||
| 15 | (cons 1 (cons 2 (cons (+ 1 2) 4))) -> (1 2 3 . 4) | ||