shithub: sl

Info  •  Files  •  Log  •  Branches

torture: go back to running faster

--- a/test/torture.lsp

+++ b/test/torture.lsp

@@ -1,4 +1,4 @@

-(def ones (map (λ (x) 1) (iota 10000000)))

+(def ones (map (λ (x) 1) (iota 1000000)))

 (write (apply + ones))

 (newline)