Subversion Repositories programming

Rev

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

Rev Author Line No. Line
67 irasnyd 1 
;Written By: Ira Snyder
2 
;Due Date: 02-14-2005
3 
;Homework #: Hw09 (Exercise #13)
4 
 
5 
;;; My assumption on this homework is that you meant to
6 
;;; mean that I should make an iterative version of NONE
7 
;;; from Exercise 11 (HW06), not AL1 from Exercise 6.
8 
(defun NONE (L)
9 
  (do ((L L (cdr L))
10 
       (NO 0)
11 
       (NE 0))
12 
      ((null L) (list NO NE))
13 
    (if (oddp (car L)) (setf NO (1+ NO)) (setf NE (1+ NE)))
14 
  )
15 
)
16