結果

問題 No.5008 [Cherry Alpha] Discrete Pendulum with Air Resistance
ユーザー tomeruntomerun
提出日時 2022-10-14 22:51:14
言語 Crystal
(1.11.2)
結果
AC  
実行時間 1,918 ms / 2,000 ms
コード長 3,528 bytes
コンパイル時間 21,035 ms
実行使用メモリ 6,952 KB
スコア 928,906,017,232,626
最終ジャッジ日時 2022-10-14 22:53:21
合計ジャッジ時間 124,582 ms
ジャッジサーバーID
（参考情報） 		judge9 / judge8
純コード判定しない問題か言語
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1,915 ms
4,904 KB
testcase_01 AC 1,909 ms
4,904 KB
testcase_02 AC 1,904 ms
4,900 KB
testcase_03 AC 1,907 ms
4,904 KB
testcase_04 AC 1,912 ms
4,904 KB
testcase_05 AC 1,904 ms
4,904 KB
testcase_06 AC 1,907 ms
4,904 KB
testcase_07 AC 1,905 ms
4,900 KB
testcase_08 AC 1,911 ms
6,952 KB
testcase_09 AC 1,910 ms
4,904 KB
testcase_10 AC 1,906 ms
6,948 KB
testcase_11 AC 1,912 ms
4,904 KB
testcase_12 AC 1,916 ms
4,900 KB
testcase_13 AC 1,912 ms
6,948 KB
testcase_14 AC 1,907 ms
6,952 KB
testcase_15 AC 1,906 ms
4,904 KB
testcase_16 AC 1,907 ms
4,904 KB
testcase_17 AC 1,908 ms
6,948 KB
testcase_18 AC 1,905 ms
6,952 KB
testcase_19 AC 1,906 ms
4,900 KB
testcase_20 AC 1,911 ms
4,904 KB
testcase_21 AC 1,905 ms
4,904 KB
testcase_22 AC 1,905 ms
4,904 KB
testcase_23 AC 1,911 ms
4,904 KB
testcase_24 AC 1,914 ms
4,900 KB
testcase_25 AC 1,907 ms
4,904 KB
testcase_26 AC 1,911 ms
4,904 KB
testcase_27 AC 1,905 ms
4,900 KB
testcase_28 AC 1,904 ms
4,900 KB
testcase_29 AC 1,908 ms
4,904 KB
testcase_30 AC 1,906 ms
4,900 KB
testcase_31 AC 1,907 ms
4,904 KB
testcase_32 AC 1,907 ms
4,900 KB
testcase_33 AC 1,913 ms
4,904 KB
testcase_34 AC 1,906 ms
4,900 KB
testcase_35 AC 1,912 ms
6,952 KB
testcase_36 AC 1,907 ms
4,908 KB
testcase_37 AC 1,914 ms
4,900 KB
testcase_38 AC 1,911 ms
4,904 KB
testcase_39 AC 1,905 ms
4,900 KB
testcase_40 AC 1,910 ms
4,900 KB
testcase_41 AC 1,905 ms
6,948 KB
testcase_42 AC 1,904 ms
6,948 KB
testcase_43 AC 1,907 ms
4,904 KB
testcase_44 AC 1,916 ms
6,952 KB
testcase_45 AC 1,905 ms
4,900 KB
testcase_46 AC 1,907 ms
4,904 KB
testcase_47 AC 1,918 ms
4,900 KB
testcase_48 AC 1,904 ms
6,948 KB
testcase_49 AC 1,916 ms
6,948 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

START_TIME = Time.utc.to_unix_ms
TL         = 1900
N          =   50
K          =   50
RND        = Random.new(2)

macro debug(msg)
  {% if flag?(:local) %}
    STDERR.puts({{msg}})
  {% end %}
end

class Result
  getter :score, :b, :m, :e

  def initialize(@score : Int64, @b : Array(Int32), @m : Array(Int32), @e : Array(Int32))
  end
end

class Solver
  @ts : Array(Int32)
  @us : Array(Int32)

  def initialize
    read_line
    @ts = read_line.split.map(&.to_i)
    @us = read_line.split.map(&.to_i)
    @b = Array(Int32).new(N) { RND.rand(1) + 1 }
    @m = Array(Int32).new(N) { |i| {RND.rand(2) + 1, @b[i]}.min }
    @e = Array(Int32).new(N) { RND.rand(2) + 1 }
    @pos_200 = Array(Int32).new(N, 0)
    @dir_200 = Array(Int32).new(N, 1)
    N.times do |i|
      @pos_200[i], @dir_200[i] = sim_200(@b[i], @m[i], @e[i])
    end
    @pos_ts = Array(Array(Int32)).new(N) { Array.new(K, 0) }
    @pos_us = Array(Array(Int32)).new(N) { Array.new(K, 0) }
    N.times do |i|
      sim_k(i)
    end
  end

  def sim_200(b, m, e)
    m = {b, m}.min
    p = 0
    d = 1
    a = b
    200.times do
      p += d
      if p == a * d
        d *= -1
        a = {m, a - e}.max
      end
    end
    return p, d
  end

  def sim_k(i)
    K.times do |j|
      t = (@ts[j] - 200) % (@m[i] * 4)
      p = @pos_200[i]
      d = @dir_200[i]
      t.times do
        p += d
        if p == @m[i] * d
          d *= -1
        end
      end
      @pos_ts[i][j] = p

      t = (@us[j] - 200) % (@m[i] * 4)
      p = @pos_200[i]
      d = @dir_200[i]
      t.times do
        p += d
        if p == @m[i] * d
          d *= -1
        end
      end
      @pos_us[i][j] = p
    end
  end

  def solve
    best_res = Result.new(calc_score(), @b.dup, @m.dup, @e.dup)
    buf_pos_ts = Array.new(K, 0)
    buf_pos_us = Array.new(K, 0)
    turn = 0
    while true
      turn += 1
      if (turn & 0x3F) == 0
        if Time.utc.to_unix_ms - START_TIME > TL
          debug("total_turn:#{turn} score:#{best_res.score}")
          break
        end
      end
      ch_i = RND.rand(N)
      nb = RND.rand(6) + 1
      nm = {RND.rand(4) + 1, nb}.min
      ne = RND.rand(4) + 1
      old = {@pos_200[ch_i], @dir_200[ch_i]}
      @pos_200[ch_i], @dir_200[ch_i] = sim_200(nb, nm, ne)
      K.times do |i|
        buf_pos_ts[i] = @pos_ts[ch_i][i]
        buf_pos_us[i] = @pos_us[ch_i][i]
      end
      sim_k(ch_i)
      score = calc_score()
      if best_res.score < score
        debug("score:#{score} at turn #{turn}")
        @b[ch_i] = nb
        @m[ch_i] = nm
        @e[ch_i] = ne
        best_res = Result.new(score, @b.dup, @m.dup, @e.dup)
      else
        @pos_200[ch_i] = old[0]
        @dir_200[ch_i] = old[1]
        K.times do |i|
          @pos_ts[ch_i][i] = buf_pos_ts[i]
          @pos_us[ch_i][i] = buf_pos_us[i]
        end
      end
    end
    return best_res
  end

  def calc_score
    sum0 = 0i64
    sum1 = 0i64
    K.times do |i|
      sum = 0.0
      N.times do |j|
        j.times do |k|
          sum += (@pos_ts[j][i] - @pos_ts[k][i]).abs / (@b[j] + @b[k])
        end
      end
      sum0 += (sum * 20_000_000 / (N * (N - 1))).round.to_i
      min = 1 << 20
      max = -(1 << 20)
      N.times do |j|
        min = {min, @pos_us[j][i]}.min
        max = {max, @pos_us[j][i]}.max
      end
      sum1 += (10_000_000 / (((max - min) * 0.05) ** 0.5 + 1)).round.to_i
    end
    return sum0 * sum1
  end
end

solver = Solver.new
res = solver.solve
N.times do |i|
  puts "#{res.b[i]} #{{res.b[i], res.m[i]}.min} #{res.e[i]}"
end
0