Submission #2731783

Source Code Expand

Copy
my $k = <>; chomp $k;

$base=19;
for my $n (1..$k) {
    if ($n < 10) {
        print "$n\n";
    }
    else {
        print "$base\n";
        $base+=10;
    }
}

Submission Info

Submission Time
Task D - Snuke Numbers
User tsukumaru
Language Perl (v5.18.2)
Score 0
Code Size 175 Byte
Status
Exec Time 3 ms
Memory 640 KB

Compile Error

./Main.pl syntax OK

Test Cases

Set Name Score / Max Score Test Cases
Sample 0 / 0 sample.txt
All 0 / 500 sample.txt, 1.txt, sample.txt
Case Name Status Exec Time Memory
1.txt 3 ms 640 KB
sample.txt 2 ms 384 KB