Функция двух сумм в R

Question

Я пытался создать функцию, которая будет подбирать 2 числа в списке, которые имеют сумму целевого числа.

Может кто-нибудь сообщить мне, почему мой код не работает?

Спасибо!

TwoSum <- function(num, target) {
  for (i in 1:length(num) - 1) {
    for (j in i+1:length(num)) {
      if (num[i] + num[j] == target) {
        print("the numbers are:")
        print(paste0(num[i], num[j]))
        a <- a - 1
      }
    }
  }
  if (a == 1) {
    print("No pairs")
  }  
} 

a <- 1
num <- c(1,2,3,4,5)
target <- 7

TwoSum(num,target)

Answer 1

Вы не должны использовать цикл для этого.Используйте combn вместо:

combs <- combn(num, 2)
combs[,colSums(combs) == target]
#     [,1] [,2]
#[1,]    2    3
#[2,]    5    4

Answer 2

Введите скобки во второй и третьей строке.

TwoSum <- function(num, target) {
  for (i in 1:(length(num) - 1)) {
    for (j in (i+1):length(num)) {
      if (num[i] + num[j] == target) {
        print("the numbers are:")
        print(paste0(num[i], num[j]))
        a <- a - 1
    }
  }