結果

問題 No.14 最小公倍数ソート
コンテスト
ユーザー らっしー(raccy)
提出日時 2016-09-25 20:33:19
言語 Crystal
(1.18.2)
結果
AC  
実行時間 2,215 ms / 5,000 ms
コード長 447 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 11,569 ms
コンパイル使用メモリ 295,564 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-30 19:09:55
合計ジャッジ時間 36,666 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
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