12 lines
455 B
Scheme
12 lines
455 B
Scheme
(begin
|
|
;;; car ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal 123 (car (cons 123 456)))
|
|
|
|
;;; cdr ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal 456 (cdr (cons 123 456)))
|
|
|
|
;;; list ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(assert-equal '() (list))
|
|
(assert-equal '(123) (list 123))
|
|
(assert-equal '(123 456) (list 123 456))
|
|
)
|