結果

問題 No.14 最小公倍数ソート
コンテスト
ユーザー らっしー(raccy)
提出日時 2016-09-25 20:33:19
言語 Crystal
(1.19.1)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
AC  
実行時間 1,356 ms / 5,000 ms
+ 203µs
コード長 447 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 7,245 ms
コンパイル使用メモリ 336,520 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-08-02 17:28:20
合計ジャッジ時間 23,653 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

n = gets.to_s.to_i
list = gets.to_s.split.map {|s|s.to_i}

(n - 2).times do |i|
  c_num = list[i]

  m = i + 1
  m_num = list[m]
  m_lcm = m_num.lcm(c_num)

  ((i + 2)...n).each do |x|
    x_num = list[x]
    x_lcm = x_num.lcm(c_num)
    next unless x_lcm < m_lcm || (x_lcm == m_lcm && x_num < m_num)
    m = x
    m_num = x_num
    m_lcm = x_lcm
  end
  if m != i + 1
    list[i + 1], list[m] = list[m], list[i + 1]
  end
end
puts list.join(' ')
0