結果

問題 No.35 タイパー高橋
ユーザー gemmarogemmaro
提出日時 2020-04-19 13:46:40
言語 Elixir
(1.16.2)
結果
AC  
実行時間 667 ms / 5,000 ms
コード長 550 bytes
コンパイル時間 1,270 ms
コンパイル使用メモリ 54,972 KB
実行使用メモリ 49,992 KB
最終ジャッジ日時 2023-08-30 00:30:00
合計ジャッジ時間 4,990 ms
ジャッジサーバーID
（参考情報） 		judge12 / judge15
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 667 ms
49,572 KB
testcase_01 AC 658 ms
49,872 KB
testcase_02 AC 665 ms
49,412 KB
testcase_03 AC 662 ms
49,992 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