{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.emattsan.org%2Fentry%2F20160228%2F1456657928\" title=\" Fibonacci numbers with Prolog - \u30a8\u30f3\u30b8\u30cb\u30a2\u306e\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u7684\u611b\u60c5\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","type":"rich","blog_url":"https://blog.emattsan.org/","published":"2016-02-28 20:12:08","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","height":"190","blog_title":"\u30a8\u30f3\u30b8\u30cb\u30a2\u306e\u30bd\u30d5\u30c8\u30a6\u30a7\u30a2\u7684\u611b\u60c5","width":"100%","description":"% fib.pro :- initialization(main). add(X, Y, Z) :- Z is (X + Y). fib(N, [1,1|Fib3]) :- append(Fib1, [_], Fib2), append(Fib2, [_], Fib3), length([1,1|Fib3], N), maplist(add, [1,1|Fib1], [1|Fib2], Fib3), !. puts(N) :- format(\"~d~n\", [N]). main :- current_prolog_flag(argv, [_,Length|_]), number_atom(N,\u2026","author_name":"E_Mattsan","image_url":null,"title":" Fibonacci numbers with Prolog","version":"1.0","url":"https://blog.emattsan.org/entry/20160228/1456657928","author_url":"https://blog.hatena.ne.jp/E_Mattsan/","categories":["Prolog","\u3081\u3082"]}