Anonymous user
Integer roots: Difference between revisions
m
→{{header|Scheme}}
m (a hack not using <math></math>) |
|||
Line 122:
(define (y a a1 b c d e)
(if (or (= c d) (= c e))
(
(y a a1 b d e (quotient (+ (* a1 e) (quotient b (expt e a1))) a))))
(if (< b 2)
|