結果

問題 No.5002 stick xor
コンテスト
ユーザー TANIGUCHI Kousuke
提出日時 2020-09-08 18:16:49
言語 Ruby
(3.4.1)
結果
AC  
実行時間 15 ms / 1,000 ms
コード長 797 bytes
コンパイル時間 27 ms
実行使用メモリ 11,836 KB
スコア 19,741
最終ジャッジ日時 2020-09-08 18:16:52
ジャッジサーバーID
（参考情報） 		judge6 / judge7
純コード判定しない問題か言語
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 32
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

def up!(y,x,l); puts "#{y - l + 1} #{x} #{y} #{x}"; end

N, K = gets.split.map(&:to_i)

L = gets.split.map(&:to_i)
A = Array.new(K)
B = Array.new(N + 1){ [] }

MAP = N.times.map{ gets.chomp.chars.map(&:to_i) }
Up = Array.new(N + 1){ Array.new(N + 1, 0) }

(1 .. N).each do |x|
  s_ = (1 .. N).inject(0) do |s, y|
    b = MAP[y - 1][x - 1]
    next s + 1 if b > 0
    B[s] << [y - 1, x] if s > 0
    next 0
  end
  B[s_] << [N, x] if s_ > 0
end

(1 .. N).each do |l|
  B[l].sort_by!{|y,x| -y }
end

L.each do |l|
  if B[l].empty?
    j = B.rindex{|q| !q.empty? }
    y, x = B[j].shift
    if j > l
      up!(y,x,l)
      B[j - l] << [y - l, x]
    elsif y > l
      up!(y, x, l)
      B[l - j] << [y - j, x]
    else
      up!(l, x, l)
    end
  else
    y,x = B[l].shift
    up!(y,x,l) 
  end
end
0