が話題なので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細胞の作成に", roun…