Skip to content

Instantly share code, notes, and snippets.

@agrif

agrif/yinyang.scm

Created March 26, 2012 14:16
Show Gist options
  • Save agrif/2205376 to your computer and use it in GitHub Desktop.
Save agrif/2205376 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
yinyang.scm
;; yin-yang puzzle
;; expected output: @*@**@***@****@...
(let* ((yin
((lambda (cc) (write 'stdout "@") cc) (call/cc (lambda (c) c))))
(yang
((lambda (cc) (write 'stdout "*") cc) (call/cc (lambda (c) c)))))
(yin yang))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment