結果

問題 No.5 数字のブロック
ユーザー gemmaro
提出日時 2020-04-17 08:59:08
言語 Elixir
(1.18.1)
結果
AC  
実行時間 636 ms / 5,000 ms
コード長 516 bytes
コンパイル時間 963 ms
コンパイル使用メモリ 63,500 KB
実行使用メモリ 60,892 KB
最終ジャッジ日時 2024-12-31 04:13:33
合計ジャッジ時間 22,484 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 34
権限があれば一括ダウンロードができます

ソースコード

diff # 

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

  defp solve([l, _, w]) do
    solve_rec(
      w |> String.split() |> Enum.map(&String.to_integer/1) |> Enum.sort(),
      0,
      l |> String.to_integer()
    )
  end

  defp solve_rec(w, c, n) do
    cond do
      w |> Enum.empty?() || n < w |> hd ->
        c

      true ->
        solve_rec(w |> Enum.slice(1..-1), c + 1, n - (w |> hd))
    end
  end
end
0