Враховуючи 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= false, 1= true).

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" своп з першим.
  • фальшиво 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]. Виводи точні чи помилкові.

Перша версія перевіряється, чи сума квадратів була вдвічі більшою від площі максимальної.

По-друге, трохи краща версія перевіряє, чи половина суми квадратів є елементом у списку квадратів.

Редагувати: Випадково порахував новий рядок, дякую H.PWiz

Perl 6 , 24 байти

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

Спробуйте в Інтернеті!

*²+*²==*²- анонімна функція, яка повертає істину, якщо сума квадратів двох її перших аргументів дорівнює квадрату третього аргументу. Ми передаємо відсортований вхідний список цій функції, вирівнюючи його в список аргументів |.

R , 31 26 30 байт

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

Мені такий не подобається, але він коротший. Підсумовує квадрати і ділиться на найбільший квадрат. Truthy якщо 2.

Попередня версія (модифікована за допомогою кота та підказкою @ Guiseppe)

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

Зробіть суму відсортованого вводу з останнім елементом запереченням і поверніть !не.

Спробуйте в Інтернеті!

Мозок-Флак , 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 крапкою ( .) з кожної сторони. Для того, щоб трикутники були симетричними та естетично приємними, кожен рядок повинен складатися з 2 л - 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.

34 байти JavaScript (без 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 і сам по собі, тому він дає a² + b² + c² .

2x.*xє елементним продуктом 2x та x , тому він дає [2a², 2b², 2c²] .

Нарешті, тестуємо,∈ чи ціле число a² + b² + c² належить вектору [2a², 2b², 2c²] , що відповідає дійсності iff
a² + b² + c² = 2a² або a² + b² + c² = 2b² або a² + b² + c² = 2c² , що само по собі є правдою iff
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

Парі / GP , 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)Σε

Спробуйте в Інтернеті!