Racket Scheme. Рекурсивное деление полиномов с остатков (через списки)
Решил поработать с полиномами и списками в Racket и столкнулся с задачей деления и остатка. Попробовал реализовать и пока получается не очень.
(define pa/pb
(lambda (pol1 pol2)
(if (null? pol1)
pol2
(if (null? pol2)
pol1
(cons (/ (car pol1) (car pol2))
(pa/pb (cdr pol1) (cdr pol2))
)
)
)
)
)