結果

問題 No.3605 Grand Cross
コンテスト
ユーザー tobisatis
提出日時 2026-07-31 22:44:37
言語 C#
(.NET 10.0.201)
コンパイル:
dotnet_c
実行:
/usr/bin/dotnet_wrap
結果
AC  
実行時間 497 ms / 2,000 ms
+ 854µs
コード長 2,149 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 10,781 ms
コンパイル使用メモリ 172,780 KB
実行使用メモリ 317,880 KB
最終ジャッジ日時 2026-07-31 22:45:11
合計ジャッジ時間 28,220 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 49
権限があれば一括ダウンロードができます
コンパイルメッセージ
  復元対象のプロジェクトを決定しています...
  /home/judge/data/code/main.csproj を復元しました (94 ミリ秒)。
  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 

#nullable enable

#region
var (_input, _iter) = (Array.Empty<string>(), 0);
T I<T>() where T : IParsable<T>
{
    while (_iter >= _input.Length) (_input, _iter) = (Console.ReadLine()!.Trim().Split(' '), 0);
    return T.Parse(_input[_iter++], null);
}
#endregion

static T[] Range<T>(int n, Func<T> F) => Enumerable.Range(0, n).Select(_ => F()).ToArray();

long Solve()
{
    var n = I<int>();
    var m = I<int>();
    var saz = new long[n + 1];
    for (var i = 1; i <= n; i++) saz[i] = saz[i - 1] + I<int>();
    var sbz = new long[m + 1];
    for (var i = 1; i <= m; i++) sbz[i] = sbz[i - 1] + I<int>();
    var w = n + m;
    var caz = Range(w, () => new List<int>());
    var cbz = Range(w, () => new List<int>());
    for (var i = 0; i < n; i++) caz[I<int>() - 1].Add(i);
    for (var i = 0; i < m; i++) cbz[I<int>() - 1].Add(i);

    long L(int ia, int ib)
    {
        var la = Math.Min(ia, n - 1 - ia);
        var lb = Math.Min(ib, m - 1 - ib);
        var len = Math.Min(la, lb);
        var sa = saz[ia + len + 1] - saz[ia - len];
        var sb = sbz[ib + len + 1] - sbz[ib - len];
        return sa + sb;
    }
    var res = -1L;
    for (var c = 0; c < w; c++)
    {
        for (var lp = 0; lp < 2; lp++)
        {
            var ias = new HashSet<int>(caz[c]);
            foreach (var ib in cbz[c])
            {
                if (ias.Contains(ib)) res = Math.Max(res, L(ib, ib));
                if (ias.Contains(n - 1 - ib)) res = Math.Max(res, L(n - 1 - ib, ib));
            }
            var l = -1;
            var r = w;
            foreach (var ia in caz[c])
            {
                if (ia <= n - 1 - ia) l = Math.Max(l, ia);
                if (ia >= n - 1 - ia) r = Math.Min(r, ia);
            }
            foreach (var ib in cbz[c])
            {
                if (l >= 0) res = Math.Max(res, L(l, ib));
                if (r < n) res = Math.Max(res, L(r, ib));
            }
            (n, m) = (m, n);
            (saz, sbz) = (sbz, saz);
            (caz, cbz) = (cbz, caz);
        }
    }
    return res;
}
var ans = Range(I<int>(), Solve);
Console.WriteLine(string.Join(Environment.NewLine, ans));
0