Subversion Repositories programming

Rev

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

Rev Author Line No. Line
68 irasnyd 1 
; Tests CS 352, Winter 2005, Homework 8.
2 
 
3 
(defun TEST nil
4 
  (TEST1 nil)
5 
  (TEST1 '((2 1)(1 0)))
6 
  (TEST1 '((3 2)(-1 0)))
7 
  (TEST1 '((5 2)(-4 1)(1 0)))
8 
  (TEST1 '((7 14)(11 13)(-3 2)(7 1)(-5 0)))
9 
  (TEST1 '((1 0)(2 1)(-5 3)(-3 1)(7 0)))
10 
)
11 
 
12 
(defun TEST1 (P)
13 
  (format t "~s~%" P)
14 
  (WRITE-POLY P)
15 
  (format t "~%")
16 
)
17