Блог

Я пытаюсь представить решение относительно простой CodeChef проблемы, найденной здесь.

Вот мой код:

 f <- file("stdin")

on.exit(close(f))

foo <- readLines(f,warn=FALSE)

n <- if (sum(as.numeric(unlist(strsplit(foo[2], " ")))) %% 2 == 0) 1 else 2

write(n, stdout(),ncolumns=1)
 

Используя их код на основе браузера, компиляцию и запуск IDE, приведенный выше код обеспечивает правильный вывод для следующих примеров входных данных, представленных в вопросе:

Примечание.Вы можете предоставить свои собственные данные в разделе «Пользовательский ввод«, а затем нажать «Выполнить«, чтобы выполнить собственные тесты перед официальной отправкой, нажав «Отправить«.

Примечание 2: Я ввожу примеры входных данных ниже по одному за раз (первая и вторая строки, как показано на рисунке).

 # Sample input #1
2
1 2
# Output: 2


# Sample input #2
3
1 1 2
# Output: 1

# Sample input #3
3
1 2 4
# Output: 2
 

Однако, когда я нажимаю кнопку «Отправить«, код каждый раз не проходит тесты.

Для тех , кто успешно CodeChef справился с проблемами с использованием R , какие изменения мне нужно внести в свой код, чтобы он успешно был отправлен?