Skip to content

Instantly share code, notes, and snippets.

@jcoglan
Created February 10, 2009 00:12
Show Gist options
  • Save jcoglan/61114 to your computer and use it in GitHub Desktop.
Save jcoglan/61114 to your computer and use it in GitHub Desktop.
((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