Subversion Repositories programming

irasnyd@duallie lisp $ cat hw05.lisp

;;; Written By: Ira Snyder

;;; Due Date:   Wed 02-02-2005

;;; Homework #: HW05

;;;

;;; Count the number of numbers in an arbitrary

;;; depth expression

;;;

(defun COUNT# (E)

  (cond

    ((numberp E) 1)

    ((atom E)    0)

    (t           (+ (COUNT# (car E))

                    (COUNT# (cdr E))))

  )

)

irasnyd@duallie lisp $ clisp -q

[1]> (load 'hw05.lisp)

;; Loading file hw05.lisp ...

;; Loaded file hw05.lisp

T

[2]> (COUNT# nil)

[3]> (COUNT# 3)

1

[4]> (COUNT# 'a)

[5]> (COUNT# '(5 1 a 4))

3

[6]> (COUNT# '((1 1 (a)) 7 (b (3))))

4

[7]> (bye)

irasnyd@duallie lisp $