結果
問題 | No.1965 Heavier |
ユーザー |
|
提出日時 | 2023-10-08 23:01:30 |
言語 | C#(csc) (csc 3.9.0) |
結果 |
AC
|
実行時間 | 215 ms / 2,000 ms |
コード長 | 788 bytes |
コンパイル時間 | 1,043 ms |
コンパイル使用メモリ | 112,104 KB |
実行使用メモリ | 64,748 KB |
最終ジャッジ日時 | 2024-07-26 18:13:55 |
合計ジャッジ時間 | 7,914 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 26 |
コンパイルメッセージ
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 long[] NList => ReadLine().Split().Select(long.Parse).ToArray();static long[][] NArr(long n) => Enumerable.Repeat(0, (int)n).Select(_ => NList).ToArray();public static void Main(){Solve();}static void Solve(){var n = NN;var a = NList;var b = NList;var dp = new int[n];var ans = 0L;for (var i = 1; i < n; ++i){if (a[i] - b[i] > a[i - 1] - b[i - 1] && a[i] + b[i] > a[i - 1] + b[i - 1]) dp[i] = dp[i - 1] + 1;ans += dp[i];}WriteLine(ans);}}