ympbyc https://blog.hatena.ne.jp/ympbyc/ 標高+1m https://ympbyc.hatenablog.com/ Lisp continuation 以前の記事 ( call/ccの合成 - 標高+1m )で、やりたかったのはこういうことでした。 たまに便利なことがあると思う。 (define (compose-c/cc . fs) (letrec ((vals (list->vector (map (^ (f i) (f (lambda (res) (vector-set! vals i res) (when cont (cont))))) fs (iota (length fs))))) (cont #f)) (call/cc (lambda (k) (set! cont k))) (vector->list vals))) (cons… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fympbyc.hatenablog.com%2Fentry%2F2020%2F02%2F24%2Fcall%2Fcc%25E3%2581%25AE%25E5%2590%2588%25E6%2588%2590%25E3%2581%25AE%25E8%25A7%25A3" title="call/ccの合成の解 - 標高+1m" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/y/ympbyc/20200224/20200224194439.png Hatena Blog https://hatena.blog 2020-02-24 19:49:03 rich https://ympbyc.hatenablog.com/entry/2020/02/24/call/cc%E3%81%AE%E5%90%88%E6%88%90%E3%81%AE%E8%A7%A3 1.0 100%