{"published":"2008-04-01 05:32:43","categories":["Scheme"],"height":"190","version":"1.0","description":"Scheme\u74b0\u5883\u304c\u6574\u3063\u3066\u304d\u305f\u306e\u30673\u7ae0\u306b\u5165\u308d\u3046\u3002 \u9280\u884c\u30b7\u30b9\u30c6\u30e0\u3092\u4f5c\u3063\u3066\u3044\u304f\u307f\u305f\u3044\u3002 (define *balance* 100) (define (withdraw amount) (if (>= *balance* amount) (begin (set! *balance* (- *balance* amount)) *balance*) \"\u304a\u91d1\u304c\u7121\u3044\u3063\u3059\uff01\uff01\")) (withdraw 25) ; 75 (withdraw 25) ; 50 (withdraw 60) ; \u304a\u91d1\u304c\u7121\u3044\u3063\u3059\uff01\uff01 3\u7ae0\u306b\u5165\u3063\u3066\u3084\u3063\u3068set!\u304c\u51fa\u3066\u304d\u305f\u3051\u3069\u3001\u3053\u308c\u306f\u6c17\u6301\u3061\u60aa\u3044\u3002 *\u30b0\u30ed\u30fc\u30d0\u30eb*\u3068\u3057\u3066\u307f\u305f\u3051\u3069\u3001\u30b0\u30ed\u30fc\u30d0\u2026","blog_title":"\u30dc\u30af\u30ce\u30b9","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080401%2F1206995563\" title=\" SICP\u3092\u8aad\u3080(89) 3.1.1 set! - \u30dc\u30af\u30ce\u30b9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/tanakaBox/","blog_url":"https://boxnos.hatenablog.com/","width":"100%","provider_url":"https://hatena.blog","type":"rich","author_name":"tanakaBox","provider_name":"Hatena Blog","image_url":null,"url":"https://boxnos.hatenablog.com/entry/20080401/1206995563","title":" SICP\u3092\u8aad\u3080(89) 3.1.1 set!"}