{"author_name":"shigemk2","url":"https://www.shigemk2.com/entry/20130516/1368636554","author_url":"https://blog.hatena.ne.jp/shigemk2/","height":"190","description":"gcd\u95a2\u6570\u3092\u518d\u5b9a\u7fa9\u3057\u3064\u3064\u3001 \u305d\u308c\u3092let\u3092\u4f7f\u3063\u3066\u3082\u3046\u4e00\u5ea6\u518d\u5b9a\u7fa9\u3059\u308b ;; \u4f55\u5ea6\u3082gcd*\u3092\u547c\u3073\u51fa\u3059\u306e\u306f\u3059\u3063\u304d\u308a\u3057\u306a\u3044 (defun gcd* (x y) (if (= (mod x y) 0) y (gcd* y (mod x y)))) (print (gcd* 10 8)) ;; 2 (defun gcd** (x y) (let ((r (mod x y))) (if (= r 0) y (gcd** y r)))) (print (gcd** 10 8)) ;; 2","blog_url":"https://www.shigemk2.com/","provider_name":"Hatena Blog","image_url":null,"width":"100%","type":"rich","title":"\u5bfe\u8a71\u306b\u3088\u308bCommon Lisp\u5165\u9580 51 gcd","published":"2013-05-16 01:49:14","version":"1.0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20130516%2F1368636554\" title=\"\u5bfe\u8a71\u306b\u3088\u308bCommon Lisp\u5165\u9580 51 gcd - by shigemk2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","categories":["\u8aad\u66f8\u30ce\u30fc\u30c8"],"blog_title":"by shigemk2"}