Acornsoft Lisp
1 program
Added 2026-02-24T13:04:21Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: enabled
Evidence
Report issue
View issues
Aliases: Acornsoft LISP
Provenance: commit b3587913b4 · authored 2026-02-24T14:04:56+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Factorial
Provenance: commit b3587913b4 · authored 2026-02-24T14:04:56+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch enabled
(defun factorial (n)
(cond ((zerop n) 1)
(t (times n (factorial (sub1 n))))))
(defun factorial (n (result . 1))
(loop
(until (zerop n) result)
(setq result (times n result))
(setq n (sub1 n))))