Subversion Repositories programming

Rev

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

Rev Author Line No. Line
65 irasnyd 1 
;Written By: Ira Snyder
2 
;Due Date: 02-09-2005
3 
;Homework #: Hw06 (Exercise #11)
4 
 
5 
(defun NONE (L)
6 
  (none1 L '(0 0))
7 
)
8 
 
9 
(defun NONE1 (L R)
10 
  (cond
11 
    ((null L) R)
12 
    ((oddp (car L)) (NONE1 (cdr L) (list (1+ (car R)) (cadr R))))
13 
    (t              (NONE1 (cdr L) (list (car R) (1+ (cadr R)))))
14 
  )
15 
)
16