Counting elements of a list and sublists

Question

I\'m trying to create a function to count all the elements in a list, including the elements of its sublists. initially, to get started, i came up with a basic function

Answer 1

Make my-length work for any argument type, list or 'atom'; then the recursive algorithm becomes almost trivial:

(define (my-length l)
  (cond ((null? l) 0)
        ((list? l) (+ (my-length (car l)) (my-length (cdr l))))
        (else 1)))  ; atom

> (my-length '(1 (1 (1 1)) 1)))
5