05/06/22 17:42:55
>>462
↓わかりやすい例
(define (my-reverse lst)
(if (null? lst)
'()
(append (my-reverse (cdr lst)) (list (car lst)))))
↓より効率の良い例
(define (my2-reverse lst)
(my2-reverse-1 lst '()))
(define (my2-reverse-1 lst done)
(if (null? lst)
done
(my2-reverse-1 (cdr lst) (cons (car lst) done))))