#882064 (cLay) No.2355 Unhappy Back Dance

• 問題: No.2355 Unhappy Back Dance
• ユーザー: tails
• 提出日時: 2023-06-16 22:50:09
• 言語: cLay (20240714-1)
• 結果: AC
• 実行時間: 203 ms / 6,000 ms
• コード長: 297 bytes
• コンパイル時間: 6,797 ms
• コンパイル使用メモリ: 213,352 KB
• 実行使用メモリ: 7,876 KB
• 最終ジャッジ日時: 2024-06-24 15:45:43
• 合計ジャッジ時間: 10,108 ms
• ジャッジサーバーID （参考情報）: judge2 / judge1

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	2 ms; 6,812 KB
testcase_01	AC	2 ms; 6,812 KB
testcase_02	AC	2 ms; 6,940 KB
testcase_03	AC	2 ms; 6,944 KB
testcase_04	AC	2 ms; 6,940 KB
testcase_05	AC	2 ms; 6,940 KB
testcase_06	AC	64 ms; 6,944 KB
testcase_07	AC	100 ms; 6,944 KB
testcase_08	AC	91 ms; 6,940 KB
testcase_09	AC	131 ms; 6,940 KB
testcase_10	AC	113 ms; 6,944 KB
testcase_11	AC	143 ms; 6,944 KB
testcase_12	AC	138 ms; 6,940 KB
testcase_13	AC	150 ms; 6,940 KB
testcase_14	AC	142 ms; 6,940 KB
testcase_15	AC	2 ms; 7,492 KB
testcase_16	AC	203 ms; 6,940 KB
testcase_17	AC	202 ms; 6,944 KB
testcase_18	AC	201 ms; 6,944 KB
testcase_19	AC	202 ms; 6,940 KB
testcase_20	AC	203 ms; 6,944 KB
testcase_21	AC	83 ms; 6,944 KB
testcase_22	AC	16 ms; 6,940 KB
testcase_23	AC	17 ms; 6,944 KB
testcase_24	AC	180 ms; 6,940 KB
testcase_25	AC	96 ms; 6,940 KB
testcase_26	AC	96 ms; 6,940 KB
testcase_27	AC	80 ms; 6,944 KB
testcase_28	AC	4 ms; 7,752 KB
testcase_29	AC	6 ms; 6,940 KB
testcase_30	AC	159 ms; 6,944 KB
testcase_31	AC	113 ms; 6,940 KB
testcase_32	AC	12 ms; 6,940 KB
testcase_33	AC	65 ms; 7,876 KB
testcase_34	AC	2 ms; 6,940 KB
testcase_35	AC	3 ms; 6,940 KB
testcase_36	AC	78 ms; 6,944 KB
testcase_37	AC	42 ms; 6,944 KB
testcase_38	AC	52 ms; 6,944 KB
testcase_39	AC	40 ms; 6,940 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);