結果

問題 No.1238 選抜クラス
コンテスト
ユーザー yuly3
提出日時 2020-09-29 19:48:12
言語 Nim
(2.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,125 bytes
コンパイル時間 1,593 ms
コンパイル使用メモリ 72,244 KB
最終ジャッジ日時 2024-07-04 09:56:35
合計ジャッジ時間 2,236 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(19, 27) Error: type mismatch: got 'seq[int]' for 'map(split(input(), {' ', '\t', '\v', '\r', '\n', '\f'}, -1), parseInt)' but expected 'tuple'

ソースコード

diff # 

import algorithm, deques, heapqueue, math, sets, sequtils, strutils, sugar, tables

proc input*(): string =
    return stdin.readLine
proc chmax*[T: SomeNumber](num0: var T, num1: T) =
    num0 = max(num0, num1)
proc chmin*[T: SomeNumber](num0: var T, num1: T) =
    num0 = min(num0, num1)
proc `%=`*[T: SomeInteger](num0: var T, num1: T) =
    num0 = num0 mod num1

var
    A, cumsum: seq[int]
    dp: array[110, array[110, array[10010, int]]]

proc solve() =
    const MOD = 10^9 + 7
    var N, K: int
    (N, K) = input().split.map(parseInt)
    A = input().split.map(parseInt)

    cumsum = concat(@[0], cumsummed(A))
    for i in 0..<N:
        dp[i][0][0] = 1
        for j in 0..<N:
            for k in 0..cumsum[i]:
                dp[i + 1][j][k] += dp[i][j][k]
                dp[i + 1][j][k] %= MOD
                dp[i + 1][j + 1][k + A[i]] += dp[i][j][k]
                dp[i + 1][j + 1][k + A[i]] %= MOD
    
    var ans = 0
    for i in 1..N:
        for j in 0..cumsum[^1]:
            if i*K <= j:
                ans += dp[N][i][j]
                ans %= MOD
    echo ans

when is_main_module:
    solve()
0