Created
February 10, 2009 00:12
-
-
Save jcoglan/61114 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
((call/cc call/cc) (call/cc call/cc)) ; create k1, pass to call/cc | |
((call/cc k1) (call/cc call/cc)) ; create k2, pass to k1 | |
((k1 k2) (call/cc call/cc)) ; call (k1 k2), abandon stack | |
(k2 (call/cc call/cc)) ; fill k1 hole with k2. create k3, pass to call/cc | |
(k2 (call/cc k3)) ; create k4, pass to k3 | |
(k2 (k3 k4)) ; call (k3 k4), abandon stack | |
(k3 k4) ; fill k3 hole with k4 | |
(k2 k4) ; call (k2 k4), abandon stack | |
(k4 (call/cc call/cc)) ; fill k2 hole with k4 | |
; ... and so on |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment