Subversion Repositories programming

Rev

Rev 100 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 100 Rev 108
Line 1... Line 1...
1 
;Written By: Ira Snyder (parts from Dr. Soroka)
 1 
;Written By: Ira Snyder (parts from Dr. Soroka)
2 
;Due Date:   02-28-2005
 2 
;Due Date:   02-28-2005
3 
;Homework #: HW11
 3 
;Homework #: HW11
- 
 
 4 
;License: Unknown, except for the code indicated as being
- 
 
 5 
;         written by Ira Snyder, which is in the Public Domain
4 
 
 6 
 
5 
; POLY.LSP
 7 
; POLY.LSP
6 
;
 8 
;
7 
; add code for (* i2 i3) &c
 9 
; add code for (* i2 i3) &c
8 
;
 10 
;
Line 276... Line 278...
276 
    ) ;end-cond
 278 
    ) ;end-cond
277 
  ) ;end-let
 279 
  ) ;end-let
278 
)
 280 
)
279 
 
 281 
 
280 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 282 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
281 
;;; The below 3 functions (POLY*, POLY+, and POLY-) were implemented         ;;;
 283 
;;; The below 4 functions (POLY*, POLY+, and POLY-) were implemented         ;;;
282 
;;; on 02-20-2005 by Ira Snyder for HW11                                     ;;;
 284 
;;; on 02-20-2005 by Ira Snyder for HW11                                     ;;;
283 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 285 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
284 
 
 286 
 
285 
;;; This function takes two polynomials represented in PNF,
 287 
;;; This function takes two polynomials represented in PNF,
286 
;;; and returns the result of multiplying them together.
 288 
;;; and returns the result of multiplying them together.