Для данной Вам задачи составьте две программы: непосредственное функциональное описание и программу, основанную на «хвостовой» рекурсии.

Построить функцию для вычисления n-го члена последовательности, в которой каждый следующий четный член равен произведению двух предыдущих, а каждый следующий нечетный член равен сумме двух предыдущих, а первые 2 члена равны соответственно 1 и 2.
1 2 3 6 9 54 63 ...

Пример:

 

(define (slo x) (+ x 1))

(define (kw y) (* y y))

(define (sum n) (if (> n 0) (+ (/ (kw n) (slo n)) (sum (- n 1))) 0))

 

 

> (define (sum-iter a n) (if (= n 0) a (sum-iter (+ a (/ (* (+ n 1) (+ n 1)) (+ n 1 1))) (- n 1))))

> (define (sum n) (sum-iter 1/2 (- n 1)))