結果

問題 No.24 数当てゲーム
コンテスト
ユーザー 3qvwn
提出日時 2019-07-05 21:12:31
言語 Elixir
(1.19.5)
コンパイル:
elixirc _filename_
実行:
elixir -e Main.main
結果
AC  
実行時間 348 ms / 5,000 ms
コード長 648 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 767 ms
コンパイル使用メモリ 72,708 KB
実行使用メモリ 64,572 KB
最終ジャッジ日時 2026-06-04 14:38:16
合計ジャッジ時間 5,457 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge2_1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 10
権限があれば一括ダウンロードができます
コンパイルメッセージ
warning: 0..-2 has a default step of -1, please write 0..-2//-1 instead
  Main.exs:8: Main.iikanji/1

ソースコード

diff #
raw source code 

defmodule Main do 
  def main do
    n = IO.gets("") |> String.trim |> String.to_integer
    IO.stream(:stdio, :line) |> Enum.take(n) |> Enum.map(&String.trim/1) |> Enum.map(&String.split/1) |> Enum.map(&iikanji(&1)) |> Enum.map(&guess(&1)) |> Enum.reduce([0,1,2,3,4,5,6,7,8,9], fn list, acc -> acc -- list end) |> Enum.at(0) |>  IO.puts
  end
  
  def iikanji(list) do
   list |> (fn list -> [Enum.slice(list, 0..-2) |> Enum.map(&String.to_integer/1) , Enum.at(list, -1)] end).()
  end
  
  def guess([head|tail]) when tail == ["YES"] do
    [0,1,2,3,4,5,6,7,8,9] -- head
  end
  
  def guess([head|tail]) when tail == ["NO"] do
    head
  end
end
0