diff options
Diffstat (limited to 'coding-exercises/1/45.rkt')
| -rw-r--r-- | coding-exercises/1/45.rkt | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/coding-exercises/1/45.rkt b/coding-exercises/1/45.rkt new file mode 100644 index 0000000..e438bdb --- /dev/null +++ b/coding-exercises/1/45.rkt @@ -0,0 +1,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) |
