R 中的 For 循环在没有内置函数的情况下在单个向量中查找重复项

Question

我发现这是一个面试问题，似乎无法解决。 您不能使用任何内置的 R 函数。

x <- c(77, 12, 4, 8, 77, 2, 4, 12)
answer <- FALSE #int the answer to FALSE

我看它的方式是循环需要 77 并将其与右侧进行比较。 一旦它在 x[5] 看到下一个 77，它应该返回 answer <- TRUE 并且代码应该完全停止。 但是假设第一个数字不是重复的，那么下一次通过它就不需要再次查看 x[1]，因为它在第一次通过时已经完成了 x[1] vs x[2]。

这是我一直在做的，但似乎无法得到它。 我有 n <- 长度（x）。 我添加了一个变量 count <- 0，但在第一个循环中它递增 1。然后在下一个循环中我说“从计数到结尾”，但也不确定这是否正确。 似乎发生的事情是它不会在第一次重复时脱离，然后到达 x 中的最后一个索引并将其与自身进行比较，因此返回 TRUE，这是不正确的。

for (i in 1:n){  #wasn't sure if this should be 2:n?
count <- count +1
  for (stuff in (count:n)){ 
    if (stuff){
      answer <- TRUE
      break #I thought this would break the entire code when it see's x[1] vs x[5] which is 77 duplicate
    }
  }
}
answer

Answer 1

这将起作用：

x <- c(77, 12, 4, 8, 77, 2, 4, 12)
answer <- FALSE
n <- length(x)
for(count in 1:n){
  for(compare in x[-count]){
    if(x[count] == compare){
      answer <- TRUE
      break()
    }
  }
  if(answer){break()}
}

Answer 2

以下：

!all(duplicated(x))

似乎工作，并且不使用any() ， is.element或%in%功能。 如果您希望您的老师变得更聪明并学习“内置”功能的定义，您可以回答：）

编辑：否则，可以在O(n) 时间和 O(1) 额外空间中找到一个好的算法。

Answer 3

这应该有效：

for (i in x) {
  repeats <- length(x[x == i])
  if (repeats < 2) {

  } else {
    print(paste(i, "has duplicates"))
    break
  }
}