{"title":"lat? \u5b9f\u88c5\u306b\u30c1\u30e3\u30ec\u30f3\u30b8","published":"2013-06-12 15:13:49","url":"https://moremagic.hateblo.jp/entry/20130612/1371017629","blog_url":"https://moremagic.hateblo.jp/","author_name":"moremagic","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/moremagic/","version":"1.0","blog_title":"moremagic\u2019s diary","description":"P15 lat?\u3092\u66f8\u3044\u3066\u307f\u3066\u304f\u3060\u3055\u3044\u3068\u3044\u3046\u554f\u984c\u3002 \u3068\u308a\u3042\u3048\u305a\u5148\u306e\u30da\u30fc\u30b8\u3092\u898b\u306a\u3044\u3067\u3069\u308c\u3060\u3051\u304b\u3051\u308b\u304b\u6311\u6226\u3057\u3066\u307f\u307e\u3057\u305f (define atom? (lambda (x) (and (not (pair? x)) (not (null? x))))) (define (lat? n) (cond ((atom? n) true) ((null? n) true) (else (and (atom? (car n)) (lat? (cdr n)))))) (lat? (cons 1 (cons 3 4))) ; #t \u3093\uff1f\u306a\u3093\u304b\u3046\u307e\u304f\u3044\u304b\u306a\u3044\u3002(lat? (cdr n)) \u304c\u3046\u307e\u304f\u8a00\u3063\u3066\u306a\u3044\u306e\u304b\u3068\u601d\u3063\u2026","image_url":null,"height":"190","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmoremagic.hateblo.jp%2Fentry%2F20130612%2F1371017629\" title=\"lat? \u5b9f\u88c5\u306b\u30c1\u30e3\u30ec\u30f3\u30b8 - 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>","provider_name":"Hatena Blog","categories":["Scheme\u624b\u7fd2\u3044"],"type":"rich"}