higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ Scheme call/cc の良い unit testを探していたら、結城さんのところで良いのを発見。 g:sicp:id:hyuki:20060506:cont3 (define find (lambda (pred list) (call/cc (lambda (return) (for-each (lambda (e) (if (pred e) (return e))) list) #f)))) (assert-check-true "call/cc" (= (find even? (list 1 2 3 4)) 2) (= (find odd? (list 1 2 3 4)) 1) ) 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20070215%2F1171553268" title=" call/cc - higepon blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-02-15 00:27:48 rich https://higepon.hatenablog.com/entry/20070215/1171553268 1.0 100%