r-statistics-fan https://blog.hatena.ne.jp/r-statistics-fan/ r-statistics-fanの日記 https://r-statistics-fan.hatenablog.com/ R CodeIQ 7 を数えるの解答例 - 裏 RjpWiki 合っているか自信がないので、裏 RjpWikiさんのコードと自分のコードを 比較して検証してみる。 simn <- 100000res <- matrix(0, nrow = simn, ncol = 2)for (i in 1:simn){ res[i,1] <- func2(i) res[i,2] <- as.integer(f5(7, as.character(i)))} sum(res[,1] == res[,2]) > sum(res[,1] == res[,2])[1] 100000 うむ７を数える場合は少なくとも1000… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fr-statistics-fan.hatenablog.com%2Fentry%2F2014%2F07%2F09%2F022142" title="7を数える。検証 - r-statistics-fanの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2014-07-09 02:21:42 rich https://r-statistics-fan.hatenablog.com/entry/2014/07/09/022142 1.0 100%