結果
| 問題 | 
                            No.5 数字のブロック
                             | 
                    
| コンテスト | |
| ユーザー | 
                             3qvwn
                         | 
                    
| 提出日時 | 2019-07-01 23:48:15 | 
| 言語 | Elixir  (1.18.1)  | 
                    
| 結果 | 
                             
                                AC
                                 
                             
                            
                         | 
                    
| 実行時間 | 604 ms / 5,000 ms | 
| コード長 | 459 bytes | 
| コンパイル時間 | 864 ms | 
| コンパイル使用メモリ | 63,464 KB | 
| 実行使用メモリ | 59,560 KB | 
| 最終ジャッジ日時 | 2024-12-31 03:05:58 | 
| 合計ジャッジ時間 | 21,440 ms | 
| 
                            ジャッジサーバーID (参考情報)  | 
                        judge4 / judge2 | 
(要ログイン)
| ファイルパターン | 結果 | 
|---|---|
| other | AC * 34 | 
ソースコード
defmodule Main do
  def main do
    l = IO.gets("") |> String.trim |> String.to_integer
    _ = IO.gets("")
    w = IO.gets("") |> String.trim |> String.split |> Enum.map(&String.to_integer(&1)) |> Enum.sort
    sum(w, 0, l, 0) |> IO.puts
  end
  
  def sum([], _, _, count) do
   count
  end
  
  def sum([head | tail], total, l, count) when total+head <= l do
    sum(tail, total + head, l, count+1)
  end
  
  def sum(_, _, _, count) do
    count
  end
end
            
            
            
        
            
3qvwn