Skip to content

Instantly share code, notes, and snippets.

@deeglaze

deeglaze/gist:40ec1ee101ee7f316180

Created July 17, 2014 19:16
Show Gist options
  • Save deeglaze/40ec1ee101ee7f316180 to your computer and use it in GitHub Desktop.
Save deeglaze/40ec1ee101ee7f316180 to your computer and use it in GitHub Desktop.
Download ZIP
This destroys abstract garbage collection.
Raw
gistfile1.txt
(define (flatten x)
(cond
((pair? x)
(append (flatten (car x)) (flatten (cdr x))))
((null? x) x)
(else (list x))))
(flatten '((1 2) (((3 4 5)))))
@deeglaze
Copy link
Author

In my implementation of an abstract GCing pushdown Scheme analysis, this times out after 30 minutes, using close to 2GiB of memory.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment