結果

問題 No.500 階乗電卓
ユーザー nobigomunobigomu
提出日時 2018-05-14 19:36:03
言語 Lua
(LuaJit 2.1.1734355927)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 751 bytes
コンパイル時間 43 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-06-28 11:49:14
合計ジャッジ時間 992 ms
ジャッジサーバーID
(参考情報)
judge4 / judge5
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

print((function (f, g, n)
if n>=50 then return "000000000000" end
if n<15 then return g(n) end
return f(math.floor, g, n)
end)(function (f, g, n)
local a,b,c,l,r,s={},{},{},1,5,tostring(g(15))
for i=1,12 do a[i]=tonumber(s:sub(-13+i,-13+i)) end
for _=1,n-15 do
r=r+1 if r==10 then l,r=l+1,0 end
for i=1,12 do b[i],c[i]=0,0 end
for i=12,2,-1 do
local t,u=a[i]*r+b[i],a[i]*l+c[i]
b[i-1],b[i],c[i-1],c[i]=f(t/10),t%10,f(u/10),u%10
end
b[1],c[1]=(a[1]*r+b[1])%10,(a[1]*l+c[1])%10
a[11],a[12]=0,b[12]
for i=11,2,-1 do
local t=a[i]+b[i]+c[i+1]
a[i-1],a[i]=t>9 and 1 or 0,t%10
end
a[1]=(a[1]+b[1]+c[2])%10
end
return table.concat(a)
end, function (n)
local r=1 for i=1,n do r=r*i end return r
end, io.stdin:read("*n")))
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0