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:   Wed 02-02-2005
3 
;;; Homework #: HW05
108 ira 4 
;;; License: Public Domain
65 irasnyd 5 
 
6 
;;;
7 
;;; Count the number of numbers in an arbitrary
8 
;;; depth expression
9 
;;;
10 
(defun COUNT# (E)
11 
  (cond
12 
    ((numberp E) 1)
13 
    ((atom E)    0)
14 
    (t           (+ (COUNT# (car E))
15 
                    (COUNT# (cdr E))))
16 
  )
17 
)
18