Subversion Repositories programming

Rev

Rev 100 | 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)
108 ira 4 
;License: Public Domain
65 irasnyd 5 
 
6 
(defun NONE (L)
7 
  (none1 L '(0 0))
8 
)
9 
 
10 
(defun NONE1 (L R)
11 
  (cond
12 
    ((null L) R)
13 
    ((oddp (car L)) (NONE1 (cdr L) (list (1+ (car R)) (cadr R))))
14 
    (t              (NONE1 (cdr L) (list (car R) (1+ (cadr R)))))
15 
  )
16 
)
17