結果

問題 No.324 落ちてた閉路グラフ
ユーザー LeonardoneLeonardone
提出日時 2015-12-17 02:42:34
言語 Ruby
(3.3.0)
結果
RE  
実行時間 -
コード長 1,539 bytes
コンパイル時間 80 ms
コンパイル使用メモリ 11,452 KB
実行使用メモリ 15,572 KB
最終ジャッジ日時 2023-10-14 12:11:35
合計ジャッジ時間 12,024 ms
ジャッジサーバーID
（参考情報） 		judge11 / judge12
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 RE -
testcase_01 RE -
testcase_02 RE -
testcase_03 RE -
testcase_04 AC 918 ms
15,344 KB
testcase_05 AC 173 ms
15,284 KB
testcase_06 WA -
testcase_07 WA -
testcase_08 AC 975 ms
15,172 KB
testcase_09 AC 1,115 ms
15,092 KB
testcase_10 AC 976 ms
15,304 KB
testcase_11 AC 1,149 ms
15,300 KB
testcase_12 AC 80 ms
15,176 KB
testcase_13 AC 77 ms
15,240 KB
testcase_14 AC 78 ms
15,168 KB
testcase_15 AC 78 ms
15,304 KB
testcase_16 AC 77 ms
15,260 KB
testcase_17 AC 76 ms
15,236 KB
testcase_18 AC 75 ms
15,160 KB
testcase_19 AC 76 ms
15,328 KB
testcase_20 AC 77 ms
15,232 KB
testcase_21 RE -
testcase_22 AC 75 ms
15,324 KB
testcase_23 AC 74 ms
15,176 KB
testcase_24 AC 76 ms
15,244 KB
testcase_25 RE -
testcase_26 RE -
testcase_27 RE -
testcase_28 AC 75 ms
15,292 KB
testcase_29 AC 76 ms
15,284 KB
testcase_30 RE -
testcase_31 RE -
testcase_32 WA -
testcase_33 WA -
testcase_34 WA -
testcase_35 WA -
testcase_36 WA -
testcase_37 WA -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

#! ruby
# yukicoder My Practice
# author: Leonardone @ NEETSDKASU

def gs() gets.chomp end
def gi() gets.to_i end
def gss() gets.chomp.split end
def gis() gss.map(&:to_i) end
def nmapf(n,f) n.times.map{ __send__ f } end
def arr2d(h,w,v=0) h.times.map{[v] * w} end
def ngs(n) nmapf n,:gs end
def ngi(n) nmapf n,:gi end
def ngss(n) nmapf n,:gss end
def ngis(n) nmapf n,:gis end
def for2p(hr,wr,&pr) hr.each{|i|wr.each{|j|pr.call(i,j)}} end

N, M = gis
W = gis

if M < 2
    puts 0
    exit
end

z = [true] * N

ans = W.inject(:+)

if N == M
    puts ans
    exit
end

if N - M == 1
    puts (ans - W.rotate(-1).zip(W).map{|x,y|x+y}.min)
    exit
end

sel = N

bans = nil

20.times {
    
    while sel > M
        j = nil
        cst = nil
        N.times do |i|
            next if !z[i]
            tmp = 0
            tmp += W[i - 1] if z[i - 1]
            tmp += W[i] if z[(i + 1) % N]
            if j.nil? || tmp < cst
                j = i
                cst = tmp
            end
        end
        z[j] = false
        ans -= cst
        sel -= 1
    end
    
    if bans.nil? || ans > bans
        bans = ans
    end
    
    while sel < M + 5
        j = nil
        cst = nil
        N.times do |i|
            next if z[i]
            tmp = 0
            tmp += W[i - 1] if z[i - 1]
            tmp += W[i] if z[(i + 1) % N]
            if j.nil? || tmp > cst
                j = i
                cst = tmp
            end
        end
        z[j] = true
        ans += cst
        sel += 1
    end

}

puts bans
0