以前コルーチンの記事Co-Routine / Pythonを書きましたが、Scheme(Lisp)でやってみました。最近、データ処理には「やはりLispが向いているかも」という気まぐれから、Schemeに再びはまっています。Schemeといえば、call/ccによる「継続」が有名ですが、ならばコルーチンでしょう、ということになりました。しくみがわかりやすいようにシンプルなものにしました。

#lang racket
(define cont #f)
(call/cc (lambda (return) 
           ((lambda (yield)(yield 1)(yield 2)(yield 4)) 
            (lambda (value)
               (call/cc (lambda (c)
                    (set! cont c)
                      (return value)))))))

今回使ったこのDrRacketというツールは、初めて使ったのですが、とても高機能で使いやすいです。再びはまったのも、このツールによるところが大です。

http://blog.livedoor.jp/kosugip/archives/692821.html 参考