diff options
| author | Mike Vink <mike1994vink@gmail.com> | 2023-03-04 17:56:57 +0100 |
|---|---|---|
| committer | Mike Vink <mike1994vink@gmail.com> | 2023-03-04 17:56:57 +0100 |
| commit | 9bb48cc50a438467ff029e1fb5726287b8408acc (patch) | |
| tree | cd40732aefb9375907fb4501166d4644adaad3f0 /coding-exercises/1/45.rkt | |
| parent | 035be9b1895133e0ffd1afdcc3a59c5d84c4b8d8 (diff) | |
refactor
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) |