读取文件 1.1.数据准备 1.2 代码准备
Sub test()Dim buf As String, n As LongOpen "/Users/sixdog/Documents/VBA/test.txt" For Input As #1Do Until EOF(1)Line Input #1, bufn n 1Sheet1.Range("A" & n) bufLoopClose #1
End Sub1.3 执行结果…
Problem - G - Codeforces
题意 思路
首先容易发现,合并操作对平均攻击力有贡献,但是加一个1就没有贡献,因此首先考虑每次遇到0的时候都合并
但是很快发现如果这样的话,遇到-1就不一定有足够的1给你合并,因此在遇到…