compare the triplets in R

triplets.R

# Enter your code here. Read input from STDIN. Print output to STDOUT

con <- file('stdin','r')
input <- readLines(con)

n1 <- input[[1]]
n2 <- input[[2]]

n1 <- as.numeric(unlist(strsplit(n1, ' ')))
n2 <- as.numeric(unlist(strsplit(n2, ' ')))

alice = 0
bob = 0

for(i in seq(n1))
{   
    if(n1[i] > n2[i])
    {
        alice = alice + 1
    } else if(n1[i] < n2[i])
    {
        bob = bob + 1
    } else {
        next
    }  
}

result <- c(alice, bob)
cat(result)