fact.scm « other-lang « benchmark « ruby « jni - pw.cloudef.rpg.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

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

blob: c98a7fedd3083d08b25b251eb40484c859e6e080 (plain)

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

(dotimes (i 10000)
  (fact 100))