(define x (list (list 1 2) (list 3 4))) (define (reverse items) (if (null? items) items (append (reverse (cdr items)) (list (car items))))) (define (deep-reverse items) (cond ((null? items) nil) ((pair? items) (append (deep-reverse (cdr it…

(define x (list 1 2 3)) (define y (list 4 5 6)) (append 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))

(1 3 (5 7) 9) (car (cdr (car (cdr (cdr))))) ((7)) (car (car )) (1 (2 (3 (4 (5 (6 7)))))) (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr (car (cdr )))))))))))) gosh> (car (cdr (car (cdr (cdr '(1 3 (5 7) 9)))))) 7 gosh> (car (car '((7))))…

(define (for-each proc items) (cond ((null? items) 'done) (else (proc (car items)) (for-each proc (cdr items))))) gosh> (for-each (lambda (x) (newline) (display x)) (list 57 321 88)) 57 321 88done

(define (square-list items) (define (iter things answer) (if (null? things) answer (iter (cdr things) (cons (square (car things)) answer)))) (iter items nil)) ;; iter内でのconsで(square (car things))とanswerを引数として取っている． ;; この…

(define (square-list items) (if (null? items) nil (cons (* (car items) (car items)) (square-list (cdr items))))) (define (square-list items) (map (lambda (x) (* x x)) items))

(define (same-parity x . y) (define (recur lis pred?) (cond ((null? lis) nil) ((pred? (car lis)) (cons (car lis) (recur (cdr lis) pred?))) (else (recur (cdr lis) pred?)))) (cons x (recur y (if (odd? x) odd? even?)))) gosh> (same-parity 1 2…