結果

問題 No.2326 Factorial to the Power of Factorial to the...
ユーザー kakel-sankakel-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.

ソースコード

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 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);
    }
}
0