結果

問題 No.35 タイパー高橋
ユーザー gemmarogemmaro
提出日時 2020-04-19 13:46:40
言語 Elixir
(1.16.2)
結果
AC  
実行時間 655 ms / 5,000 ms
コード長 550 bytes
コンパイル時間 984 ms
コンパイル使用メモリ 62,628 KB
実行使用メモリ 54,576 KB
最終ジャッジ日時 2024-06-09 23:41:44
合計ジャッジ時間 4,563 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 612 ms
54,200 KB
testcase_01 AC 621 ms
54,576 KB
testcase_02 AC 655 ms
54,012 KB
testcase_03 AC 641 ms
54,040 KB
権限があれば一括ダウンロードができます

ソースコード

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