#882064 (cLay) No.2355 Unhappy Back Dance

• 問題: No.2355 Unhappy Back Dance
• ユーザー: tails
• 提出日時: 2023-06-16 22:50:09
• 言語: cLay (20240104-1)
• 結果: AC
• 実行時間: 232 ms / 6,000 ms
• コード長: 297 bytes
• コンパイル時間: 4,807 ms
• コンパイル使用メモリ: 208,176 KB
• 実行使用メモリ: 4,380 KB
• 最終ジャッジ日時: 2023-09-06 21:26:01
• 合計ジャッジ時間: 9,789 ms
• ジャッジサーバーID （参考情報）: judge15 / judge11

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	2 ms; 4,380 KB
testcase_01	AC	2 ms; 4,376 KB
testcase_02	AC	1 ms; 4,376 KB
testcase_03	AC	2 ms; 4,380 KB
testcase_04	AC	1 ms; 4,380 KB
testcase_05	AC	2 ms; 4,380 KB
testcase_06	AC	62 ms; 4,376 KB
testcase_07	AC	99 ms; 4,380 KB
testcase_08	AC	93 ms; 4,376 KB
testcase_09	AC	132 ms; 4,380 KB
testcase_10	AC	123 ms; 4,376 KB
testcase_11	AC	152 ms; 4,376 KB
testcase_12	AC	139 ms; 4,380 KB
testcase_13	AC	152 ms; 4,380 KB
testcase_14	AC	153 ms; 4,380 KB
testcase_15	AC	2 ms; 4,376 KB
testcase_16	AC	231 ms; 4,376 KB
testcase_17	AC	232 ms; 4,380 KB
testcase_18	AC	231 ms; 4,376 KB
testcase_19	AC	232 ms; 4,376 KB
testcase_20	AC	231 ms; 4,380 KB
testcase_21	AC	95 ms; 4,380 KB
testcase_22	AC	18 ms; 4,380 KB
testcase_23	AC	19 ms; 4,376 KB
testcase_24	AC	207 ms; 4,376 KB
testcase_25	AC	110 ms; 4,376 KB
testcase_26	AC	110 ms; 4,380 KB
testcase_27	AC	88 ms; 4,376 KB
testcase_28	AC	3 ms; 4,376 KB
testcase_29	AC	6 ms; 4,380 KB
testcase_30	AC	173 ms; 4,376 KB
testcase_31	AC	124 ms; 4,376 KB
testcase_32	AC	13 ms; 4,376 KB
testcase_33	AC	70 ms; 4,376 KB
testcase_34	AC	2 ms; 4,380 KB
testcase_35	AC	4 ms; 4,376 KB
testcase_36	AC	86 ms; 4,376 KB
testcase_37	AC	45 ms; 4,376 KB
testcase_38	AC	56 ms; 4,380 KB
testcase_39	AC	44 ms; 4,380 KB

ソースコード

ll@n,x[n],y[],d[],z=0;
double a[];
rd((x,y)(n));
rep(i,n){
	rep(j,n){
		a[j]=i==j?4:atan2(y[j]-y[i],x[j]-x[i]);
	}
	sortA_index(n,a,d);
	rep(k,n-2){
		if(a[k]==a[k+1]){
			ll j1=d[k],j2=d[k+1];
			if((y[j1]-y[i])*(x[j2]-x[i])==(y[j2]-y[i])*(x[j1]-x[i])){
				z+=1;
				break;
			}
		}
	}
}
wt(z);