結果

問題 No.2326 Factorial to the Power of Factorial to the...
ユーザー tails
提出日時 2023-05-28 16:02:49
言語 C90
(gcc 12.3.0)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 749 bytes
コンパイル時間 1,029 ms
コンパイル使用メモリ 24,960 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-12-27 10:36:31
合計ジャッジ時間 2,126 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 20
権限があれば一括ダウンロードができます
コンパイルメッセージ
main.c: In function ‘main’:
main.c:28:17: warning: implicit declaration of function ‘read’ [-Wimplicit-function-declaration]
   28 |                 read(0,rbuf,sizeof rbuf);
      |                 ^~~~
main.c:6:59: warning: implicit declaration of function ‘write’ [-Wimplicit-function-declaration]
    6 | #define wt1(v) ({char wbuf[64],*wp=wbuf+sizeof wbuf;wt(v);write(1,wp,wbuf+sizeof wbuf-wp);})
      |                                                           ^~~~~
main.c:42:9: note: in expansion of macro ‘wt1’
   42 |         wt1(b);
      |         ^~~
main.c:43:9: warning: implicit declaration of function ‘_exit’ [-Wimplicit-function-declaration]
   43 |         _exit(0);
      |         ^~~~~
main.c:43:9: warning: incompatible implicit declaration of built-in function ‘_exit’ [-Wbuiltin-declaration-mismatch]

ソースコード

diff # 

#pragma GCC optimize("Ofast")
#pragma GCC target("avx2")

#define rd() ({long _v=0,_c;while(_c=*rp++-48,_c>=0)_v=_v*10+_c;_v;})
#define wt(v) ({ulong _z=v;do*--wp=_z%10+48;while(_z/=10);})
#define wt1(v) ({char wbuf[64],*wp=wbuf+sizeof wbuf;wt(v);write(1,wp,wbuf+sizeof wbuf-wp);})
#define rep3(v,s,e) for(typeof(e) v=s;v<e;++v)
#define MD 1000000007

typedef unsigned long ulong;

ulong modpow(ulong a, ulong b){
	ulong r=1;
	while(b){
		if(b&1){
			r=r*a%MD;
		}
		b>>=1;
		a=a*a%MD;
	}
	return r;
}

int main(){
	ulong n,p;
	{
		char rbuf[64];
		read(0,rbuf,sizeof rbuf);
		char*rp=rbuf;
		n=rd();
		p=rd();
	}
	ulong a=1,b=1,c=0;
	rep3(i,1,n+1){
		a=a*i%(MD-1);
		b=b*i%MD;
	}
	while(n){
		c+=n/=p;
	}
	b=modpow(b,a)*c%MD;
	wt1(b);
	_exit(0);
}
0