blob: f84d17b6f4ec72e3429e19d138f7c855e2280a37 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;;;; Under Creative Commons Attribution-ShareAlike 4.0
;;;; International. See
;;;; <https://creativecommons.org/licenses/by-sa/4.0/>.
;;;;
(define-module (net ricketyspace sicp one fortythree)
#:use-module (net ricketyspace sicp one fortytwo)
#:export (repeated square))
(define (repeated f n)
(cond ((= n 1) (lambda (x) (f x)))
(else (sicp-compose f (repeated f (1- n))))))
(define (square x) (* x x))
;;; GNU Guile REPL
;;;
;;; scheme@(guile-user)> ,re (net ricketyspace sicp one fortythree)
;;; scheme@(guile-user)> ((repeated square 1) 5)
;;; $7 = 25
;;; scheme@(guile-user)> ((repeated square 2) 5)
;;; $8 = 625
;;; scheme@(guile-user)> ((repeated square 3) 5)
;;; $9 = 390625
|
