結果

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

ソースコード

diff # 

// same as https://yukicoder.me/submissions/875319
#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