Subversion Repositories programming

;Written By: Ira Snyder
;Due Date: 02-09-2005
;Homework #: Hw06 (Exercise #11)

(defun NONE (L)
  (none1 L '(0 0))
)

(defun NONE1 (L R)
  (cond
    ((null L) R)
    ((oddp (car L)) (NONE1 (cdr L) (list (1+ (car R)) (cadr R))))
    (t              (NONE1 (cdr L) (list (car R) (1+ (cadr R)))))
  )
)