{"blog_url":"https://higepon.hatenablog.com/","url":"https://higepon.hatenablog.com/entry/20070215/1171553268","type":"rich","image_url":null,"title":" call/cc","published":"2007-02-15 00:27:48","height":"190","provider_name":"Hatena Blog","html":"<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>","provider_url":"https://hatena.blog","blog_title":"higepon blog","author_name":"higepon","version":"1.0","width":"100%","categories":["Scheme"],"description":"call/cc \u306e\u826f\u3044 unit test\u3092\u63a2\u3057\u3066\u3044\u305f\u3089\u3001\u7d50\u57ce\u3055\u3093\u306e\u3068\u3053\u308d\u3067\u826f\u3044\u306e\u3092\u767a\u898b\u3002 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) )","author_url":"https://blog.hatena.ne.jp/higepon/"}