{"type":"rich","image_url":null,"url":"https://zehnpaard.hatenablog.com/entry/2019/06/15/234825","version":"1.0","blog_title":"Arantium Maestum","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fzehnpaard.hatenablog.com%2Fentry%2F2019%2F06%2F15%2F234825\" title=\"OCaml\u306748 Hour Scheme\u3092\u3084\u3063\u3066\u307f\u308b\u3000\u305d\u306e\uff12\u3000\uff08\u7b2c\u4e09\u7ae0\u5f8c\u534a\uff09 - Arantium Maestum\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2019-06-15 23:48:25","categories":["OCaml","\u8a00\u8a9e\u51e6\u7406\u7cfb"],"provider_name":"Hatena Blog","width":"100%","height":"190","author_name":"zehnpaard","blog_url":"https://zehnpaard.hatenablog.com/","title":"OCaml\u306748 Hour Scheme\u3092\u3084\u3063\u3066\u307f\u308b\u3000\u305d\u306e\uff12\u3000\uff08\u7b2c\u4e09\u7ae0\u5f8c\u534a\uff09","author_url":"https://blog.hatena.ne.jp/zehnpaard/","description":"\u524d\u56de\u304b\u3089\u7d9a\u3044\u3066Write Yourself a Scheme in 48 Hours\u7b2c\u4e09\u7ae0\u3002 primitive\u95a2\u6570\u9069\u7528\u306e\u8a55\u4fa1\u307e\u3067\u5b9f\u88c5\u3059\u308b\u3002 github.com src/eval.ml\u3068\u3044\u3046\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u65b0\u305f\u306b\u4f5c\u3063\u305f\u3002 open Exp (* \u7701\u7565 *) let rec f e = match e with | String _ -> e | Number _ -> e | Bool _ -> e | List [Atom \"quote\"; e2] -> e2 (* \u7701\u7565 *) | _ -> failwith \"Evaluation not implemented\" \u307e\u305a\u306f\u3053\u3093\u306a\u611f\u3058\u306b\u6587\u5b57\u5217\u3001\u2026","provider_url":"https://hatena.blog"}