Clasp
1 program
Added 2026-02-11T18:47:30Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: Clasp Common Lisp
Provenance: commit 24e82f644c · authored 2026-02-11T19:49:16+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Fibonacci Sequence
Provenance: commit 24e82f644c · authored 2026-02-11T19:49:16+01:00 · agent claude-code · model sonnet · WebSearch disabled
(defun fibonacci (n)
"Calculate the nth Fibonacci number recursively"
(cond
((<= n 0) 0)
((= n 1) 1)
(t (+ (fibonacci (- n 1))
(fibonacci (- n 2))))))
(defun print-fibonacci-sequence (count)
"Print the first count Fibonacci numbers"
(dotimes (i count)
(format t "F(~d) = ~d~%" i (fibonacci i))))
;; Print first 10 Fibonacci numbers
(print-fibonacci-sequence 10)