simon/beowulf
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity
beowulf/resources/count.lsp

1 line
68 B
Common Lisp
Raw Blame History

(DEFUN COUNT (L) (COND ((EQ '() L) 0) (T (PLUS 1 (COUNT (CDR L))))))
Reference in a new issue View git blame Copy permalink