結果
問題 | No.3005 トレミーの問題 |
ユーザー |
![]() |
提出日時 | 2025-01-11 00:22:58 |
言語 | D (dmd 2.109.1) |
結果 |
AC
|
実行時間 | 2 ms / 2,000 ms |
コード長 | 974 bytes |
コンパイル時間 | 5,075 ms |
コンパイル使用メモリ | 102,016 KB |
実行使用メモリ | 5,248 KB |
最終ジャッジ日時 | 2025-01-12 14:45:56 |
合計ジャッジ時間 | 4,495 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 30 |
ソースコード
import std.stdio, std.algorithm, std.range, std.array, std.conv, std.typecons, std.bigint; alias Point = Tuple!(BigInt, "x", BigInt, "y"); bool same_line(Point a, Point b, Point c) { return (b.x-a.x)*(c.y-a.y) == (b.y-a.y)*(c.x-a.x); } BigInt distance(Point a, Point b) { return ((a.x - b.x)^^2 + (a.y - b.y)^^2); } BigInt product(Point v, Point w) { return (v.x*w.x + v.y*w.y)^^2; } Point readpoint() { auto tmp = readln.split; return Point(BigInt(tmp[0]), BigInt(tmp[1])); } void main() { auto A = readpoint(), B = readpoint(), C = readpoint(), D = readpoint(); if (same_line(A, B, C) || same_line(A, B, D)) { writeln("NO"); return; } // vectors auto DA = Point(A.x - D.x, A.y - D.y), DB = Point(B.x - D.x, B.y - D.y), CA = Point(A.x - C.x, A.y - C.y), CB = Point(B.x - C.x, B.y - C.y); if (product(DA, DB) * distance(C, A) * distance(C, B) == product(CA, CB) * distance(D, A) * distance(D, B)) writeln("YES"); else writeln("NO"); }