彩票模拟StackOverflowException异常

Question

我开始编写彩票模拟程序（49个中的6个）。用户可以插入6个数字。然后程序开始创建随机数。如果随机数与用户编号匹配，程序将停止并进行一些评估。

我有一个var来统计随机数的实际创建，因为我想让用户了解在必要的情况下尝试匹配随机数的次数。问题：创建5000个随机数后，系统会引发StackOverflowException。我目前正在学习C＃。刚拿了我的第一个Java程序并开始编程。如何防止StackOverflowException。我希望我的程序尽可能快。

pvalue <- function(x, ...) UseMethod("pvalue")
pvalue.survdiff <- function (x, ...) 
{
  if (length(x$n) == 1) {
    df <- 1
    pval <- pchisq(x$chisq, 1, lower.tail = FALSE)
  } else {
    if (is.matrix(x$obs)) {
      otmp <- rowSums(x$obs)
      etmp <- rowSums(x$exp)
    } else {
      otmp <- x$obs
      etmp <- x$exp
    }
    df <- sum(etmp > 0) - 1
    pval <- pchisq(x$chisq, df, lower.tail = FALSE)
  }
  list(chisq = x$chisq, p.value = pval, df = df)
}

srv <- survdiff(Surv(futime, fustat) ~ rx, data = ovarian)

pvalue(srv)
#$chisq
#[1] 1.06274
#
#$p.value
#[1] 0.3025911
#
#$df
#[1] 1