osiire https://blog.hatena.ne.jp/osiire/ osiire’s blog https://osiire.hatenablog.com/ http://lambda-the-ultimate.org/node/3659 より。とりあえずそれっぽいの(loopはいんちき)を実装してみたんだけど、何が嬉しいのか未だ分からん...。なんとなくすごく使えそうな気がするんだけど。[追記]あー、switchとかchoiseとか無いのかー。これは厳しいなぁ。 (* causal commutative arrows *) type ('a, 'b) t = { run : 'a -> 'b * ('a, 'b) t Lazy.t } let (!$) = Lazy.force (* val arr : ('a -> 'b) -> ('a, '… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fosiire.hatenablog.com%2Fentry%2F20091031" title="CCA - osiire’s 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 2009-10-31 00:00:00 rich https://osiire.hatenablog.com/entry/20091031 1.0 100%