coding-exercises/1/45.rkt


1
2
3
4
5
6
7
8
9
10
11
12

#lang racket
(require "../../shared/chapter1.rkt")
(require sicp)

(define (root-finder x n damp-fold)
  (fixed-point
   (average-damp
     (lambda (y) (/ x (power y (- n 1))))
     damp-fold)
   1.0))

(root-finder 2 64 6)