Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Problem 4
- (define (quadformula a b c)
- (list (/ (+ (* -1 b) (sqrt (+ (* -4 (* a c)) (* b b)))) (* 2 a))
- (/ (- (* -1 b) (sqrt (+ (* -4 (* a c)) (* b b)))) (* 2 a))))
- (define (findroot l1)
- (quadformula (car(car l1)) (car(car(cdr l1))) (car(car(cdr(cdr l1)))) ))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement