MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 医学 が話題なのでRでやっといた。 stap <- "STAP" tmp <- "" t1 <- proc.time()["elapsed"] while(tmp != stap){ tmp <- paste(sample(LETTERS, size=4, replace=TRUE), collapse="") print(tmp) } t2 <- proc.time()["elapsed"] paste("STAP細胞の作成に", round(t2 - t1), "秒かかりました") [1] "STAP細胞の作成に 7 秒かかりました" たまたま早く作成できたけれども、重複を許してサンプリングして… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20140603%2F1401798802" title="STAP細胞が見つかるまでひたすら適当な細胞を生成し続けるプログラム - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2014-06-03.png Hatena Blog https://hatena.blog 2014-06-03 21:33:22 rich https://mikuhatsune.hatenadiary.com/entry/20140603/1401798802 1.0 100%