{"title":" Project Euler Problem 9","provider_url":"https://hatena.blog","width":"100%","height":"190","categories":["Project Euler","Emacs Lisp"],"image_url":null,"author_url":"https://blog.hatena.ne.jp/ancient-v/","provider_name":"Hatena Blog","author_name":"ancient-v","blog_title":"\u601d\u3044\u3064\u3044\u305f\u3089\u66f8\u304f\u65e5\u8a18 Ex","description":"\u554f\u984c9: a+b+c=1000 \u304b\u3064 a^2+b^2=c^2 (a<b<c) \u3092\u6e80\u305f\u3059\u552f\u4e00\u306e a b c \u306e\u7a4d\u3092\u6c42\u3081\u3088\u3002[=>\u554f\u984c\u6587] \u554f\u984c9\u306e\u89e3\u7b54 (defun problem009 (N) (let ((a 0) (ans nil)) (while (and (null ans) (< (incf a) N)) (let* ((a2 (* a a)) (n (- N a)) (b (1+ a)) (c 0)) (while (and (null ans) (< b (setq c (- n b)))) (if (= (+ a2 (* b b)) (* c c)) (setq ans (* \u2026","url":"https://ancient-v.hatenadiary.org/entry/20091115/1258211839","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fancient-v.hatenadiary.org%2Fentry%2F20091115%2F1258211839\" title=\" Project Euler Problem 9 - \u601d\u3044\u3064\u3044\u305f\u3089\u66f8\u304f\u65e5\u8a18 Ex\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://ancient-v.hatenadiary.org/","published":"2009-11-15 00:17:19","version":"1.0"}