結果

問題 No.1238 選抜クラス
ユーザー kakel-san
提出日時 2025-03-16 02:08:09
言語 C#
(.NET 8.0.404)
結果
AC  
実行時間 89 ms / 2,000 ms
コード長 1,033 bytes
コンパイル時間 14,059 ms
コンパイル使用メモリ 170,712 KB
実行使用メモリ 191,720 KB
最終ジャッジ日時 2025-03-16 02:08:33
合計ジャッジ時間 18,903 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 36
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.csproj を復元しました (203 ミリ秒)。
  main -> /home/judge/data/code/bin/Release/net8.0/main.dll
  main -> /home/judge/data/code/bin/Release/net8.0/publish/

ソースコード

diff # 

using System;
using static System.Console;
using System.Linq;
using System.Collections.Generic;

class Program
{
    static long NN => long.Parse(ReadLine());
    static long[] NList => ReadLine().Split().Select(long.Parse).ToArray();
    public static void Main()
    {
        Solve();
    }
    static void Solve()
    {
        var c = NList;
        var (n, k) = (c[0], c[1]);
        var a = NList;
        var mod = 1_000_000_007;
        var dp = new long[20001];
        dp[10000] = 1;
        for (var i = 0; i < n; ++i)
        {
            var ndp = (long[]) dp.Clone();
            for (var j = 0; j < dp.Length; ++j)
            {
                var next = a[i] - k + j;
                if (next < 0 || next >= dp.Length) continue;
                ndp[next] = (ndp[next] + dp[j]) % mod;
            }
            dp = ndp;
        }
        var ans = 0L;
        for (var i = 10000; i < dp.Length; ++i) ans = (ans + dp[i]) % mod;
        WriteLine((ans - 1 + mod) % mod);
    }
}
0