{"height":"190","provider_url":"https://hatena.blog","categories":["SICP"],"author_name":"kiririmode","type":"rich","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkiririmode.hatenablog.jp%2Fentry%2F20080314%2Fp2\" title=\"\u554f\u984c3-18 (3.3.1  Mutable List Structure) - \u7406\u7cfb\u5b66\u751f\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2008-03-14 00:00:01","author_url":"https://blog.hatena.ne.jp/kiririmode/","title":"\u554f\u984c3-18 (3.3.1  Mutable List Structure)","blog_title":"\u7406\u7cfb\u5b66\u751f\u65e5\u8a18","url":"https://kiririmode.hatenablog.jp/entry/20080314/p2","description":"\u4e0e\u3048\u3089\u308c\u305f\u30ea\u30b9\u30c8\u306e\u4e2d\u306b\uff0c\u30b5\u30a4\u30af\u30eb\u304c\u3042\u308b\u304b\u3069\u3046\u304b\u3092\u8fd4\u3059\u8ff0\u8a9e\u3092\u4f5c\u308b\uff0e \u30a2\u30a4\u30c7\u30a3\u30a2\u3068\u3057\u3066\u306f\uff0c\u4eca\u307e\u3067\u898b\u305f\u30dd\u30a4\u30f3\u30bf\u3092\u5168\u3066\u8a18\u61b6\u3057\u3066\u3044\u3063\u3066\uff0c\u8a18\u61b6\u3057\u305f\u5168\u3066\u3068 cdr \u3092\u9010\u4e00\u6bd4\u8f03\u3057\u3066\u3044\u304f\u3068\u3044\u3046\u5358\u7d14\u306a\u65b9\u6cd5\uff0e (define (has-cycle? l) (define (not-include? elem l) (not (find (lambda (x) (eq? x elem)) l))) (define sight '()) (define (successive-cdr x) (cond ((not (pair? x)) #f) ((not (not-include? x sight)) #t) (els\u2026","provider_name":"Hatena Blog","width":"100%","version":"1.0","blog_url":"https://kiririmode.hatenablog.jp/"}