Lisp Scheme Part22 - 暇つぶし2ch

Lisp Scheme Part22 ..

265:デフォルトの名無しさん
08/06/01 07:28:43
ambは再帰で書くと分かりにくいが、これならどうだ

(define-syntax amb
　(syntax-rules ()
　　((_ x ...)
　　　(let/cc yield
　　　　(let/cc fallthrough
　　　　　(push! stack fallthrough)
　　　　　(yield x))
　　　　...
　　　　((pop! stack))))))

次ページ

続きを表示

1を表示