{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20121230%2F1356881673\" title=\"Problem 15 - fortran66\u306e\u30d6\u30ed\u30b0\" 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://fortran66.hatenablog.com/","author_name":"fortran66","height":"190","published":"2012-12-30 00:34:33","categories":["ProjectEuler"],"url":"https://fortran66.hatenablog.com/entry/20121230/1356881673","title":"Problem 15","description":"\u3092\u30d1\u30b9\u30ab\u30eb\u306e\u4e09\u89d2\u5f62\u3067\u6c42\u3081\u307e\u3059\u3002\uff14\u30d0\u30a4\u30c8\u6574\u6570\u3067\u306f\u30aa\u30fc\u30d0\u30fc\u30d5\u30ed\u30fc\u3057\u307e\u3059\u3002 \u30bd\u30fc\u30b9\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0 program PEuler015 implicit none integer, parameter :: ki = selected_int_kind(15), n = 20 integer :: i integer(ki), allocatable :: ipascal(:) ipascal = [1] do i = 1, 2 * n ipascal= [0_ki, ipascal] + [ipascal, 0_ki] end do print *, ipascal(n + 1) ! Pascal's\u2026","image_url":null,"provider_url":"https://hatena.blog","provider_name":"Hatena Blog","width":"100%","type":"rich","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","version":"1.0","author_url":"https://blog.hatena.ne.jp/fortran66/"}