count

Location: lib, 6 Lines

; Scheme 9 from Empty Space, Function Library
; By Nils M Holm, 2009,2010
; Placed in the Public Domain
;
; (count pair)  ==>  integer
;
; Count atomic members of a pair.
;
; Example:   (count '(a (b (c)) d . e))  ==>  5

(define (count x)
  (cond ((null? x) 0)
        ((pair? x)
          (+ (count (car x))
             (count (cdr x))))
        (else 1)))

contact  |  privacy