Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2016-07-08 03:34:46 -04:00
parent 3eb25697d0
commit 19f6f73fbb
1 changed files with 13 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
equal-benchmark.scm
View file

@ -1,3 +1,11 @@
; 1
; (())
; 2
; ((()) (()))
; 3
; (((()) (())) ((()) (())) ((()) (())))
;4
;((((()) (())) ((()) (())) ((()) (()))) (((()) (())) ((()) (())) ((()) (()))) (((()) (())) ((()) (())) ((()) (()))) (((()) (())) ((()) (())) ((()) (()))))
(import (scheme base) (import (scheme base)
(scheme read) (scheme read)
@ -39,14 +47,10 @@
(let ((x (make-test-tree1 n)) (let ((x (make-test-tree1 n))
(y (make-test-tree1 n))) (y (make-test-tree1 n)))
(write 1) (newline) ;(write 10) (newline)
(write (make-test-tree1 1)) (newline) ;(write (make-test-tree1 10)) (newline)
(write 2) (newline) ; (write x)
(write (make-test-tree1 2)) (newline) ; (newline)
(write 3) (newline)
(write (make-test-tree1 3)) (newline)
(write x)
(newline)
(equal? x y))) (equal? x y)))
;(iterate n (hide n (lambda () (equal? x y)))))) ;(iterate n (hide n (lambda () (equal? x y))))))
@ -58,7 +62,7 @@
(define (main) (define (main)
(let* ((input0 100) (let* ((input0 100)
(input1 1) ;100) (input1 50) ;100)
(input2 8) (input2 8)
(input3 1000) (input3 1000)
(input4 2000) (input4 2000)