dfsch
1 program
Added 2026-03-12T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: dfsch Scheme
Provenance: commit 0313830462 · authored 2026-03-12T00:22:07+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 and Factorial
Provenance: commit 0313830462 · authored 2026-03-12T00:22:07+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
;;; Fibonacci and factorial in dfsch
(define (factorial n)
(if (<= n 1)
1
(* n (factorial (- n 1)))))
(define (fib n)
(cond ((= n 0) 0)
((= n 1) 1)
(else (+ (fib (- n 1)) (fib (- n 2))))))
(display "Factorials:")
(newline)
(do ((i 1 (+ i 1)))
((> i 10))
(display (factorial i))
(newline))
(display "Fibonacci:")
(newline)
(do ((i 0 (+ i 1)))
((= i 10))
(display (fib i))
(newline))