Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (bounce-series x)
- (local [(define (b-s x acc)
- (cond [(= acc 100) x]
- [(even? acc) (b-s (series1 x) (add1 acc))]
- [(odd? acc) (b-s (series2 x) (add1 acc))]))
- (define (series1 x)
- (/ 1 x))
- (define (series2 x)
- (add1 x))]
- [b-s x 0]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement