結果
問題 | No.2326 Factorial to the Power of Factorial to the... |
ユーザー | kakel-san |
提出日時 | 2023-10-11 00:20:36 |
言語 | C#(csc) (csc 3.9.0) |
結果 |
AC
|
実行時間 | 34 ms / 2,000 ms |
コード長 | 1,380 bytes |
コンパイル時間 | 1,084 ms |
コンパイル使用メモリ | 113,360 KB |
実行使用メモリ | 29,076 KB |
最終ジャッジ日時 | 2024-09-13 01:30:05 |
合計ジャッジ時間 | 2,531 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 20 |
コンパイルメッセージ
Microsoft (R) Visual C# Compiler version 3.9.0-6.21124.20 (db94f4cc) Copyright (C) Microsoft Corporation. All rights reserved.
ソースコード
using System; using static System.Console; using System.Linq; using System.Collections.Generic; class Program { static int NN => int.Parse(ReadLine()); static int[] NList => ReadLine().Split().Select(int.Parse).ToArray(); static int[][] NArr(long n) => Enumerable.Repeat(0, (int)n).Select(_ => NList).ToArray(); public static void Main() { Solve(); } static void Solve() { var c = NList; var (n, p) = (c[0], c[1]); var mod = 1_000_000_007; var f1 = new long[n + 1]; f1[1] = 1; for (var i = 2; i < f1.Length; ++i) f1[i] = f1[i - 1] * i % mod; var f2 = new long[n + 1]; f2[1] = 1; for (var i = 2; i < f2.Length; ++i) f2[i] = f2[i - 1] * i % (mod - 1); var cnt = Exp(f1[n], f2[n], mod); var mul = 0; for (var i = 1; i <= n; ++i) { var tmp = i; while (tmp % p == 0) { ++mul; tmp /= p; } } WriteLine(cnt * mul % mod); } static long Exp(long n, long k, int mod) { if (k == 0) return 1; if (k == 1) return n % mod; var half = Exp(n, k / 2, mod); var result = (half * half) % mod; return ((k % 2) == 0) ? result : ((result * n) % mod); } }