{"author_name":"moremagic","published":"2014-06-04 23:15:08","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmoremagic.hateblo.jp%2Fentry%2F20140604%2F1401891308\" title=\"define \u306e\u7f60 - moremagic\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u81ea\u5206\u306e\u51e6\u7406\u7cfb\u3067LandOfLisp\u3092\u52d5\u304b\u3057\u3066\u307f\u3088\u3046\u3068\u596e\u95d8\u4e2d\u3002 \u3067\u3082 define \u306e\u4f7f\u3044\u65b9\u304c\u3061\u3087\u3063\u3068\u305a\u3064\u9055\u3046\u3002\u3002\u3002 Scheme\u624b\u7fd2\u3044\u3068\u9055\u3046\u306e\u3067\u6df7\u4e71\u6c17\u5473\u3002 ;;land of lisp P13 (define guess-my-number () (ash (+ *small* *big*) -1)) ;;https://github.com/shirok/Gauche-LoL/blob/master/guess.scm (define (guess-my-number) (ash (+ *small* *big*) -1)) \u3053\u308c\u5168\u90e8 lambda \u3092\u7701\u7565\u3057\u3066\u3044\u308b\u3068\u601d\u3063\u3066\u3044\u3044\u306e\u304b\u306a\uff1f \u3046\u30fc\u3093\u2026","categories":["Scheme\u624b\u7fd2\u3044","MyLisp(\u4eee\u79f0)"],"provider_name":"Hatena Blog","type":"rich","blog_title":"moremagic\u2019s diary","height":"190","url":"https://moremagic.hateblo.jp/entry/20140604/1401891308","author_url":"https://blog.hatena.ne.jp/moremagic/","blog_url":"https://moremagic.hateblo.jp/","version":"1.0","provider_url":"https://hatena.blog","title":"define \u306e\u7f60","image_url":null}