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
 1 
;Written By: Ira Snyder
2 
;Due Date:   02-11-2005
 2 
;Due Date:   02-11-2005
3 
;Homework #: hw07
 3 
;Homework #: hw07
- 
 
 4 
;License: Public Domain
4 
 
 5 
 
5 
;;; The next two functions define a special insertion sort
 6 
;;; The next two functions define a special insertion sort
6 
;;; that will sort a Polynomial-Normal-Form list
 7 
;;; that will sort a Polynomial-Normal-Form list
7 
(defun ISORT (L)
 8 
(defun ISORT (L)
8 
  (cond
 9 
  (cond