AtCoder Typical Contest 002

Submission #11202832

Source codeソースコード

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

Task問題 B - n^p mod m
User nameユーザ名 superrino1
Created time投稿日時
Language言語 Perl (v5.18.2)
Status状態 AC
Score得点 100
Source lengthソースコード長 284 Byte
File nameファイル名
Exec time実行時間 4 ms
Memory usageメモリ使用量 640 KB

Compiler messageコンパイルメッセージ

./Main.pl syntax OK

Test case

Set

Set name Score得点 / Max score Cases
Sample -
All 100 / 100 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
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