結果

問題 No.35 タイパー高橋
コンテスト
ユーザー gemmaro
提出日時 2020-04-19 13:46:40
言語 Elixir
(1.18.1)
結果
AC  
実行時間 632 ms / 5,000 ms
コード長 550 bytes
コンパイル時間 952 ms
コンパイル使用メモリ 63,176 KB
実行使用メモリ 55,220 KB
最終ジャッジ日時 2024-12-31 04:26:20
合計ジャッジ時間 4,587 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 4
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
  def main do
    1..(IO.read(:line)
        |> String.trim()
        |> String.to_integer())
    |> Enum.map(fn _ ->
      IO.read(:line)
      |> String.trim()
      |> String.split()
    end)
    |> solve
    |> IO.puts()
  end

  def solve(s) do
    solve_rec(s, 0, 0)
  end

  def solve_rec([], c, w) do
    "#{c} #{w}"
  end

  def solve_rec([[t, s] | u], c, w) do
    v = s |> String.length()

    a =
      [v, (12 * (t |> String.to_integer())) |> div(1000)]
      |> Enum.min()

    solve_rec(u, c + a, w + v - a)
  end
end
0