結果
問題 |
No.910 素数部分列
|
ユーザー |
![]() |
提出日時 | 2019-10-18 22:33:22 |
言語 | C#(csc) (csc 3.9.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 1,045 bytes |
コンパイル時間 | 2,238 ms |
コンパイル使用メモリ | 111,572 KB |
実行使用メモリ | 29,840 KB |
最終ジャッジ日時 | 2024-06-25 17:41:30 |
合計ジャッジ時間 | 5,249 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 22 WA * 28 |
コンパイルメッセージ
Microsoft (R) Visual C# Compiler version 3.9.0-6.21124.20 (db94f4cc) Copyright (C) Microsoft Corporation. All rights reserved.
ソースコード
using System; using System.Collections.Generic; using System.Linq; using System.Numerics; using static System.Console; using static System.Math; class Program { static void Main() { var N = int.Parse(ReadLine()); var S = ReadLine(); var ans = 0; var s = new List<int>(); for (int i = 0; i < N; i++) { var n = S[i] - '0'; if (n == 3 || n == 5 || n == 7) ans++; else s.Add(n); } var c = 0; var m = 0; for (int i = 0; i < s.Count; i++) { if (s[i] == 1) { c++; } else { c--; m++; } if (c < 0) { m--; c = 0; } } ans += m; var k = 0; for (int i = 0; i < s.Count; i++) { if (s[i] == 1) k++; } k = Max(k - m, 0)/2; ans += k; WriteLine(ans); } }