Subversion Repositories programming

Rev

Rev 66 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

; Test cases for CS 352, Winter 2005, Homework 7.

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

(defun TEST1 (TERMS)
  (format t "~%in  ~s~%" TERMS)
  (format t "out ~s~%" (PNF TERMS))
)