Disclaimer: Dieser Thread wurde aus dem alten Forum importiert. Daher werden eventuell nicht alle Formatierungen richtig angezeigt. Der ursprüngliche Thread beginnt im zweiten Post dieses Threads.
list-depth
falls jemandem das komische iterative getue zu kompliziert ist:
(define (list-depth liste)
(if (pair? liste)
(max (+ 1 (list-depth (car liste)))
(list-depth (cdr liste)))
0))sorry, could not resist :bounce: