結果
問題 | No.500 階乗電卓 |
ユーザー |
|
提出日時 | 2020-05-13 09:04:57 |
言語 | Elixir (1.18.1) |
結果 |
AC
|
実行時間 | 581 ms / 2,000 ms |
コード長 | 603 bytes |
コンパイル時間 | 1,036 ms |
コンパイル使用メモリ | 62,648 KB |
実行使用メモリ | 55,040 KB |
最終ジャッジ日時 | 2024-12-31 04:58:30 |
合計ジャッジ時間 | 15,741 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 20 |
ソースコード
defmoduleMain do@mask 1_000_000_000_000def main doIO.read(:line) |> String.trim() |> String.to_integer() |> solve |> IO.puts()enddef solve(n) docond don < 60 -> solve_rec(n, 1, false):else -> "000000000000"endenddef solve_rec(1, r, pad) docond dopad -> r |> to_string |> String.pad_leading(12, "0"):else -> rendenddef solve_rec(n, r, pad) dotmp = n * ra = tmp |> div(@mask)cond doa == 0 -> solve_rec(n - 1, tmp, pad || false):else -> solve_rec(n - 1, tmp - a * @mask, true)endendend