Closed gregr closed 8 years ago
I got Chez installed. It takes 22.5s, but it looks like the 'even harder' query does work now!
> (time (run 1 (q)
(evalo
`(begin
(define append
(lambda (l s)
(if (null? l)
s
(cons (car l)
(append ,q s)))))
(append '(1 2 3) '(4 5)))
'(1 2 3 4 5))))
(time (run 1 ...))
35 collections
22.546730816s elapsed cpu time, including 0.006898530s collecting
22.759408733s elapsed real time, including 0.007011698s collecting
295384272 bytes allocated, including 293515472 bytes reclaimed
((cdr l))
This is the same change I showed earlier.
I don't have the dependencies set up to test this in Barliman on my end, so try it out first.