Add Scheme version

drujensen · Sep 28, 2018 · aae2dde · aae2dde
1 parent 8f937c2
commit aae2dde
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -55,6 +55,7 @@ NOTE: These languages include compilation time which should be taken into consid
 |----------|----------|-----------------------|
 | Ruby     |  195.601 | `time ruby fib.rb`    |
 | Php      |  206.346 | `time php fib.php`    |
+| Guile    |  ??????? | `time guile fib.scm`  |
 | Python   |  502.036 | `time python fib.py`  |
 | Python3  |  758.681 | `time python3 fib.py` |
 | Perl     | 1133.131 | `time perl fib.pl`    |

diff --git a/fib.scm b/fib.scm
@@ -0,0 +1,7 @@
+(define (fib n)
+  (if (<= n 1) 1
+      (+ (fib (- n 1))
+	 (fib (- n 2)))))
+
+(display (fib 46))
+(newline)