[clump.git] / expressions.t

'(1 2 3)
5
((lambda id (x) x) 5)
((lambda id (x) x) '(1 2 3))
(car '(2 3))
(car (cdr '(4 5 6)))
((lambda snd (x y) y) 'first 'second)

(cons '(1 2) '(7))
(car (cons '(1 2) '(7)))
(cdr (cons '(1 2) '(7)))

((lambda rev (xs) ((lambda reverse-acc (xs acc) (if xs (reverse-acc (cdr xs) (cons (car xs) acc)) acc)) xs '())) '(4 5 6 7))

(atom nil)
(atom t)
(atom 'symbol)
(atom 5)

(reverse-list 9 8 7 6 5 4)

(atom '())
(atom '(1 2 3))
(atom '((1 2) (3 4)))
(atom (cons 1 '(2)))

(progn 4 5 6 7 8)
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)