Portable Standard Lisp
1 program
Added 2026-02-10T14:25:33Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: PSL
Provenance: commit 15eeed6f58 · authored 2026-02-10T15:26:32+01:00 · agent claude-code · model sonnet
Sources mentioning this language
2 sources · pl_id:
pl/portable-standard-lispRelated languages
LLM-contributed programs
Factorial Function
Provenance: commit 15eeed6f58 · authored 2026-02-10T15:26:32+01:00 · agent claude-code · model sonnet · WebSearch disabled
% Factorial function in Portable Standard Lisp (PSL)
(de factorial (n)
(cond
((equal n 0) 1)
((equal n 1) 1)
(t (times n (factorial (difference n 1))))))
% Test the factorial function
(prin2 "Factorial of 5: ")
(prin2 (factorial 5))
(terpri)
(prin2 "Factorial of 10: ")
(prin2 (factorial 10))
(terpri)
Real programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)