suzanne.soy/subtemplate
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Sketch for a performance test.

Browse Source
This commit is contained in:
Georges Dupéron 2017-03-15 01:15:17 +01:00
parent a37d944da2
commit 93e146e35d
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
test/test-performance.rkt
View File

@ -2,17 +2,20 @@
(require subtemplate/override)
#;(time
(syntax-case #'((((0 1 2 3 4 5 6 7 8 9)))) ()
[((((a b c d e f g h i j) …) …) …)
#'(a … … …)]))
#;(time
(syntax-case #'((((0 1 2 3 4 5 6 7 8 9)))) ()
[((((a b c d e f g h i j) …) …) …)
(list #'a … … …)]))
(time
(syntax-case #'((((0 1 2 3 4 5 6 7 8 9)))) ()
[((((a b c d e f g h i j) …) …) …)
#'(a … … …)]))
(time
(syntax-case #'(((0 1 2 3 4 5 6 7 8 9))) ()
[(((a b c d e f g h i j) …) …)
(list #'a … …)]))
(syntax-case #'((((0 1 2 3 4 5 6 7 8 9)))) ()
[((((a b c d e f g h i j) …) …) …)
(list #'a … … …)]))
;; raco expand this-file.rkt | wc
;; shows that there are 160 extra words for each additional level of nesting
;; for the following code, between 2 and 5 (inclusive) levels of nesting.
(time
(syntax-case #'((((((0 1 2 3 4 5 6 7 8 9)))))) ()
[((((((a b c d e f g h i j) …) …) …) …) …)
(list #'a … … … … …)]))