Submission #11202742


Source Code Expand

use v5.18; # strict say state
use warnings;
use Math::BigInt;

chomp (my ($n, $m, $p) = split / /, <STDIN>);
my $modpow = Math::BigInt->new($n)->bmodpow($p, $m);
say $modpow;

Submission Info

Submission Time
Task B - n^p mod m
User superrino1
Language Perl (v5.18.2)
Score 100
Code Size 180 Byte
Status AC
Exec Time 30 ms
Memory 4608 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 100 / 100
Status AC
AC × 29
Set Name Test Cases
Sample
All 001.txt, 002.txt, 003.txt, 004.txt, 005.txt, 006.txt, 007.txt, 008.txt, 009.txt, 010.txt, 011.txt, 012.txt, 013.txt, 014.txt, 015.txt, 016.txt, 017.txt, 018.txt, 019.txt, 020.txt, 021.txt, 022.txt, 023.txt, 024.txt, 025.txt, 026.txt, 027.txt, sample_01.txt, sample_02.txt
Case Name Status Exec Time Memory
001.txt AC 29 ms 4480 KB
002.txt AC 29 ms 4480 KB
003.txt AC 29 ms 4480 KB
004.txt AC 29 ms 4480 KB
005.txt AC 29 ms 4480 KB
006.txt AC 30 ms 4608 KB
007.txt AC 29 ms 4480 KB
008.txt AC 30 ms 4480 KB
009.txt AC 29 ms 4480 KB
010.txt AC 30 ms 4480 KB
011.txt AC 29 ms 4480 KB
012.txt AC 30 ms 4480 KB
013.txt AC 30 ms 4480 KB
014.txt AC 30 ms 4608 KB
015.txt AC 29 ms 4480 KB
016.txt AC 29 ms 4608 KB
017.txt AC 29 ms 4480 KB
018.txt AC 30 ms 4480 KB
019.txt AC 29 ms 4480 KB
020.txt AC 30 ms 4480 KB
021.txt AC 29 ms 4480 KB
022.txt AC 29 ms 4480 KB
023.txt AC 29 ms 4480 KB
024.txt AC 29 ms 4480 KB
025.txt AC 29 ms 4480 KB
026.txt AC 29 ms 4480 KB
027.txt AC 30 ms 4480 KB
sample_01.txt AC 30 ms 4480 KB
sample_02.txt AC 29 ms 4480 KB