depth

Location: lib, 4 Lines

; Scheme 9 from Empty Space, Function Library
; By Nils M Holm, 2009
; Placed in the Public Domain
;
; (depth list)  ==>  integer
;
; Compute the depth of a list.
;
; Example:   (depth '(a (b (c d (e)))))  ==>  4

(define (depth a)
  (if (pair? a)
      (+ 1 (apply max (map depth a)))
      0))

contact  |  privacy