12 lines
421 B
Scheme
12 lines
421 B
Scheme
(begin
|
|
(displayln "--- TEST: car --------------------------------------------------")
|
|
(displayln (car (cons 123 456)))
|
|
(newline)
|
|
(displayln "--- TEST: cdr --------------------------------------------------")
|
|
(displayln (cdr (cons 123 456)))
|
|
(newline)
|
|
(displayln "--- TEST: list -------------------------------------------------")
|
|
(displayln (list))
|
|
(displayln (list 123))
|
|
(displayln (list 123 456))
|
|
)
|