From b27fd8f7572ee4774e1bdb635b0d9eda4339734a Mon Sep 17 00:00:00 2001
From: Teddy <ted.sybil@gmail.com>
Date: Mon, 12 Aug 2013 08:47:24 +0800
Subject: manual hash approach is even slower than STL map

---
 robust_test.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'robust_test.scm')

diff --git a/robust_test.scm b/robust_test.scm
index 6dd4abf..4b68c4e 100644
--- a/robust_test.scm
+++ b/robust_test.scm
@@ -229,3 +229,24 @@ src
 (list x)
 x
 (cons x  x)
+
+(define (f x)
+  (if (<= x 2) 1 (+ (f (- x 1)) (f (- x 2)))))
+(f 1)
+(f 2)
+(f 3)
+(f 4)
+(f 5)
+
+(define (g n)
+  (define (f p1 p2 n)
+    (if (<= n 2)
+      p2
+      (f p2 (+ p1 p2) (- n 1))))
+  (f 1 1 n))
+
+(define (all i n)
+  (if (= n i)
+    #f
+    (and (display (g i)) (all (+ i 1) n))))
+(all 1 100)
-- 
cgit v1.2.3