Submission #4214934

Source Code Expand

my @c;
for ^3 {
    my ($a,$b)=get.words>>.Int;
    @c[$a - 1]++; @c[$b - 1]++;
}
say (@c.grep(* %% 2) == +@c - 2 or @c.grep(* %% 2) == +@c) ?? "YES" !! "NO";

Submission Info

Submission Time
Task B - Path
User omniheal
Language Perl6 (rakudo-star 2016.01)
Score 200
Code Size 165 Byte
Status AC
Exec Time 317 ms
Memory 67484 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 200 / 200
Status
AC × 3
AC × 13
Set Name Test Cases
Sample s1.txt, s2.txt, s3.txt
All 01.txt, 02.txt, 03.txt, 04.txt, 05.txt, 06.txt, 07.txt, 08.txt, 09.txt, 10.txt, s1.txt, s2.txt, s3.txt
Case Name Status Exec Time Memory
01.txt AC 317 ms 67484 KiB
02.txt AC 163 ms 52892 KiB
03.txt AC 166 ms 53020 KiB
04.txt AC 164 ms 53912 KiB
05.txt AC 166 ms 53148 KiB
06.txt AC 166 ms 53912 KiB
07.txt AC 165 ms 54296 KiB
08.txt AC 163 ms 53020 KiB
09.txt AC 167 ms 54168 KiB
10.txt AC 163 ms 54428 KiB
s1.txt AC 163 ms 53020 KiB
s2.txt AC 162 ms 52888 KiB
s3.txt AC 162 ms 52888 KiB