Submission #206322

Source Code Expand

use strict;
use warnings;

chomp(my $line = <>);
my ($h, $m) = split ' ', $line;

my $diff_h = 17 - $h;
my $diff_m = 60 - $m;

my $diff = $diff_h * 60 + $diff_m;
print "$diff\n";

Submission Info

Submission Time
Task A - 門限
User rono_funatsu
Language Perl (5.14.2)
Score 100
Code Size 190 Byte
Status AC
Exec Time 28 ms
Memory 1316 KiB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 20
Set Name Test Cases
Sample subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt, subtask0-sample04.txt
All subtask0-sample01.txt, subtask0-sample02.txt, subtask0-sample03.txt, subtask0-sample04.txt, subtask1-01.txt, subtask1-02.txt, subtask1-03.txt, subtask1-04.txt, subtask1-05.txt, subtask1-06.txt, subtask1-07.txt, subtask1-08.txt, subtask1-09.txt, subtask1-10.txt, subtask1-11.txt, subtask1-12.txt, subtask1-13.txt, subtask1-14.txt, subtask1-15.txt, subtask1-16.txt
Case Name Status Exec Time Memory
subtask0-sample01.txt AC 26 ms 1188 KiB
subtask0-sample02.txt AC 26 ms 1184 KiB
subtask0-sample03.txt AC 26 ms 1188 KiB
subtask0-sample04.txt AC 25 ms 1316 KiB
subtask1-01.txt AC 26 ms 1308 KiB
subtask1-02.txt AC 25 ms 1140 KiB
subtask1-03.txt AC 26 ms 1196 KiB
subtask1-04.txt AC 27 ms 1312 KiB
subtask1-05.txt AC 25 ms 1308 KiB
subtask1-06.txt AC 25 ms 1312 KiB
subtask1-07.txt AC 26 ms 1184 KiB
subtask1-08.txt AC 25 ms 1192 KiB
subtask1-09.txt AC 26 ms 1196 KiB
subtask1-10.txt AC 26 ms 1184 KiB
subtask1-11.txt AC 25 ms 1192 KiB
subtask1-12.txt AC 26 ms 1192 KiB
subtask1-13.txt AC 26 ms 1140 KiB
subtask1-14.txt AC 26 ms 1196 KiB
subtask1-15.txt AC 28 ms 1192 KiB
subtask1-16.txt AC 26 ms 1124 KiB