This is what I have so far, but I'm not sure if I am even on the right path. Some expert advice would be greatly appreciated!

(define (cube-root n p) (if (good-enough? n p) n (cube-root (improve n ?) p)) ) (define (improve x y) (/ (+ (/ x (expt y 2)) (* (2 y))) 3) (define (good-enough? n p) (< (abs (- (cube x) n) p)) )