From 19f6f73fbb52377001fe3c3bec0d8f3420597c57 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 8 Jul 2016 03:34:46 -0400 Subject: [PATCH] WIP --- equal-benchmark.scm | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/equal-benchmark.scm b/equal-benchmark.scm index 37e9fbea..7b17d5ab 100644 --- a/equal-benchmark.scm +++ b/equal-benchmark.scm @@ -1,3 +1,11 @@ +; 1 +; (()) +; 2 +; ((()) (())) +; 3 +; (((()) (())) ((()) (())) ((()) (()))) +;4 +;((((()) (())) ((()) (())) ((()) (()))) (((()) (())) ((()) (())) ((()) (()))) (((()) (())) ((()) (())) ((()) (()))) (((()) (())) ((()) (())) ((()) (())))) (import (scheme base) (scheme read) @@ -39,14 +47,10 @@ (let ((x (make-test-tree1 n)) (y (make-test-tree1 n))) -(write 1) (newline) -(write (make-test-tree1 1)) (newline) -(write 2) (newline) -(write (make-test-tree1 2)) (newline) -(write 3) (newline) -(write (make-test-tree1 3)) (newline) - (write x) - (newline) +;(write 10) (newline) +;(write (make-test-tree1 10)) (newline) +; (write x) +; (newline) (equal? x y))) ;(iterate n (hide n (lambda () (equal? x y)))))) @@ -58,7 +62,7 @@ (define (main) (let* ((input0 100) - (input1 1) ;100) + (input1 50) ;100) (input2 8) (input3 1000) (input4 2000)