結果

問題 No.279 木の数え上げ
コンテスト
ユーザー gemmaro
提出日時 2020-04-19 22:46:53
言語 Elixir
(1.18.1)
結果
MLE  
(最新)
AC  
(最初)
実行時間 -
コード長 667 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 4,988 ms
コンパイル使用メモリ 74,444 KB
実行使用メモリ 70,392 KB
最終ジャッジ日時 2025-03-31 14:05:05
合計ジャッジ時間 23,827 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other MLE * 21
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

defmodule Main do
  def main do
    input_solve()
    |> IO.puts()
  end

  def input_solve() do
    input_solve_rec([0, 0, 0])
    |> (fn [a, b, c] -> [a, b, c |> div(2)] end).()
    |> Enum.min()
  end

  def input_solve_rec(result) do
    case IO.read(1000) do
      :eof -> result
      s -> input_solve_rec(count_tre(s |> String.to_charlist(), result))
    end
  end

  defp count_tre([], [t, r, e]) do
    [t, r, e]
  end

  defp count_tre(s, [t, r, e]) do
    tl(s)
    |> count_tre(
      cond do
        hd(s) == ?t -> [t + 1, r, e]
        hd(s) == ?r -> [t, r + 1, e]
        hd(s) == ?e -> [t, r, e + 1]
        true -> [t, r, e]
      end
    )
  end
end
0