[TOC] ### 如何設計遞歸 例子 1 ``` ;由n個 hello構成的表 ;hellos:n->list-of-symbols ;預期值 ;(hellos 0) ;empty ;(hellos 1) ;(cons 'hello empty) ->(cons 'hello (hellos 0)) ;可以看出帶有遞歸性 ; (hellos 2) ; (cons 'hello (cons 'hello empty)) -> (cons 'hello (hellos 1)) (define (hellos n) (cond [(= n 0) empty] [else (cons 'hello (hellos (- n 1)))])) (hellos 2) ;(list 'hello 'hello) ``` 例子 2 ``` ; 階乘 ; 1!->1 ; 2!->1x2->1x1! ; 3!->1x2x3->3x2! ; n!->nx!(n-1) (define (! n) (cond [(= n 1) 1] [else (* n (! (- n 1))) ])) (! 1);1 (! 3);6 ```