Subversion Repositories programming

irasnyd@duallie lisp $ cat hw09.lisp
;Written By: Ira Snyder
;Due Date: 02-14-2005
;Homework #: Hw09 (Exercise #13)

;;; My assumption on this homework is that you meant to
;;; mean that I should make an iterative version of NONE
;;; from Exercise 11 (HW06), not AL1 from Exercise 6.
(defun NONE (L)
  (do ((L L (cdr L))
       (NO 0)
       (NE 0))
      ((null L) (list NO NE))
    (if (oddp (car L)) (setf NO (1+ NO)) (setf NE (1+ NE)))
  )
)

irasnyd@duallie lisp $ clisp -q

[1]> (load 'hw09.lisp)
;; Loading file hw09.lisp ...
;; Loaded file hw09.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 $