{"height":"190","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","description":"Problem 6 N <- 100 v <- 1:N s1 <- sum(v) s2 <- sum(v * v) print(s1 * s1 - s2) v * v\u3068\u3059\u308b\u3068\u5404\u9805\u306e\u81ea\u4e57\u306e\u30d9\u30af\u30c8\u30eb\u306b\u306a\u308a\u307e\u3059\u3002 Problem 7 make_primes <- function(N) { a <- rep(TRUE, N) # TRUE\u306b\u521d\u671f\u5316 \u6700\u7d42\u7684\u306bTRUE\u306a\u3089\u7d20\u6570 for(p in 2:N) { if(p * p > N) { break } if(a[p]) { a <- replace(a, seq(p * p, N %/% p * p, p), FALSE) } } return(a)\u2026","published":"2013-07-14 00:00:00","image_url":null,"author_name":"inamori","version":"1.0","blog_url":"https://inamori.hateblo.jp/","type":"rich","blog_title":"inamori\u2019s diary","width":"100%","url":"https://inamori.hateblo.jp/entry/20130714/p1","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20130714%2Fp1\" title=\"R\u3067Project Euler 6\u301c10 - inamori\u2019s diary\" 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/inamori/","categories":["R"],"title":"R\u3067Project Euler 6\u301c10"}