結果

問題 No.3005 トレミーの問題
ユーザー tails
提出日時 2025-01-17 22:23:25
言語 cLay
(20241019-1)
結果
AC  
実行時間 3 ms / 2,000 ms
コード長 594 bytes
コンパイル時間 2,896 ms
コンパイル使用メモリ 182,252 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2025-01-17 22:25:20
合計ジャッジ時間 4,122 ms
ジャッジサーバーID
(参考情報)
judge5 / judge4
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 30
権限があれば一括ダウンロードができます

ソースコード

diff #

struct P{ll x,y;};

ll sq(ll x) {
	return x*x;
}

ll dist2(P p0,P p1) {
	return sq(p1.x-p0.x)+sq(p1.y-p0.y);
}

bool Ptolemy(ll v0,ll v1,ll v2) {
	return sq(v0+v1-v2)==4*v0*v1;
}

bool IsKyoen(P p0,P p1,P p2,P p3) {
	return Ptolemy(dist2(p0,p1)*dist2(p2,p3),dist2(p0,p2)*dist2(p1,p3),dist2(p0,p3)*dist2(p1,p2));
}

bool IsLinear(P p0,P p1,P p2){
	ll x1=p1.x-p0.x;
	ll y1=p1.y-p0.y;
	ll x2=p2.x-p0.x;
	ll y2=p2.y-p0.y;
	return x1*y2==x2*y1;
}

{
	P p0; rd(p0.x,p0.y);
	P p1; rd(p1.x,p1.y);
	P p2; rd(p2.x,p2.y);
	P p3; rd(p3.x,p3.y);
	wt(!IsLinear(p0,p1,p2)&&IsKyoen(p0,p1,p2,p3)?"YES":"NO");
}
0