結果

問題 No.2863 Base 10 Subsets 1
コンテスト
ユーザー norioc
提出日時 2024-09-02 02:10:18
言語 Elixir
(1.18.1)
結果
AC  
実行時間 633 ms / 2,000 ms
コード長 566 bytes
コンパイル時間 972 ms
コンパイル使用メモリ 63,676 KB
実行使用メモリ 55,600 KB
最終ジャッジ日時 2024-09-02 02:10:35
合計ジャッジ時間 12,642 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 14
権限があれば一括ダウンロードができます

ソースコード

diff # 

defmodule Main do
  def input, do: IO.read(:line) |> String.trim
  def ii, do: input() |> String.to_integer
  def li, do: input() |> String.split |> Enum.map(&String.to_integer/1)
  def yn(b), do: IO.puts(if b, do: "Yes", else: "No")

  def main do
    [s, t] = input() |> String.split

    s = String.to_charlist(s)
    t = String.to_charlist(t)
    yn(f(s, t))
  end

  def f(s, t) when length(s) < length(t), do: false
  def f(s, t) do
    ns = length(s)
    nt = length(t)
    Enum.zip(Enum.drop(s, ns-nt), t)
    |> Enum.all?(fn {a, b} -> a >= b end)
  end
end
0