{"image_url":null,"blog_title":"The King's Museum","url":"https://hjm333.hatenablog.com/entry/2020/01/27/210000","type":"rich","author_name":"hjm333","blog_url":"https://hjm333.hatenablog.com/","width":"100%","title":"Scheme \u624b\u7fd2\u3044\uff08\uff16\uff09","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhjm333.hatenablog.com%2Fentry%2F2020%2F01%2F27%2F210000\" title=\"Scheme \u624b\u7fd2\u3044\uff08\uff16\uff09 - The King&#39;s Museum\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["Scheme"],"published":"2020-01-27 21:00:00","version":"1.0","description":"\u7b2c\uff17\u7ae0\uff1a\u53cb\u9054\u3068\u89aa\u985e set? (define (set? lat) (cond [(null? lat) #t] [(member? (car lat) (cdr lat)) #f] [else (set? (cdr lat))])) lat \u304c\u91cd\u8907\u8981\u7d20\u3092\u6301\u305f\u306a\u3044\uff08= \u30bb\u30c3\u30c8\u304b\u3069\u3046\u304b\uff09\u304b\u3092\u8abf\u3079\u308b\u95a2\u6570\u3002 \u524d\u7ae0\u307e\u3067\u3067\u3059\u3067\u306b\u5b9a\u7fa9\u3057\u305f\u624b\u7d9a\u304d member? \u3092\u5229\u7528\u3059\u308b\u3002 makeset (define (makeset lat) (cond [(null? lat) '()] [(member? (car lat) (cdr lat)) (makeset (cdr lat))] [else (cons\u2026","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/hjm333/","height":"190"}