Submission #2245099

Source Code Expand

for$y(1..<>){
	$x=1;
	${$_.$/}="$y ".$x++.$/for<>=~/./g;
}
print$$_||NA.$/for<>

Submission Info

Submission Time
Task C - 案内所
User x20
Language Perl (v5.18.2)
Score 100
Code Size 85 Byte
Status AC
Exec Time 647 ms
Memory 1024 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name small large
Score / Max Score 20 / 20 80 / 80
Status
AC × 6
AC × 5
Set Name Test Cases
small basic/basic_case00, basic/basic_case01, basic/basic_case02, basic/basic_case03, basic/basic_case04, basic/sample00
large large/large_case00, large/large_case01, large/large_case02, large/large_case03, large/large_case04
Case Name Status Exec Time Memory
basic/basic_case00 AC 3 ms 384 KB
basic/basic_case01 AC 2 ms 384 KB
basic/basic_case02 AC 2 ms 384 KB
basic/basic_case03 AC 2 ms 384 KB
basic/basic_case04 AC 2 ms 384 KB
basic/sample00 AC 2 ms 384 KB
large/large_case00 AC 610 ms 1024 KB
large/large_case01 AC 615 ms 896 KB
large/large_case02 AC 647 ms 896 KB
large/large_case03 AC 637 ms 896 KB
large/large_case04 AC 586 ms 896 KB