結果

問題 No.1205 Eye Drops
コンテスト
ユーザー penqen
提出日時 2020-12-15 20:06:46
言語 Elixir
(1.19.5)
コンパイル:
elixirc _filename_
実行:
elixir -e Main.main
結果
AC  
実行時間 1,232 ms / 2,000 ms
コード長 821 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 878 ms
コンパイル使用メモリ 73,240 KB
実行使用メモリ 95,672 KB
最終ジャッジ日時 2026-06-04 16:18:12
合計ジャッジ時間 20,637 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge2_1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 37
権限があれば一括ダウンロードができます
コンパイルメッセージ
    warning: variable "i" is unused (if the variable is not meant to be used, prefix it with an underscore)
    │
  5 │     nm = for i <- 0..(m - 1) do
    │              ~
    │
    └─ Main.exs:5:14: Main.main/0

ソースコード

diff #
raw source code 

defmodule Main do
  def main do
    [n, m] = IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(&String.to_integer/1)

    nm = for i <- 0..(m - 1) do
      IO.read(:line) |> String.trim() |> String.split(" ") |> Enum.map(&String.to_integer/1)
    end
    
    solve(n, m, nm) |> IO.puts
  end
  
  def solve(n, m, matrix) when 1 <= n
    and 0 <= m and m <= 100_000
    and is_list(matrix)
  do
    matrix
    |> Enum.reduce({true, {0, 0}}, fn
      [ti, pi], {true, {ct, cp}} ->
        dt = ti - ct
        dp = abs(cp - pi)
        if dp <= dt and pi < n do
          {true, {ti, pi}}
        else
          false
        end
      _, false ->
        false
    end)
    |> (fn
      false ->
        "No"
      {true, _} ->
        "Yes"
    end).()
  end

  def solve(_n, _m, _matrix), do: "No"
  
end
0