結果
問題 | No.2374 ASKT Subsequences |
ユーザー |
|
提出日時 | 2023-07-07 22:11:27 |
言語 | C#(csc) (csc 3.9.0) |
結果 |
AC
|
実行時間 | 129 ms / 2,000 ms |
コード長 | 1,470 bytes |
コンパイル時間 | 2,512 ms |
コンパイル使用メモリ | 110,376 KB |
実行使用メモリ | 61,800 KB |
最終ジャッジ日時 | 2024-07-21 18:15:05 |
合計ジャッジ時間 | 5,165 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 28 |
コンパイルメッセージ
Microsoft (R) Visual C# Compiler version 3.9.0-6.21124.20 (db94f4cc) Copyright (C) Microsoft Corporation. All rights reserved.
ソースコード
using System;using static System.Console;using System.Linq;using System.Collections.Generic;class Program{static int NN => int.Parse(ReadLine());static int[] NList => ReadLine().Split().Select(int.Parse).ToArray();public static void Main(){Solve();}static void Solve(){var n = NN;var a = NList;WriteLine(Askt(n, a));}static long Askt(int n, int[] a){var left = new int[n][];var right = new int[n][];for (var i = 0; i < n; ++i){left[i] = new int[2001];right[i] = new int[2001];}left[0][a[0]] = 1;for (var i = 1; i < n; ++i) for (var j = 0; j < left[i].Length; ++j){left[i][j] = left[i - 1][j];if (j == a[i]) ++left[i][j];}right[n - 1][a[n - 1]] = 1;for (var i = n - 2; i >= 0; --i) for (var j = 0; j < right[i].Length; ++j){right[i][j] = right[i + 1][j];if (j == a[i]) ++right[i][j];}var ans = 0L;for (var i = 1; i < n; ++i) for (var j = i + 1; j + 1 < n; ++j){if (a[i] <= a[j]) continue;var a1 = a[j] - 10;var a4 = a[i] + 1;if (a1 < 0 || a4 > 2000) continue;ans += left[i - 1][a1] * right[j + 1][a4];}return (ans);}}