Add more tests and improved README

README.md

@@ -1,2 +1,6 @@
-# lisp-poly-calculator
-A simple polynomial calculator in lisp
+# LISP Polynomial Calculator
+* A simple polynomial calculator in lisp
+* Polynomials are in the form 
+    '(((SYMBOL EXPONENT) MULTIPLIER) ((SYMBOL EXPONENT) MULTIPLIER))
+* For example this:
+    '(((x 2) 5) ((((x y) (2 3)) 5))) \= 5x^2 + 5x^2y^3

tests.cl

@@ -21,4 +21,14 @@
         '(((z 3) -4) ((x 2) 2) ((y 2) 3)))
     (format t "5x^2+6y^2 - 3x^2+3y^2+4z^3 ... passed - complex subtraction~%")
     (format t "5x^2+6y^2 - 3x^2+3y^2+4z^3 ... failed - complex subtraction~%"))
+  (if (equal
+        (poly* '(((x 2) 5)) '(((x 2) 5)))
+        '(((x 4) 25)))
+    (format t "5x^2 * 5x^2 ... passed - simple multiplication~%")
+    (format t "5x^2 * 5x^2 ... failed - simple multiplication~%"))
+  (if (equal
+        (poly* '(((x 2) 5) ((y 2) 1)) '(((x 1) 3) ((y 1) 1)))
+        '(((X 3) 15) (((X Y) (2 1)) 5) (((Y X) (2 1)) 3) ((Y 3) 1)))
+    (format t "(5x^2+y^2) * (3x + y) ... passed - complex multiplication~%")
+    (format t "(5x^2+y^2) * (3x + y) ... failed - complex multiplication~%"))
   )