結果

問題 No.24 数当てゲーム
コンテスト
ユーザー 3qvwn
提出日時 2019-07-05 21:12:31
言語 Elixir
(1.20.4)
コンパイル:
elixirc _filename_
実行:
elixir -e Main.main
結果
AC  
実行時間 317 ms / 5,000 ms
+ 661µs
コード長 648 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 1,232 ms
コンパイル使用メモリ 78,140 KB
実行使用メモリ 68,280 KB
最終ジャッジ日時 2026-10-11 01:58:26
合計ジャッジ時間 6,077 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge4_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 11
権限があれば一括ダウンロードができます
コンパイルメッセージ
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