Subversion Repositories programming

irasnyd@duallie lisp $ cat hw06.lisp
;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)))))
  )
)

irasnyd@duallie lisp $ clisp -q

[1]> (load 'hw06.lisp)
;; Loading file hw06.lisp ...
;; Loaded file hw06.lisp
T
[2]> (none nil)
(0 0)
[3]> (none '(3))
(1 0)
[4]> (none '(2))
(0 1)
[5]> (none '(3 1 4 1 5))
(4 1)
[6]> (bye)
irasnyd@duallie lisp $