commit 5a87106d083b1e060665a172b133789acdf4adc2
parent 09fbfd26bba702cb7a624285ef259ccb704fd073
Author: Tomas Hlavaty <tom@logand.com>
Date: Sat, 16 Oct 2010 14:17:33 +0200
all tests are the same now
Diffstat:
7 files changed, 18 insertions(+), 18 deletions(-)
diff --git a/README b/README
@@ -2,6 +2,6 @@
| | pil64-3.0.4 | lua-5.1 | luajit-2.0.0 | c -O2 |
|---------+-------------+---------+--------------+-------|
-| fibo 25 | 0.03 | 0.02 | 0.02 | |
-| fibo 30 | 0.27 | 0.19 | 0.08 | |
-| fibo 40 | 31.08 | 22.70 | 8.82 | 1.31 |
+| fibo 25 | 0.02 | 0.02 | 0.01 | |
+| fibo 30 | 0.16 | 0.18 | 0.08 | |
+| fibo 40 | 19.54 | 22.32 | 8.78 | 1.30 |
diff --git a/fibo25.l b/fibo25.l
@@ -1,6 +1,6 @@
(de fibo (N)
- (if (> 2 N)
- 1
+ (if (< N 3)
+ N
(+ (fibo (dec N)) (fibo (- N 2))) ) )
(fibo 25)
(bye)
diff --git a/fibo25.lua b/fibo25.lua
@@ -1,9 +1,9 @@
-fib = function(n)
+fibo = function(n)
if n < 3 then
return n
else
- return fib(n - 1) + fib(n - 2)
+ return fibo(n - 1) + fibo(n - 2)
end
end
-print(fib(25))
+print(fibo(25))
diff --git a/fibo30.l b/fibo30.l
@@ -1,6 +1,6 @@
(de fibo (N)
- (if (> 2 N)
- 1
+ (if (< N 3)
+ N
(+ (fibo (dec N)) (fibo (- N 2))) ) )
(fibo 30)
(bye)
diff --git a/fibo30.lua b/fibo30.lua
@@ -1,9 +1,9 @@
-fib = function(n)
+fibo = function(n)
if n < 3 then
return n
else
- return fib(n - 1) + fib(n - 2)
+ return fibo(n - 1) + fibo(n - 2)
end
end
-print(fib(30))
+print(fibo(30))
diff --git a/fibo40.l b/fibo40.l
@@ -1,6 +1,6 @@
(de fibo (N)
- (if (> 2 N)
- 1
+ (if (< N 3)
+ N
(+ (fibo (dec N)) (fibo (- N 2))) ) )
(fibo 40)
(bye)
diff --git a/fibo40.lua b/fibo40.lua
@@ -1,9 +1,9 @@
-fib = function(n)
+fibo = function(n)
if n < 3 then
return n
else
- return fib(n - 1) + fib(n - 2)
+ return fibo(n - 1) + fibo(n - 2)
end
end
-print(fib(40))
+print(fibo(40))