Subversion Repositories programming

Rev

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

Rev Author Line No. Line
66 irasnyd 1 
; Test cases for CS 352, Winter 2005, Homework 7.
2 
 
3 
(defun TEST nil
4 
  (TEST1 nil)
5 
  (TEST1 '((1 1)))
6 
  (TEST1 '((0 1)))
7 
  (TEST1 '((1 1)(1 1)))
8 
  (TEST1 '((1 1)(-1 1)))
9 
  (TEST1 '((2 0)(3 1)(4 2)))
10 
  (TEST1 '((4 2)(3 1)(2 0)))
11 
  (TEST1 '((4 2)(3 1)(2 0)(-3 1)))
12 
  (TEST1 '((3 1)(2 1)(-4 1)))
13 
  (TEST1 '((1 2)(-5 0)(2 2)(-3 1)(5 0)(-3 2)(3 1)))
14 
  (TEST1 '((1 2)(2 0)(2 1)(2 3)(3 1)(7 0)))
15 
)
16 
 
17 
(defun TEST1 (TERMS)
18 
  (format t "~%in  ~s~%" TERMS)
19 
  (format t "out ~s~%" (PNF TERMS))
20 
)
21