Код Ревью
Сравни свои решения
#| BEGIN (Write your solution here) |#
(define (repeated f n)
(define (iter res f i n)
(if (= i n)
res
(iter (f res) f (+ i 1) n)))
(lambda (x)
(iter x f 0 n)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (compose f g)
(lambda (x)
(f (g x))))
(define (repeated-iter f n)
(if (= n 1)
f
(compose f (repeated-iter f (- n 1)))))
(define (repeated f n)
(lambda (x)
((repeated-iter f n) x)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (compose f g)
(lambda (x)
(f (g x))))
(define (repeated-iter f g n)
(if (= n 1)
f
(repeated-iter (compose f g) g (- n 1))))
(define (repeated f n)
(lambda (x)
((repeated-iter f f n) x)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (repeated f n)
(define (iter res f i n)
(if (= i n)
res
(iter (f res) f (+ i 1) n)))
(lambda (x)
(iter x f 0 n)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (compose f g)
(lambda (x)
(f (g x))))
(define (repeated-iter f n)
(if (= n 1)
f
(compose f (repeated-iter f (- n 1)))))
(define (repeated f n)
(lambda (x)
((repeated-iter f n) x)))
#| END |#
#| BEGIN (Write your solution here) |#
(define (compose f g)
(lambda (x)
(f (g x))))
(define (repeated-iter f g n)
(if (= n 1)
f
(repeated-iter (compose f g) g (- n 1))))
(define (repeated f n)
(lambda (x)
((repeated-iter f f n) x)))
#| END |#