結果

問題 No.1168 Digit Sum Sequence
ユーザー norioc
提出日時 2024-11-12 03:46:30
言語 Elixir
(1.18.1)
結果
AC  
実行時間 665 ms / 2,000 ms
コード長 375 bytes
コンパイル時間 2,283 ms
コンパイル使用メモリ 61,316 KB
実行使用メモリ 54,408 KB
最終ジャッジ日時 2024-11-12 03:46:54
合計ジャッジ時間 24,054 ms
ジャッジサーバーID
(参考情報)
judge1 / judge5
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 2
other AC * 29
権限があれば一括ダウンロードができます

ソースコード

diff #

defmodule Main do
  def input, do: IO.read(:line) |> String.trim
  def ii, do: input() |> String.to_integer
  def li, do: input() |> String.split |> Enum.map(&String.to_integer/1)

  def digital_root(0), do: 0
  def digital_root(x) when x > 0 do
    case rem(x, 9) do
      0 -> 9
      n -> n
    end
  end

  def main do
    n = ii()

    IO.puts digital_root(n)
  end
end
0