RでSTAP細胞を探す

  • 2
    Like
  • 2
    Comment
More than 1 year has passed since last update.
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
  }
}