fact.scm « other-lang « benchmark - ruby.git - The Ruby Programming Language

summary refs log tree commit diff

path: root/benchmark/other-lang/fact.scm

blob: 511990f797fecc9542522cdc41df5c05a60350c3 (plain)

(define (fact n)
        (if (< n 2)
            1
          (* n (fact (- n 1)))))

(dotimes (i 10000)
  (fact 100))