Учитывая a, b, cдлину трех сторон треугольника, скажем, является ли треугольник прямоугольным (то есть имеет один угол, равный 90 градусам) или нет.

вход

Три положительных целых значения в любом порядке

Выход

Либо конкретный истинный выход ( true, 1, yes...) или выход конкретной лжи ( false, 0, no...)

пример

5, 3, 4        --> yes
3, 5, 4        --> yes
12, 37, 35     --> yes
21, 38, 50     --> no
210, 308, 250  --> no

правила

• Ввод и вывод может быть дан в любом удобном формате .
• В своем представлении, пожалуйста, укажите истинные и ложные значения.
• Нет необходимости обрабатывать отрицательные значения или неверные тройные ребра
• Либо полная программа или функция приемлемы. Если функция, вы можете вернуть вывод, а не распечатать его.
• Если возможно, укажите ссылку на среду онлайн-тестирования, чтобы другие люди могли опробовать ваш код!
• Стандартные лазейки запрещены.
• Это код-гольф, поэтому применяются все обычные правила игры в гольф, и выигрывает самый короткий код (в байтах).

Желе , 5 байт

²µSHe

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

Техническое примечание: байты учитываются в кодовой странице Jelly.

Объяснение:

²µSHe  Main link.
²      Square each number.
 µ     With the new list,
  S    calculate its sum,
   H   and halve it.
    e  Check if the result exists in the new list (squared input)

Задача эквивалентна заданию трех чисел a, b, cи выяснению, существует ли такая перестановка a² + b² = c². Это эквивалентно тому, (a² + b² + c²) ÷ 2является ли оно одним из a², b² or c², поэтому программа просто проверяет это.

Python 2 , 37 байт

a,b,c=sorted(input())
1/(a*a+b*b-c*c)

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

-2 благодаря FlipTack .
-1 спасибо Крейгу Гидни .

Выходы через код выхода ( 0= ложь, 1= истина).

Java 8, 44 байта

(a,b,c)->(a*=a)+(b*=b)==(c*=c)|a+c==b|b+c==a

Объяснение:

Попробуй это здесь.

(a,b,c)->                // Method with three integer parameters and boolean return-type
  (a*=a)+(b*=b)==(c*=c)  //  Return if `a*a + b*b == c*c`
  |a+c==b                //  or `a*a + c*c == b*b`
  |b+c==a                //  or `b*b + c*c == a*a`
                         // End of method (implicit / single-line return-statement)

JavaScript (ES6), 43 41 40 байт

Сохранено 1 байт и исправлена ​​ошибка благодаря @Neil

Принимает ввод как массив из 3 целых чисел. Возвращает trueдля прямоугольных и falseдругих.

a=>a.some(n=>Math.hypot(...a,...a)==n*2)

let f =

a=>a.some(n=>Math.hypot(...a,...a)==n*2)

console.log(f([5, 3, 4     ])) //  --> yes
console.log(f([3, 5, 4     ])) //  --> yes
console.log(f([12, 37, 35  ])) //  --> yes
console.log(f([21, 38, 5   ])) //  --> no
console.log(f([210, 308, 15])) //  --> no

Оригинальная версия, 44 байта

Вводит как 3 целых числа. Возвращает 1для прямоугольных и 0других.

(a,b,c)=>(a*=a)+(b*=b)==(c*=c)|a+c==b|b+c==a

Контрольные примеры

let f =

(a,b,c)=>(a*=a)+(b*=b)==(c*=c)|a+c==b|b+c==a

console.log(f(5, 3, 4     )) //  --> yes
console.log(f(3, 5, 4     )) //  --> yes
console.log(f(12, 37, 35  )) //  --> yes
console.log(f(21, 38, 5   )) //  --> no
console.log(f(210, 308, 15)) //  --> no

Python 3 , 37 байт

lambda*l:sum(x*x/2for x in l)**.5in l

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

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

Треугольный , 57 байтов

Я еще не видел ни одного на этом языке, и было бы уместно попробовать сделать это. Это заняло немного ... поскольку я должен был сначала обдумать это, и я полагаю, что это могло бы быть гольфом еще немного.

,$\:$:*/%*$"`=P:pp.0"*>/>-`:S!>/U+<U"g+..>p`S:U/U"p`!g<>/

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

Это расширяется до следующего треугольника.

          ,
         $ \
        : $ :
       * / % *
      $ " ` = P
     : p p . 0 "
    * > / > - ` :
   S ! > / U + < U
  " g + . . > p ` S
 : U / U " p ` ! g <
> /

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

• $:* Квадрат первого входа.
• $:* Квадрат второй вход.
• S":Ug! Проверьте, больше ли второе значение, чем первое.
  • Верно p" своп с первым.
  • false p Ничего не делай.
• $:* Квадрат третий вход.
• P":USg! Проверьте, не превышает ли третье значение наибольшее из предыдущих.
  • истинная p+U- сумма текущего стека и удаление сохраненного третьего значения
  • ложная p"U+- сумма наименьшего и хранится третье и вычитать из наибольшего
• 0=% проверить равенство нулю и выходной результат.

Haskell ( 33 32 31 байт)

(\x->(sum x)/2`elem`x).map(^2)

Оригинальная версия:

(\x->2*maximum x==sum x).map(^2)

Анонимная функция. Принимает список в виде [a, b, c]. Выходы True или False.

Первая версия проверила, была ли сумма квадратов в два раза больше квадрата максимума.

Во-вторых, немного лучшая версия проверяет, является ли половина суммы квадратов элементом списка квадратов.

Редактировать: случайно пересчитал перевод строки, спасибо H.PWiz

Perl 6 , 24 байта

{(*²+*²==*²)(|.sort)}

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

*²+*²==*²является анонимной функцией, которая возвращает true, если сумма квадратов первых двух аргументов равна квадрату третьего аргумента. Мы передаем отсортированный входной список этой функции, уплощая его в список аргументов с помощью |.

R , 31 26 30 байт

cat(sum(a<-scan()^2)/max(a)==2)

Мне этот не очень нравится, но он короче. Суммирует квадраты и делит на самый большой квадрат. Правда если 2.

Предыдущая версия (модифицированная с помощью cat и с подсказкой @ Guiseppe)

cat(!sort(scan())^2%*%c(1,1,-1))

Сделайте сумму отсортированного ввода с последним отрицательным элементом и верните !not.

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

Brain-Flak , 68 байт

({({({})({}[()])}{}<>)<>})<>({<(({}){}<>[({})])>(){[()](<{}>)}{}<>})

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

Использует наблюдение в ответе пользователя 202729.

 {                      }      for each input number
   {({})({}[()])}{}            compute the square
  (                <>)<>       push onto second stack
(                        )     push sum of squares onto first stack
                          <>   move to second stack

 {                                    }    for each square
   (({}){}<>[({})])                        compute 2 * this square - sum of squares
  <                >(){[()](<{}>)}{}<>     evaluate loop iteration as 1 iff equal
(                                      )   push 1 if any squares matched, 0 otherwise

C (gcc) , 49 байтов

n(a,b,c){return(a*=a)+(b*=b)-(c*=c)&a+c-b&b+c-a;}

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

Улучшает технику Кевина Круйссенса

Возвращает 0 для правильного треугольника и ненулевое значение в противном случае

MATL , 7 байт

SU&0)s=

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

объяснение

Рассмотрим ввод [12, 37, 35].

S     % Implicit input. Sort
      % [12, 35, 37]
U     % Square each entry
      % [144, 1225, 1369]
&0)   % Push last entry and remaining entries
      % STACK: 1369, [144, 1225]
s     % Sum of array
      % STACK: 1369, 1369
=     % Isequal? Implicit display
      % STACK: 1

Python 2 , 43 байта

lambda a,b,c:(a*a+b*b+c*c)/2in(a*a,b*b,c*c)

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

Python 2 , 79 70 68 62 байта

lambda*l:any(A*A+B*B==C*C for A,B,C in zip(l,l[1:]+l,l[2:]+l))

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

C  68  54 байта

Используя решение user202729 .

f(a,b,c){return!((a*=a)+(b*=b)-(c*=c)&&a-b+c&&a-b-c);}

Спасибо @Christoph за игру в гольф 14 байтов!

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

C 85 байт

#define C(a,b,c)if(a*a+b*b==c*c)return 1;
f(a,b,c){C(a,b,c)C(b,c,a)C(c,a,b)return 0;}

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

Japt , 8 байт

Принимает ввод в виде массива.

m²
ø½*Ux

Попробуй

J, 10 байт

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

=`+/@\:~*:

оригинальный ответ

(+/@}:={:)@/:~*:

/:отсортировать квадраты *:, а затем проверить, +/@}:равна ли сумма первых двух последним{:

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

Треугольность ,  49  31 байт

...)...
..IEO..
.M)2s^.
}Re+=..

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

объяснение

У каждой программы треугольности должно быть треугольное заполнение (извините за каламбур). То есть i- я строка, считая от нижней части программы, должна быть дополнена i - 1 точками ( .) с каждой стороны. Чтобы точки-треугольники оставались симметричными и эстетически приятными, каждая строка должна состоять из 2L - 1 символов, где L - количество строк в программе. Удаление символов, которые составляют необходимый отступ, вот как работает код:

)IEOM)2s^}Re+=     Full program. Input: STDIN, Output: STDOUT, either 1 or 0.
)                  Pushes a zero onto the stack.
 IE                Evaluates the input at that index.
   O               Sorts the ToS (Top of the Stack).
    M)2s^}         Runs the block )2s^ on a separate stack, thus squaring each.
          R        Reverse.
           e       Dump the contents separately onto the stack.
            +      Add the top two items.
             =     Check if their sum is equal to the other entry on the stack (c^2).

Проверка, является ли треугольник прямоугольным в Треугольности ...

PowerShell , 39 байт

$a,$b,$c=$args|sort;$a*$a+$b*$b-eq$c*$c

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

Сортирует входные данные, сохраняет их в $a,$b,$cпеременных. Затем использует теорему Пифагора, чтобы проверить, является ли a*a + b*b = c*c. Вывод либо логический, Trueлибо False.

JavaScript 34 байта (без D =)

D=(d,[a,b,c]=d.sort())=>a*a+b*b==c*c

console.log(D([5, 3, 4       ])== true)
console.log(D([3, 5, 4       ])== true)
console.log(D([12, 37, 35    ])== true)
console.log(D([21, 38, 5     ])== false)
console.log(D([210, 308, 15  ])== false)

RProgN 2 , 10 байт

§²2^r]‘\+e

Разъяснения

§²2^r]‘\+e
§           # Sort the input list
 ²2^r       # Square each element in the list.
     ]      # Duplicate it on the reg stack.
      ‘     # Pop the top (largest) element off it
       \+   # Swap it, sum the rest of the list.
         e  # Are they equal?

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

Ракетка , 64 60 байт

(λ(a b c)(=(+(* a a)(* b b)(* c c))(*(expt(max a b c)2)2)))

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

Как это устроено

Тесты , если a^2 + b^2 + c^2равно удвоенному самый большой из a^2, b^2и c^2.

Возвращает #tдля правильных треугольников и #fдля всех других входов.

• -4 байта благодаря предложению @ xnor использовать expt.

05AB1E , 6 байтов

n{R`+Q

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

Рубин, 31 байт

->a{a,b,c=*a.sort;a*a+b*b==c*c}

Вводит в виде списка из 3 целых чисел. Использует некоторые идеи из других решений.

Юлия 0,6 , 16 байт

!x=x⋅x∈2x.*x

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

Как это устроено

Пусть x = [a, b, c] .

x⋅xявляется точечным произведением x и самого себя, поэтому оно дает ² + b² + c² .

2x.*xявляется поэлементным произведением 2x и x , поэтому оно дает [2a², 2b², 2c²] .

Наконец, ∈проверяется, принадлежит ли целое число a² + b² + c² к вектору [2a², 2b², 2c²] , что верно, если
a² + b² + c² = 2a² или a² + b² + c² = 2b² или a² + b² + c² = 2c² , что само по себе верно, если
b² + c² = a² или a² + c² = b² или a² + b² = c² .

Java (OpenJDK 8) , 68 байт

a->{java.util.Arrays.sort(a);return a[0]*a[0]+a[1]*a[1]==a[2]*a[2];}

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

TI-Basic, 13 11 10 байт

max(Ans=R►Pr(min(Ans),median(Ans

Теперь работает для входов в любом порядке, а также короче. Еще -1 благодаря @MishaLavrov

CJam, 9

q~$W%~mh=

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

Объяснение:

q~      read and evaluate the input (given as an array)
$W%     sort and reverse the array
~       dump the array on the stack
mh      get the hypotenuse of a right triangle with the given 2 short sides
=       compare with the longer side

Пари / ГП , 29 24 байта

f(v)=v~==2*vecmax(v)^2

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

Сохранено пять байтов за счет очевидного изменения с norml2(v)на v*v~.

Вдохновлен другими ответами.

Здесь vдолжен быть вектор строки или вектор столбца с тремя координатами.

Пример использования: f([3,4,5])

Конечно, вы получаете рациональные длины сторон бесплатно, например f([29/6, 10/3, 7/2]).

Если я не считаю f(v)=часть, то это 19 байтов. Первая часть также может быть записана v->(всего 22 байта).

Объяснение: Если три координат vявляются x, yи z, тем произведение vи его транспозиция v~дает скаляр x^2+y^2+^z^2, и мы должны проверить, что равно удвоенный квадрат максимума координат x, y, z.

Дополнительно: те же fтесты для пифагорейской четверки, если ваш входной вектор имеет четыре координаты и так далее.

MS Excel, 49 байт

Функция анонимного рабочего листа, которая принимает входные данные из диапазона [A1: C1] и выводит их в вызывающую ячейку.

=OR(A1^2+B1^2=C1^2,B1^2+C1^2=A1^2,A1^2+C1^2=B1^2)

Ом v2 , 8 6 байт

²DS)Σε

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