Submission #174132

Source Code Expand

#!/usr/bin/perl

use strict;
use warnings;

use POSIX;

my $N = <STDIN>;
chomp($N);

if ($N == 1) {
	print 1;
} else {
	print ceil($N / 2);
}
print "\n";

Submission Info

Submission Time
Task A - 引越し作業
User minasa
Language Perl (5.14.2)
Score 100
Code Size 168 Byte
Status AC
Exec Time 105 ms
Memory 4900 KB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 22
Set Name Test Cases
All large_1000.txt, large_997.txt, large_998.txt, large_999.txt, random_148.txt, random_155.txt, random_198.txt, random_362.txt, random_403.txt, random_667.txt, random_795.txt, random_811.txt, random_85.txt, random_959.txt, small_10.txt, small_11.txt, small_3.txt, small_4.txt, small_6.txt, small_7.txt, small_8.txt, small_9.txt
Case Name Status Exec Time Memory
large_1000.txt AC 101 ms 4888 KB
large_997.txt AC 98 ms 4896 KB
large_998.txt AC 99 ms 4888 KB
large_999.txt AC 102 ms 4888 KB
random_148.txt AC 100 ms 4880 KB
random_155.txt AC 99 ms 4856 KB
random_198.txt AC 98 ms 4864 KB
random_362.txt AC 98 ms 4888 KB
random_403.txt AC 98 ms 4896 KB
random_667.txt AC 100 ms 4900 KB
random_795.txt AC 105 ms 4896 KB
random_811.txt AC 103 ms 4896 KB
random_85.txt AC 104 ms 4888 KB
random_959.txt AC 103 ms 4872 KB
sample_1.txt AC 101 ms 4892 KB
sample_2.txt AC 102 ms 4896 KB
sample_3.txt AC 98 ms 4896 KB
small_10.txt AC 98 ms 4900 KB
small_11.txt AC 99 ms 4896 KB
small_3.txt AC 100 ms 4888 KB
small_4.txt AC 98 ms 4884 KB
small_6.txt AC 102 ms 4888 KB
small_7.txt AC 105 ms 4804 KB
small_8.txt AC 102 ms 4888 KB
small_9.txt AC 99 ms 4888 KB