結果

問題 No.29 パワーアップ
ユーザー k82b
提出日時 2023-10-29 20:53:14
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 956 bytes
コンパイル時間 3,599 ms
コンパイル使用メモリ 180,864 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-09-25 16:53:53
合計ジャッジ時間 3,170 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 22
権限があれば一括ダウンロードができます

ソースコード

diff # 

void main() {
	const N = readInt;
	auto A = new int[N * 3];
	foreach (i; 0 .. N * 3) {
		A[i] = readInt;
	}

	A.sort;
	int ans;
	for (int i; i < N * 3; ) {
		int j = i;
		while (j < N * 3 && A[i] == A[j]) {
			j++;
		}
		ans += (j - i) / 2 * 4;
		ans += (j - i) % 2;
		i = j;
	}
	ans /= 4;
	writeln(ans);
}

import std,core.bitop;
string[]_R;
string readString(){while(_R.empty){_R=readln.chomp.split;}auto ret=_R.front;_R.popFront;return ret;}
int readInt(){return readString.to!int;}
long readLong(){return readString.to!long;}
real readReal(){return readString.to!real;}
bool chmin(T)(ref T A,T B){if(A>B){A=B;return true;}else{return false;}}
bool chmax(T)(ref T A,T B){if(A<B){A=B;return true;}else{return false;}}
int lowerBound(T)(T[]A,T x){int L=-1,R=cast(int)A.length;while(R-L>1){int mid=(L+R)/2;(A[mid]<x?L:R)=mid;}return R;}
int upperBound(T)(T[]A,T x){int L=-1,R=cast(int)A.length;while(R-L>1){int mid=(L+R)/2;(A[mid]<=x?L:R)=mid;}return R;}
0