今回の問題は (define (append lis1 lis2) (if (null? lis1) lis2 (cons (car lis1) (append (cdr lis1) lis2)))) (define (append! x y) (set-cdr! (last-pair x) y) x) という，2種類のappendをレジスタ計算機で実装すること． append (define append-mach…

いままではif文の判定(2つしか分岐がないもの)をやっていたので，少し苦戦した． a 今回の問題は (define (count-leaves tree) (cond [(null? tree) 0] [(not (pair? tree)) 1] [else (+ (count-leaves (car tree)) (count-leaves (cdr tree)))])) をレジス…