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 license / usage rights
3 
;http://www.csupomona.edu/~bisoroka
4 
;bisoroka@csupomona.edu
5 
 
68 irasnyd 6 
; Tests CS 352, Winter 2005, Homework 8.
7 
 
8 
(defun TEST nil
9 
  (TEST1 nil)
10 
  (TEST1 '((2 1)(1 0)))
11 
  (TEST1 '((3 2)(-1 0)))
12 
  (TEST1 '((5 2)(-4 1)(1 0)))
13 
  (TEST1 '((7 14)(11 13)(-3 2)(7 1)(-5 0)))
14 
  (TEST1 '((1 0)(2 1)(-5 3)(-3 1)(7 0)))
15 
)
16 
 
17 
(defun TEST1 (P)
18 
  (format t "~s~%" P)
19 
  (WRITE-POLY P)
20 
  (format t "~%")
21 
)
22