eolymp
Yardım

Решение на Perl

Решение на Perl

Все решения, независимо от языка программирования, проверяются автоматической системой. Система проверки создает изолированное, пустое окружение для вашей программы, компилирует ее и запускает несколько раз с разным набором входных данных. После этого проверяющая система сверяет вывод программы с ожидаемым результатом используя специальный алгоритм.

Проверяющая система не анализирует код программы, не проверяет его содержимое, форматирование, название переменных, размер программы и тд.

В случае проверки с использованием файлов для ввода вывода, вывод в стандартные потоки ввода-вывода (stdin и stdout) игнорируется. В случае использования стандартных потоков ввода вывода (stdin и stdout) проверяющая система не анализирует файлов созданных решением.

Входные данные всегда соответствуют ограничениям указанным в условии задачи. В решении нет необходимости проверять корректность ввода, если только об этом напрямую не сказано в условии задачи. Будьте внимательны, строки во входных данных разделены символом перевода новой строки \nили комбинацией символов перевода новой строки и возврата курсора:\r\n. Программа должна корректно обрабатывать оба варианта.

Ответом считаются все данные напечатанные программой во время выполнения, поэтому если ваша программа выводит дополнительные сообщения, например "Введите число" или "Ответ: " эти сообщения будут считаться частью ответа и решение не будет засчитано. Следуйте инструкциям в условии задачи чтобы отформатировать ответ правильно.

Вы можете отправить решения написанные на языке программирования Perl используя компилятор Perl. Проверяющая система использует компилятор Perl 5.32.

В случае если компилятор возвращает ошибку, решение не тестируется и проверяющая система засчитывает "Ошибку компиляции". На странице решения будет отображено сообщение об ошибке сгенерированное компилятором.

Пример решения простой задачи на Perl:

$x = <STDIN>;
print(int($x / 10), " ", $x % 10)
open($fin, "<input.txt");
open($fout, ">output.txt");
$x = <$fin>;
print $fout (int($x / 10), " ", $x % 10)