結果

問題 No.2326 Factorial to the Power of Factorial to the...
コンテスト
ユーザー kakel-san
提出日時 2023-10-11 00:17:54
言語 C#(csc)
(csc 3.9.0)
結果
WA  
実行時間 -
コード長 1,378 bytes
コンパイル時間 907 ms
コンパイル使用メモリ 114,636 KB
実行使用メモリ 27,388 KB
最終ジャッジ日時 2024-09-13 01:29:48
合計ジャッジ時間 2,478 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 11 WA * 9
権限があれば一括ダウンロードができます
コンパイルメッセージ
Microsoft (R) Visual C# Compiler version 3.9.0-6.21124.20 (db94f4cc)
Copyright (C) Microsoft Corporation. All rights reserved.

ソースコード

diff # 

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 int[n + 1];
        f1[1] = 1;
        for (var i = 2; i < f1.Length; ++i) f1[i] = f1[i - 1] * i % mod;
        var f2 = new int[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);
    }
}
0