RでSTAP細胞を探す

  • 2
    いいね
  • 2
    コメント
この記事は最終更新日から1年以上が経過しています。
n <- length(LETTERS)

while(1){
  x <- do.call(paste, c(as.list(LETTERS[sample(1:26, 4, replace=T)]), sep=""))
  print(paste(x, "細胞"))
  if(x == "STAP"){
    print("陽性かくにん!")
    print("よかった☆")
    break
  }
}