Subversion Repositories programming

Rev

Rev 100 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
108 ira 1 
;Code Copyright: Barry Irvin Soroka
2 
;Please contact him for the license / usage rights
3 
;http://www.csupomona.edu/~bisoroka
4 
;bisoroka@csupomona.edu
5 
 
66 irasnyd 6 
; Test cases for CS 352, Winter 2005, Homework 7.
7 
 
8 
(defun TEST nil
9 
  (TEST1 nil)
10 
  (TEST1 '((1 1)))
11 
  (TEST1 '((0 1)))
12 
  (TEST1 '((1 1)(1 1)))
13 
  (TEST1 '((1 1)(-1 1)))
14 
  (TEST1 '((2 0)(3 1)(4 2)))
15 
  (TEST1 '((4 2)(3 1)(2 0)))
16 
  (TEST1 '((4 2)(3 1)(2 0)(-3 1)))
17 
  (TEST1 '((3 1)(2 1)(-4 1)))
18 
  (TEST1 '((1 2)(-5 0)(2 2)(-3 1)(5 0)(-3 2)(3 1)))
19 
  (TEST1 '((1 2)(2 0)(2 1)(2 3)(3 1)(7 0)))
20 
)
21 
 
22 
(defun TEST1 (TERMS)
23 
  (format t "~%in  ~s~%" TERMS)
24 
  (format t "out ~s~%" (PNF TERMS))
25 
)
26