summaryrefslogtreecommitdiff
path: root/coding-exercises/1/44.rkt
blob: 8ee30345e6682e581eb05381e8a98beade6cb89e (plain)
1
2
3
4
5
6
7
8
9
10
#lang racket
(require "../../shared/chapter1.rkt")
(require sicp)


(define smooth (smoother 0.00001))

((repeated square 2) 5)
((smooth square) 5)
(((repeated smooth 3) square) 5)