r18455 reverted.

[ruby-svn.git] / benchmark / other-lang / fact.scm

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

(dotimes (i 10000)
  (fact 100))