(Nils' Scheme Snippets)

(depth list) => integer

Purpose

Compute the depth of a list.

Arguments

a	list

Example

(depth '(a (b (c d (e))))) => 4

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