]>
Commit | Line | Data |
---|---|---|
61a16fa6 MG |
1 | '(1 2 3) |
2 | 5 | |
3 | ((lambda id (x) x) 5) | |
4 | ((lambda id (x) x) '(1 2 3)) | |
5 | (car '(2 3)) | |
6 | (car (cdr '(4 5 6))) | |
7 | ((lambda snd (x y) y) 'first 'second) | |
8 | ||
9 | (cons '(1 2) '(7)) | |
10 | (car (cons '(1 2) '(7))) | |
11 | (cdr (cons '(1 2) '(7))) | |
12 | ||
13 | ((lambda rev (xs) ((lambda reverse-acc (xs acc) (if xs (reverse-acc (cdr xs) (cons (car xs) acc)) acc)) xs '())) '(4 5 6 7)) | |
14 | ||
15 | (atom nil) | |
16 | (atom t) | |
17 | (atom 'symbol) | |
18 | (atom 5) | |
19 | ||
20 | (reverse-list 9 8 7 6 5 4) | |
21 | ||
22 | (atom '()) | |
23 | (atom '(1 2 3)) | |
24 | (atom '((1 2) (3 4))) | |
25 | (atom (cons 1 '(2))) | |
26 | ||
27 | (progn 4 5 6 7 8) |