Submission #5314362

Source Code Expand

my $input = <STDIN>;
chomp $input;
my ($a, $b, $t) = split / /, $input;
$ans = int($t / $a) * $b;
print "$ans";

Submission Info

Submission Time
Task A - Biscuit Generator
User nikuzuki
Language Perl (v5.18.2)
Score 100
Code Size 117 Byte
Status AC
Exec Time 5 ms
Memory 640 KiB

Compile Error

./Main.pl syntax OK

Judge Result

Set Name All Sample
Score / Max Score 100 / 100 0 / 0
Status
AC × 13
AC × 3
Set Name Test Cases
All sample_01, sample_02, sample_03, testcase_1, testcase_10, testcase_2, testcase_3, testcase_4, testcase_5, testcase_6, testcase_7, testcase_8, testcase_9
Sample sample_01, sample_02, sample_03
Case Name Status Exec Time Memory
sample_01 AC 5 ms 640 KiB
sample_02 AC 2 ms 384 KiB
sample_03 AC 2 ms 384 KiB
testcase_1 AC 2 ms 384 KiB
testcase_10 AC 2 ms 384 KiB
testcase_2 AC 2 ms 384 KiB
testcase_3 AC 2 ms 384 KiB
testcase_4 AC 2 ms 384 KiB
testcase_5 AC 2 ms 384 KiB
testcase_6 AC 2 ms 384 KiB
testcase_7 AC 2 ms 384 KiB
testcase_8 AC 2 ms 384 KiB
testcase_9 AC 2 ms 384 KiB