diff options
Diffstat (limited to 'coding-exercises/1/39.rkt')
| -rw-r--r-- | coding-exercises/1/39.rkt | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/coding-exercises/1/39.rkt b/coding-exercises/1/39.rkt index 90f9908..900a9b6 100644 --- a/coding-exercises/1/39.rkt +++ b/coding-exercises/1/39.rkt @@ -1,9 +1,7 @@ #lang racket +(require "../../shared/chapter1.rkt") (require sicp) -(define (odd? i) - (= 1 (remainder i 2))) - ;; iter up (define (cont-frac n d k) (define (iter result i) @@ -17,7 +15,7 @@ ;; test (define (tan-cf x k) (cont-frac - (lambda (i) + (lambda (i) (cond ((= i 1) x) ((> i 1) (* -1 (* x x))) |