結果

問題 No.1046 Fruits Rush
ユーザー yosaka
提出日時 2020-05-08 21:25:26
言語 Nim
(2.2.0)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 535 bytes
コンパイル時間 3,640 ms
コンパイル使用メモリ 73,088 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-07-03 23:39:42
合計ジャッジ時間 4,231 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 14
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 54) Warning: Use the new 'sugar' module instead; future is deprecated [Deprecated]
/home/judge/data/code/Main.nim(1, 8) Warning: imported and not used: 'streams' [UnusedImport]
/home/judge/data/code/Main.nim(1, 54) Warning: imported and not used: 'future' [UnusedImport]
/home/judge/data/code/Main.nim(1, 76) Warning: imported and not used: 'hashes' [UnusedImport]
/home/judge/data/code/Main.nim(1, 68) Warning: imported and not used: 'tables' [UnusedImport]

ソースコード

diff # 

import streams, sequtils, strutils, algorithm, math, future, sets, tables, hashes
proc `ceilDiv`*[T](x, y: T): T = x div y + ord(x mod y != 0)
proc `//=`*(x: var SomeInteger; y: SomeInteger) = x = x div y
proc `%=`*(x: var SomeInteger; y: SomeInteger) = x = x mod y

var
    L = stdin.readLine.split.map(parseInt)
    N = L[0]
    K = L[1]
    A = stdin.readLine.split.map(parseInt)
    ans = 0
    cnt = 0
A = A.sortedByIt(-it)
for i in 0..<K:
    if A[i] > 0:
        ans += A[i]
        inc cnt
if cnt == 0:
    ans += A[0]
echo ans
0