diff options
author | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-02-12 23:01:19 +0000 |
---|---|---|
committer | shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2007-02-12 23:01:19 +0000 |
commit | fd81221a8e2c3a8c77599602fe38cd563d86191d (patch) | |
tree | 47faf15269b927feb9e4b13fe2d09a51dae4ddfd /benchmark/other-lang/fib.scm | |
parent | 1a4b93cf920d0850061ce4b53351b4cdc7d464c7 (diff) | |
download | ruby-fd81221a8e2c3a8c77599602fe38cd563d86191d.tar.gz |
set svn:eol-style
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11708 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'benchmark/other-lang/fib.scm')
-rw-r--r-- | benchmark/other-lang/fib.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/benchmark/other-lang/fib.scm b/benchmark/other-lang/fib.scm index ea63503b11..2fc4e225bd 100644 --- a/benchmark/other-lang/fib.scm +++ b/benchmark/other-lang/fib.scm @@ -1,7 +1,7 @@ -(define (fib n)
- (if (< n 3)
- 1
- (+ (fib (- n 1)) (fib (- n 2)))))
-
-(fib 34)
-
+(define (fib n) + (if (< n 3) + 1 + (+ (fib (- n 1)) (fib (- n 2))))) + +(fib 34) + |