谁能解释一下 yin/yang puzzle 吗?

rickxbx

1. 
   
2. (let ((yin ((lambda (foo) (newline) foo) (call/cc (lambda (bar) bar))))
   
3.          (yang ((lambda (foo) (write-char #\*) foo) (call/cc (lambda (bar) bar)))))
   
4.    (yin yang))
   

复制代码

zhenghj1024

这儿有一个解释:

http://blog.csdn.net/wangyonggang/archive/2004/09/18/109209.aspx

guoke

我的怎么不能运行？
用的是scheme48

结果是：
Error: undefined variable
       call/cc
       (package user)

rickxbx

Post by guoke
我的怎么不能运行？
用的是scheme48

结果是：
Error: undefined variable
       call/cc
       (package user)

(define call/cc call-with-current-continuation)

rickxbx

重复发帖,,

rickxbx

重复发帖..

rickxbx

重复发帖...

guoke

果然好了，呵呵，不停的在打印 *
不懂，只是运行一下
谢谢