Subversion Repositories programming

Rev

Blame | Last modification | View Log | RSS feed 

; Tests CS 352, Winter 2005, Homework 8.

(defun TEST nil
  (TEST1 nil)
  (TEST1 '((2 1)(1 0)))
  (TEST1 '((3 2)(-1 0)))
  (TEST1 '((5 2)(-4 1)(1 0)))
  (TEST1 '((7 14)(11 13)(-3 2)(7 1)(-5 0)))
  (TEST1 '((1 0)(2 1)(-5 3)(-3 1)(7 0)))
)

(defun TEST1 (P)
  (format t "~s~%" P)
  (WRITE-POLY P)
  (format t "~%")
)