A simple polynomial calculator in lisp
(defun poly+ (poly1 poly2) (format t "Poly One: ~d~%" poly1) (format t "Poly Two: ~d~%" poly2)) (defun find-variable-symbol (single-poly) (car (car (car single-poly)))) (defun find-exponent (single-poly) (cdr (car (car single-poly)))) (defun find-multiplier (single-poly) (cdr (car single-poly))) (poly+ '(((x 2) 3)) '(((y 2) 4))) (poly+ '(((x 2) 3) ((y 2) 3)) '(((y 2) 4)))
