You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
364 B
17 lines
364 B
(define (f-recur n) |
|
(cond ((< n 3) n) |
|
(else (+ (f-recur (- n 1)) |
|
(* 2 (f-recur (- n 2))) |
|
(* 3 (f-recur (- n 3))))))) |
|
|
|
(define (f-iter n) (iter 0 1 2 n)) |
|
|
|
(define (iter a b c count) |
|
(if (= count 0) |
|
a |
|
(iter b c (+ c (* 2 b) (* 3 a)) (- count 1)))) |
|
|
|
(display (f-recur 7)) |
|
(newline) |
|
(display (f-iter 7)) |
|
(newline)
|
|
|