13 lines
421 B
Scheme
13 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))
|
||
|
|
)
|