結果

問題 No.1988 Divisor Tiling
ユーザー siman
提出日時 2022-06-30 16:20:56
言語 Ruby
(3.4.1)
結果
WA  
実行時間 -
コード長 783 bytes
コンパイル時間 400 ms
コンパイル使用メモリ 7,296 KB
実行使用メモリ 13,056 KB
最終ジャッジ日時 2024-11-24 12:51:22
合計ジャッジ時間 6,262 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 19 WA * 13
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.rb:18: warning: ambiguous first argument; put parentheses or a space even after `-' operator
Syntax OK

ソースコード

diff # 

class Integer
  def divisor_list
    require 'prime'

    return [] if self <= 0
    return [1] if self == 1

    prime_division.map.with_index { |(base, k), i|
      s = i.zero? ? 0 : 1
      (s..k).map { |n| base ** n }
    }.inject { |res, e| res + res.flat_map { |t| e.map { |v| t * v } } }.sort
  end
end

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

if N % H != 0
  puts -1
  exit
end

W = N / H
ans = Array.new(H) { Array.new(N / H, 0) }
y = 0
x = 0

N.divisor_list.reverse_each do |v|
  next if v == N
  h = v / W
  w = v % W

  if h > 0
    y.upto(y + h - 1) do |cy|
      0.upto(W - 1) do |cx|
        ans[cy][cx] = v
      end
    end
  else
    w.times do
      ans[y][x] = v
      x += 1
    end
  end

  if h > 0
    y += h
    x = 0
  end
end

puts ans.map { |row| row.join(' ') }
0