编写R语言函数 找出1000 以内所有恰好有且只有两组不同质数相加得到的偶数注意最后输出的结果要包括偶数本身以及对应的两个相加的质数注意两个相加的质数不能相等。

prime_sum <- function(n) { primes <- c() for (i in 2:n) { if (all(i %% primes != 0)) { primes <- c(primes, i) } }

result <- c() for (i in 4:n) { if (i %% 2 == 0) { count <- 0 for (j in primes) { if (j >= i) { break } if (i - j > j && (i-j) % 2 == 0 && (i-j) % 3 != 0 && all((i-j) %% primes != 0)) { count <- count + 1 if (count == 2) { result <- c(result, i, j, i-j) break } } } } } return(result) }

prime_sum(1000