結果
| 問題 | No.178 美しいWhitespace (1) |
| コンテスト | |
| ユーザー |
toshiro_yanagi
|
| 提出日時 | 2018-06-10 18:27:06 |
| 言語 | Nim (2.2.6) |
| 結果 |
AC
|
| 実行時間 | 2 ms / 2,000 ms |
| コード長 | 458 bytes |
| 記録 | |
| コンパイル時間 | 3,177 ms |
| コンパイル使用メモリ | 72,012 KB |
| 実行使用メモリ | 7,716 KB |
| 最終ジャッジ日時 | 2026-03-20 13:28:12 |
| 合計ジャッジ時間 | 3,888 ms |
|
ジャッジサーバーID (参考情報) |
judge3_0 / judge1_0 |
(要ログイン)
| ファイルパターン | 結果 |
|---|---|
| sample | AC * 4 |
| other | AC * 21 |
ソースコード
import strutils, sequtils
proc readLine: auto = readLine stdin
var
a, b = newSeqWith(0, 0)
even, odd: bool
maxW, cnt = 0
let
N = readLine().parseInt
for i in 0 ..< N:
let t = readLine().split.map parseInt
a.add t[0]
b.add t[1]
case a[^1] mod 2:
of 0: even = true
else: odd = true
if even and odd:
echo -1
quit()
maxW = max(maxW, a[^1] + 4 * b[^1])
for i in 0 ..< N:
cnt += (maxW - a[i] - 4 * b[i]) div 2
echo cnt
toshiro_yanagi