(define (append list1 list2) (if (null? list1) list2 (cons (car list1) (append (cdr list1) list2)))) ;2.17で目的の機能を果たすものを定義した。 (define (flattern items) (append (if (pair? (car items)) (flattern (car items)) (cons (car items…

(define (reverse items) (define (reverse-iter i p) (if (null? i) p (reverse-iter (cdr i) (cons (car i) p)))) (reverse-iter items null)) (define (deep-reverse items) (define (reverse-iter i p) (if (null? i) p (reverse-iter (cdr i) (cons (if…

(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) ;期待通り。 ;(co…