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))