Submission #11202832
Source Code Expand
use v5.18; # strict say state use warnings; chomp (my ($n, $m, $p) = split / /, <STDIN>); my $mpow = sub { my ($a, $n) = @_; my $r = 1; while ($n > 0) { $r = $r * $a % $m if $n & 1; $a = $a * $a % $m; $n >>= 1; } return $r; }; say $mpow->($n, $p);
Submission Info
Submission Time | |
---|---|
Task | B - n^p mod m |
User | superrino1 |
Language | Perl (v5.18.2) |
Score | 100 |
Code Size | 284 Byte |
Status | AC |
Exec Time | 4 ms |
Memory | 640 KB |
Compile Error
./Main.pl syntax OK
Judge Result
Set Name | Sample | All | ||
---|---|---|---|---|
Score / Max Score | 0 / 0 | 100 / 100 | ||
Status | AC |
|
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 | 4 ms | 640 KB |
002.txt | AC | 4 ms | 640 KB |
003.txt | AC | 4 ms | 640 KB |
004.txt | AC | 4 ms | 640 KB |
005.txt | AC | 4 ms | 640 KB |
006.txt | AC | 4 ms | 640 KB |
007.txt | AC | 4 ms | 640 KB |
008.txt | AC | 4 ms | 640 KB |
009.txt | AC | 4 ms | 640 KB |
010.txt | AC | 4 ms | 640 KB |
011.txt | AC | 4 ms | 640 KB |
012.txt | AC | 4 ms | 640 KB |
013.txt | AC | 4 ms | 640 KB |
014.txt | AC | 4 ms | 640 KB |
015.txt | AC | 4 ms | 640 KB |
016.txt | AC | 4 ms | 640 KB |
017.txt | AC | 4 ms | 640 KB |
018.txt | AC | 4 ms | 640 KB |
019.txt | AC | 4 ms | 640 KB |
020.txt | AC | 4 ms | 640 KB |
021.txt | AC | 4 ms | 640 KB |
022.txt | AC | 4 ms | 640 KB |
023.txt | AC | 4 ms | 640 KB |
024.txt | AC | 4 ms | 640 KB |
025.txt | AC | 4 ms | 640 KB |
026.txt | AC | 4 ms | 640 KB |
027.txt | AC | 4 ms | 640 KB |
sample_01.txt | AC | 4 ms | 640 KB |
sample_02.txt | AC | 4 ms | 640 KB |