s7
1 program
Added 2026-02-12T10:14:43Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: s7 Scheme
Provenance: commit b8293b9ba9 · authored 2026-02-12T11:15:26+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
Factorial Function
Provenance: commit b8293b9ba9 · authored 2026-02-12T11:15:26+01:00 · agent claude-code · model sonnet · WebSearch disabled
;;; Factorial function in s7 Scheme
(define (factorial n)
(if (<= n 1)
1
(* n (factorial (- n 1)))))
;;; Test the factorial function
(display "Factorial of 5: ")
(display (factorial 5))
(newline)
(display "Factorial of 10: ")
(display (factorial 10))
(newline)