結果

問題 No.794 チーム戦 (2)
コンテスト
ユーザー 👑 kakel-san
提出日時 2026-09-19 20:51:10
言語 C#
(.NET 10.0.400 + ACL)
コンパイル:
dotnet_c
実行:
/usr/bin/dotnet_wrap
結果
AC  
実行時間 85 ms / 1,500 ms
+ 719µs
コード長 1,196 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 5,258 ms
コンパイル使用メモリ 172,620 KB
実行使用メモリ 59,916 KB
最終ジャッジ日時 2026-09-19 20:51:34
合計ジャッジ時間 9,830 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge4_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 32
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.csproj を復元しました (184 ミリ秒)。
  main -> /home/judge/data/code/bin/Release/net10.0/main.dll
  main -> /home/judge/data/code/bin/Release/net10.0/publish/

ソースコード

diff #
raw source code 

using System;
using static System.Console;
using System.Linq;
using System.Collections.Generic;
using System.Runtime.Intrinsics.Arm;

class Program
{
    static int NN => int.Parse(ReadLine());
    static int[] NList => ReadLine().Split().Select(int.Parse).ToArray();
    static int[][] NArr(long n) => Enumerable.Repeat(0, (int)n).Select(_ => NList).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 over = new List<int>();
        var below = new List<int>();
        foreach (var ai in a)
        {
            if (ai > k / 2) over.Add(ai);
            else below.Add(ai);
        }
        over.Sort((l, r) => r.CompareTo(l));
        below.Sort();
        var ans = 1L;
        var pos = 0;
        var use = 0;
        foreach (var ai in over)
        {
            while (pos < below.Count && below[pos] + ai <= k) ++pos;
            ans = ans * (pos - use) % mod;
            ++use;
        }
        for (var i = below.Count - over.Count - 1; i >= 0; i -= 2) ans = ans * i % mod;
        WriteLine(ans);
    }
}
0