Submission #2122093

Source Code Expand

use v5.18;
use warnings;
use utf8;
use List::Util qw( min );
sub line { chomp(my $str = <>); $str; }
sub split_line { (split / /, line) }

my ($n, $x) = split_line;
say min $x - 1, $n - $x;

Submission Info

Submission Time
Task A - 赤赤赤赤青
User mp0liiu
Language Perl (v5.18.2)
Score 100
Code Size 199 Byte
Status AC
Exec Time 5 ms
Memory 896 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 13
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt
Case Name Status Exec Time Memory
sample_01.txt AC 5 ms 896 KB
sample_02.txt AC 5 ms 896 KB
sample_03.txt AC 5 ms 896 KB
subtask1_01.txt AC 5 ms 896 KB
subtask1_02.txt AC 5 ms 896 KB
subtask1_03.txt AC 5 ms 896 KB
subtask1_04.txt AC 5 ms 768 KB
subtask1_05.txt AC 5 ms 896 KB
subtask1_06.txt AC 5 ms 896 KB
subtask1_07.txt AC 5 ms 896 KB
subtask1_08.txt AC 5 ms 896 KB
subtask1_09.txt AC 5 ms 896 KB
subtask1_10.txt AC 5 ms 896 KB