問題 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)) ;期待通り。