結果

問題 No.324 落ちてた閉路グラフ
ユーザー LeonardoneLeonardone
提出日時 2015-12-17 02:49:21
言語 Ruby
(3.3.0)
結果
WA  
実行時間 -
コード長 1,324 bytes
コンパイル時間 37 ms
コンパイル使用メモリ 7,552 KB
実行使用メモリ 12,544 KB
最終ジャッジ日時 2024-09-16 07:05:18
合計ジャッジ時間 17,162 ms
ジャッジサーバーID
（参考情報） 		judge6 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 90 ms
12,160 KB
testcase_01 AC 85 ms
12,288 KB
testcase_02 AC 85 ms
12,288 KB
testcase_03 AC 85 ms
12,288 KB
testcase_04 AC 1,587 ms
12,032 KB
testcase_05 AC 146 ms
12,160 KB
testcase_06 WA -
testcase_07 WA -
testcase_08 AC 1,634 ms
12,288 KB
testcase_09 AC 1,804 ms
12,160 KB
testcase_10 AC 1,643 ms
12,032 KB
testcase_11 AC 1,826 ms
12,160 KB
testcase_12 AC 88 ms
12,160 KB
testcase_13 AC 87 ms
12,288 KB
testcase_14 AC 87 ms
12,288 KB
testcase_15 AC 87 ms
12,032 KB
testcase_16 AC 87 ms
12,032 KB
testcase_17 AC 86 ms
12,288 KB
testcase_18 AC 87 ms
12,032 KB
testcase_19 AC 85 ms
12,160 KB
testcase_20 AC 85 ms
12,032 KB
testcase_21 AC 85 ms
12,288 KB
testcase_22 AC 85 ms
12,160 KB
testcase_23 AC 86 ms
12,032 KB
testcase_24 AC 86 ms
12,288 KB
testcase_25 WA -
testcase_26 AC 86 ms
12,288 KB
testcase_27 WA -
testcase_28 AC 85 ms
12,032 KB
testcase_29 AC 85 ms
12,160 KB
testcase_30 AC 85 ms
12,288 KB
testcase_31 WA -
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
kk = 0

(N - M).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 z[kk]
        kk = (kk + 1) % N
    end
    z[kk] = true
    ans += W[kk - 1] if z[kk - 1]
    ans += W[kk] if z[(kk + 1) % N]
    sel += 1
    
}

puts bans
0