S-1 Lisp
1 program
Added 2026-03-17T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: S1 Lisp
Provenance: commit 53e9831ecf · authored 2026-03-17T04:12:31+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
Fibonacci sequence
Provenance: commit 53e9831ecf · authored 2026-03-17T04:12:31+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
;;; Fibonacci sequence in S-1 Lisp
;;; S-1 Lisp was a Lisp dialect developed at Lawrence Livermore National Laboratory
;;; for the S-1 Mark IIA supercomputer, circa 1982.
(defun fibonacci (n)
(cond ((zerop n) 0)
((= n 1) 1)
(t (+ (fibonacci (- n 1))
(fibonacci (- n 2))))))
(defun print-fibs (limit)
(do ((i 0 (+ i 1)))
((= i limit))
(print (fibonacci i))
(terpri)))
(print-fibs 10)