Codegolf - Это Четырехугольник По Касательной?

Связанный: Является ли этот четырехугольник вписанным в цикл?

Фон

А касательный четырехугольник четырехугольник, в котором есть вписанная окружность:

Примеры включают любой квадрат, ромб или форму воздушного змея. Прямоугольники или параллелограммы в целом не являются касательными.

Задача

Учитывая четыре вершины четырехугольника (как декартовы координаты), определите, является ли он касательным.

Ввод и вывод

Для ввода допускается использовать любой формат, однозначно задающий координаты четырех вершин (восемь действительных чисел или чисел с плавающей запятой). Вы можете предположить следующее на входе:

• Точки задают простой выпуклый четырехугольник, т.е. все внутренние углы строго меньше 180 градусов, а ребра сходятся только в вершинах.
• Точки указываются в порядке против часовой стрелки (или наоборот, если хотите).

Для вывода вы можете использовать одно из следующих:

• Значения истинности/ложности, определенные выбранным вами языком (допускается их замена), или
• Два последовательных значения для true/false соответственно.

Допустимо, если ваш код выдает неверный результат из-за неточностей с плавающей запятой.

Тестовые случаи

Тангенциальный

 
 (0, 0), (0, 1), (2, 1), (2, 0)  # rectangle
(0, 0), (1, 1), (3, 1), (2, 0)  # parallelogram
 
 

Не тангенциально

Критерий подсчета очков и победы

Применяются стандартные правила. Выигрывает самый короткий код в байтах.

#код-гольф #код-гольф #математика #задача принятия решения #геометрия

МАТЛ, 11 10 байт

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 ĆüαnOtιOË
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Входные данные — вектор из четырех комплексных чисел. Выход: 0=={1,-1,1,-1}.Norm/@(#-RotateLeft@#)& (which is falsy) if tangential, or nonzero (which is truthy) if not tangential.

Попробуйте онлайн! Или проверить все тестовые случаи.

Объяснение

Код вычисляет разницу между суммами длин противоположных сторон. Эта разница равна нулю тогда и только тогда, когда четырехугольник является касательным.

Питон 3, 47 байт

Попробуйте онлайн!

Возьмите комплексное число. Выходы поменялись местами Правда/Ложь. Тестовые случаи из Нудл9.

48 байт

Попробуйте онлайн!

Питон 3, ^{89 \$\cdots\$ 59} 55 байт

Попробуйте онлайн!

Передается список вершин в виде комплексных чисел. Длины сторон \$(a, b, c, d)\$ вычисляются и используют \$a+c=b+d\$ для касательного четырехугольника. Возвращает ложное значение (0) для тангенциального значения или истинное значение (ненулевое) в противном случае.

Желе, 9 8 байт

Попробуйте онлайн!

Объяснение

Монадическая ссылка, принимающая список комплексных координат и возвращающая 1 в случае касательной и 0 в случае отсутствия.

На основе Ответ @LuisMendo на MATL так что обязательно проголосуйте за это!

Спасибо @JonathanAllan за сохранение байта!

JavaScript (ES6), 74 байта

Принимает входные данные в виде списка пар координат. Возвращает \$0\$ (ложь) для тангенциального или ненулевое значение (истина) для нетангенциального.

Попробуйте онлайн!

APL (Диалог Юникод), 17 11 байты^СБКС

-6 байт благодаря барботер

выводит 1, если тангенциально, 0, если нет

Попробуйте онлайн!

Объяснение:

Предыдущий ответ

Попробуйте онлайн!

Объяснение:

Язык Wolfram (Математика), 24 байта

Возврат ṁ5ạƝŒœ§E if the quadrilateral is tangential, lambda l:sum((-1)**i*abs(l[i-1]-l[i])for i in range(4)) если это не так.

Попробуйте онлайн!

Язык Wolfram (Математика), 38 байт

Возврат f=lambda l,i=3:i+1and abs(l[i]-l[i-1])-f(l,i-1) if the quadrilateral is tangential, 5: % Range [1 2 3 4 5] ) % Implicit input: complex vector of length 4. Index into it modularly. % This repeats the first vertex after the last d % Consecutive differences | % Absolute value, element-wise 2e % Reshape as a 2-column matrix, in column-major order ! % Transpose s % Sum of each column. Gives a vector of length 2 d % Consecutive difference если это не так.

Попробуйте онлайн!

05AB1E, 9 байт

Попробуйте онлайн!

Порт Ответ Ника Кеннеди Джелли. Оно получилось довольно коротким, несмотря на отсутствие комплексных чисел в 05AB1E.