ruby/sample/fib.scm

(define (fib n)
  (if (< n 2)
      n
      (+ (fib (- n 2)) (fib (- n 1)))))

(display (fib 20))
(newline)
(quit)
Initial revision git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1998-01-16 15:13:05 +03:00			`(define (fib n)`
			`(if (< n 2)`
			`n`
			`(+ (fib (- n 2)) (fib (- n 1)))))`

This commit was generated by cvs2svn to compensate for changes in r372, which included commits to RCS files with non-trunk default branches. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@373 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 1999-01-20 07:59:39 +03:00			`(display (fib 20))`
			`(newline)`
matz git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1053 b2dd03c8-39d4-4d8f-98ff-823fe69b080e 2000-11-27 12:23:38 +03:00			`(quit)`