結果
| 問題 | 
                            No.516 赤と青の風船
                             | 
                    
| コンテスト | |
| ユーザー | 
                             | 
                    
| 提出日時 | 2020-04-18 19:04:46 | 
| 言語 | Elixir  (1.18.1)  | 
                    
| 結果 | 
                             
                                AC
                                 
                             
                            
                         | 
                    
| 実行時間 | 537 ms / 2,000 ms | 
| コード長 | 282 bytes | 
| コンパイル時間 | 927 ms | 
| コンパイル使用メモリ | 62,648 KB | 
| 実行使用メモリ | 54,616 KB | 
| 最終ジャッジ日時 | 2024-12-31 04:18:29 | 
| 合計ジャッジ時間 | 6,289 ms | 
| 
                            ジャッジサーバーID (参考情報)  | 
                        judge3 / judge5 | 
(要ログイン)
| ファイルパターン | 結果 | 
|---|---|
| sample | AC * 2 | 
| other | AC * 6 | 
ソースコード
defmodule Main do
  def main do
    1..3
    |> Enum.map(fn _ -> IO.read(:line) |> String.trim() end)
    |> solve
    |> IO.puts()
  end
  def solve(s) do
    cond do
      2 * (s |> Enum.count(fn x -> x == "RED" end)) < s |> length -> "BLUE"
      true -> "RED"
    end
  end
end