beowulf/resources/length.lsp

1 line
68 B
Common Lisp

(DEFUN LENGTH (L) (COND ((EQ NIL L) 0) (T (ADD1 (LENGTH (CDR L))))))