結果

問題 No.1988 Divisor Tiling
コンテスト
ユーザー mai
提出日時 2022-06-24 23:31:41
言語 Ruby
(3.4.1)
結果
AC  
実行時間 112 ms / 2,000 ms
コード長 757 bytes
コンパイル時間 407 ms
コンパイル使用メモリ 7,552 KB
実行使用メモリ 13,056 KB
最終ジャッジ日時 2024-11-08 19:02:48
合計ジャッジ時間 5,053 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 32
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.rb:51: warning: ambiguous first argument; put parentheses or a space even after `-' operator
Syntax OK

ソースコード

diff # 

def lscan; gets.split.map(&:to_i); end

n, h = lscan

div = (1..(n-1)).filter{|x| n/x*x == n}.to_a

dd = div + [n]

dd.each do |w|
  h2 = 0
  stk = 0
  ok = true
  div.each do |x|
    if x/w*w != x
      stk += x
      if stk > w
        # p [w, stk]
        ok = false
        break
      end
      if stk == w
        h2 += 1
        stk = 0
      end
      next
    end
    h2 += x/w
  end
  next unless ok
  # p h2
  if h2 == h || w == h
    mat = []
    stk = []
    div.each do |x|
      if x/w*w != x
        stk += [x]*x
        if stk.size == w
          mat << stk
          stk = []
        end
        next
      end
      (x/w).times {mat << [x]*w}
    end
    mat = mat.transpose if w == h
    puts mat.map{|l| l*' '}
    exit
  end
end

p -1
0