Submission #3418409

Source Code Expand

use bigint;$n=<>;print$_,$/for 50,($n/50+50|0)x($m=$n%50),($n/50+49-$m|0)x(50-$m)

Submission Info

Submission Time
Task D - Decrease (Contestant ver.)
User kotatsugame
Language Perl (v5.18.2)
Score 600
Code Size 81 Byte
Status AC
Exec Time 33 ms
Memory 5120 KB

Compile Error

overload arg '..' is invalid at /usr/share/perl/5.18/Math/BigInt.pm line 155.
./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 600 / 600
Status
AC × 5
AC × 25
Set Name Test Cases
Sample example0, example1, example2, example3, example4
All corner0, corner1, corner2, corner3, corner4, corner5, corner6, corner7, corner8, corner9, example0, example1, example2, example3, example4, rand0, rand1, rand2, rand3, rand4, rand5, rand6, rand7, rand8, rand9
Case Name Status Exec Time Memory
corner0 AC 31 ms 4864 KB
corner1 AC 33 ms 5120 KB
corner2 AC 31 ms 4864 KB
corner3 AC 32 ms 4864 KB
corner4 AC 32 ms 4864 KB
corner5 AC 32 ms 4864 KB
corner6 AC 32 ms 4864 KB
corner7 AC 32 ms 4864 KB
corner8 AC 32 ms 4864 KB
corner9 AC 32 ms 4864 KB
example0 AC 32 ms 4864 KB
example1 AC 31 ms 4864 KB
example2 AC 32 ms 4864 KB
example3 AC 32 ms 4864 KB
example4 AC 32 ms 4864 KB
rand0 AC 32 ms 4864 KB
rand1 AC 32 ms 4864 KB
rand2 AC 32 ms 4864 KB
rand3 AC 32 ms 4864 KB
rand4 AC 32 ms 4864 KB
rand5 AC 32 ms 4864 KB
rand6 AC 32 ms 4864 KB
rand7 AC 32 ms 4864 KB
rand8 AC 32 ms 4864 KB
rand9 AC 32 ms 4864 KB