R语言只利用for循环写线性同余发生器

R语言是一种专门用于统计计算和图形展示的语言，虽然它的设计并不强调效率优化，但对于编写简单的线性同余生成器，我们可以使用基本的for循环。线性同余发生器（Linear Congruential Generator，LCG）是一种常用的伪随机数生成算法，它基于模运算。

下面是一个简单的例子，展示了如何在R中仅用for循环创建一个基本的线性同余发生器：

# 定义常量
a <- 1103515245L  # 系数
c <- 12345L       # 移位量
m <- 2^32 - 1      # 最大值，通常选择一个大的素数

# 初始化种子
seed_value <- 1234

# for循环生成伪随机数序列
linear_congruential_generator <- function(n) {
  sequence <- numeric(n)
  for (i in 1:n) {
    current_number <- (a * seed_value + c) % m  # 计算下一个随机数
    sequence[i] <- current_number
    seed_value <- current_number  # 更新种子值
  }
  return(sequence)
}

# 示例：生成10个随机数
random_sequence <- linear_congruential_generator(10)
print(random_sequence)