Submission #2499660

Source Code Expand

$_=get.words>>.Int;say (abs(.[0]-.[1]) <=.[3] && abs(.[1]-.[2]) <=.[3] or abs(.[0]-.[2]) <=.[3]) ?? "
Yes" !! "No";

Submission Info

Submission Time
Task A - Colorful Transceivers
User omniheal
Language Perl6 (rakudo-star 2016.01)
Score 100
Code Size 116 Byte
Status AC
Exec Time 707 ms
Memory 64640 KiB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 10
Set Name Test Cases
Sample 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt
All 0_000.txt, 0_001.txt, 0_002.txt, 0_003.txt, 1_003.txt, 1_004.txt, 1_005.txt, 1_006.txt, 1_007.txt, 1_008.txt
Case Name Status Exec Time Memory
0_000.txt AC 707 ms 64640 KiB
0_001.txt AC 151 ms 51452 KiB
0_002.txt AC 153 ms 52480 KiB
0_003.txt AC 151 ms 50556 KiB
1_003.txt AC 152 ms 51584 KiB
1_004.txt AC 153 ms 51456 KiB
1_005.txt AC 153 ms 51068 KiB
1_006.txt AC 152 ms 51068 KiB
1_007.txt AC 153 ms 50564 KiB
1_008.txt AC 153 ms 50816 KiB