結果

問題 No.16 累乗の加算
コンテスト
ユーザー 826814741_6
提出日時 2018-12-26 16:23:37
言語 Lua
(LuaJit 2.1.1765228720)
結果
WA  
実行時間 -
コード長 325 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 144 ms
コンパイル使用メモリ 6,692 KB
実行使用メモリ 6,824 KB
最終ジャッジ日時 2024-10-01 14:43:56
合計ジャッジ時間 758 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 2 WA * 12
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

print((function (g, fh, m)
	local f,r = g(fh:read("*n"),m),0
	for _=1,fh:read("*n") do r=r+f(fh:read("*n"))%m end
	return r%m
end)(function (x, m)
	local ba,rs = bit.band,bit.rshift
	return function (n)
		local r=1
		while n~=0 do r,x,n=ba(n,1)~=0 and r*(x%m) or r,x*(x%m),rs(n,1) end
		return r
	end
end, io.stdin, 1000003))
0