{"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffortran66.hatenablog.com%2Fentry%2F20121227%2F1356618958\" title=\"problem 006 - 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>","author_url":"https://blog.hatena.ne.jp/fortran66/","width":"100%","description":"\u30bd\u30fc\u30b9\u30fb\u30d7\u30ed\u30b0\u30e9\u30e0 program PEuler6 implicit none integer :: i, k(100) = [(i, i = 1, 100)] print *, sum(k)**2 - sum(k**2) ! !print *, sum([1:100])**2 - sum([1:100]**2) ! non-standard stop end program PEuler6 \u5b9f\u884c\u7d50\u679c 25164150 \u7d9a\u884c\u3059\u308b\u306b\u306f\u4f55\u304b\u30ad\u30fc\u3092\u62bc\u3057\u3066\u304f\u3060\u3055\u3044 . . .","blog_title":"fortran66\u306e\u30d6\u30ed\u30b0","url":"https://fortran66.hatenablog.com/entry/20121227/1356618958","published":"2012-12-27 23:35:58","type":"rich","categories":["ProjectEuler"],"author_name":"fortran66","height":"190","provider_name":"Hatena Blog","title":"problem 006","provider_url":"https://hatena.blog","blog_url":"https://fortran66.hatenablog.com/","image_url":null,"version":"1.0"}