問題 2.26

(define (append list1 list2)
  (if (null? list1)
      list2
      (cons (car list1) (append (cdr list1) list2))))

(define x (list 1 2 3))
(define y (list 4 5 6))

;(append x y)
;予想は普通に
;(1 2 3 4 5 6)

(append x y)
;-> (1 2 3 4 5 6)
;期待通り。

;(cons x y)
;予想は
;((1 2 3) 4 5 6)

(cons x y)
;-> ((1 2 3) 4 5 6)
;期待通り。

;(list x y)
;予想は
;((1 2 3) (4 5 6))

(list x y)
;-> ((1 2 3) (4 5 6))
;期待通り。