結果

問題 No.14 最小公倍数ソート
ユーザー vjudge1
提出日時 2025-09-08 10:22:35
言語 Crystal
(1.14.0)
結果
AC  
実行時間 20 ms / 5,000 ms
コード長 827 bytes
コンパイル時間 16,222 ms
コンパイル使用メモリ 311,272 KB
実行使用メモリ 7,936 KB
最終ジャッジ日時 2025-09-08 10:22:54
合計ジャッジ時間 15,765 ms
ジャッジサーバーID
（参考情報） 		judge / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff # 

M = 10000

n = gets.not_nil!.to_i
a = gets.not_nil!.split.map(&.to_i)

cnt = Array.new(M + 1, 0)
(1...n).each { |i| cnt[a[i]] += 1 }

divs = Array(Array(Int32)).new(M + 1) { [1] }
(2..M).each do |i|
  (i..M).step(i) do |j|
    divs[j] << i
  end
end
(1..M).each { |i| divs[i].reverse! }

s = Array(Set(Int32)).new(M + 1) { Set(Int32).new }
(1..M).each do |i|
  if cnt[i] != 0
    divs[i].each { |d| s[d].add(i) }
  end
end

now = a[0]
print "#{now} "
until s[1].empty?
  lcm = 1_000_000_000
  t = 1_000_000_000

  divs[now].each do |d|
    next if s[d].empty?
    v = s[d].first
    candidate = v * now // d
    if lcm >= candidate
      lcm = candidate
      t = Math.min(t, v)
    end
  end

  break if t == 1_000_000_000
  now = t
  cnt[t].times { print "#{t} " }
  cnt[t] = 0
  divs[t].each { |d| s[d].delete(t) }
end
puts
0