CommonLisp Scheme Part13 - 暇つぶし2ch

CommonLisp Scheme Part13 at TECH

464:デフォルトの名無しさん
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))))

次ページ

続きを表示

1を表示