Submission #11202832


Source Code Expand

Copy
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
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
× 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 4 ms 640 KB
002.txt 4 ms 640 KB
003.txt 4 ms 640 KB
004.txt 4 ms 640 KB
005.txt 4 ms 640 KB
006.txt 4 ms 640 KB
007.txt 4 ms 640 KB
008.txt 4 ms 640 KB
009.txt 4 ms 640 KB
010.txt 4 ms 640 KB
011.txt 4 ms 640 KB
012.txt 4 ms 640 KB
013.txt 4 ms 640 KB
014.txt 4 ms 640 KB
015.txt 4 ms 640 KB
016.txt 4 ms 640 KB
017.txt 4 ms 640 KB
018.txt 4 ms 640 KB
019.txt 4 ms 640 KB
020.txt 4 ms 640 KB
021.txt 4 ms 640 KB
022.txt 4 ms 640 KB
023.txt 4 ms 640 KB
024.txt 4 ms 640 KB
025.txt 4 ms 640 KB
026.txt 4 ms 640 KB
027.txt 4 ms 640 KB
sample_01.txt 4 ms 640 KB
sample_02.txt 4 ms 640 KB