缺失的第一个正整数（R）

发慌 。 。 。

 

题目：

给定一个未排序的整数数组，找出其中没有出现的最小的正整数。

示例 1:

输入: [1,2,0]
输出: 3

示例 2:

输入: [7,8,9,11,12]
输出: 1

 

简单点，粗暴点。。

findmin <- function(listnum){
  
  # 直接点，列个10000
  c <- c(1:10000)
  
  # 在结果集里面取消最小值
  re <- min(c[-(which(c %in% listnum))])
  print(re)  
}

验证结果：

It's ok.