Lisp (1958)




  (defun length (l)
     (cond
       ((null l) 0)
       (t (1+ (length (cdr l))))))