結果
問題 | No.500 階乗電卓 |
ユーザー |
![]() |
提出日時 | 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 |
ソースコード
print((function (f, g, n)if n>=50 then return "000000000000" endif n<15 then return g(n) endreturn 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)) endfor _=1,n-15 dor=r+1 if r==10 then l,r=l+1,0 endfor i=1,12 do b[i],c[i]=0,0 endfor i=12,2,-1 dolocal 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%10endb[1],c[1]=(a[1]*r+b[1])%10,(a[1]*l+c[1])%10a[11],a[12]=0,b[12]for i=11,2,-1 dolocal t=a[i]+b[i]+c[i+1]a[i-1],a[i]=t>9 and 1 or 0,t%10enda[1]=(a[1]+b[1]+c[2])%10endreturn table.concat(a)end, function (n)local r=1 for i=1,n do r=r*i end return rend, io.stdin:read("*n")))