Dado a, b, co comprimento dos três lados de um triângulo, diga se o triângulo é angular (ou seja, tem um ângulo igual a 90 graus) ou não.

Entrada

Três valores inteiros positivos em qualquer ordem

Resultado

Ou uma verdadeira potência específica ( true, 1, yes, ...) ou uma saída específica falso ( false, 0, no, ...)

Exemplo

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

Regras

• A entrada e saída podem ser fornecidas em qualquer formato conveniente .
• Em seu envio, indique os valores verdadeiro e falso.
• Não há necessidade de lidar com valores negativos ou com borda tripla inválida
• Um programa completo ou uma função são aceitáveis. Se uma função, você pode retornar a saída em vez de imprimi-la.
• Se possível, inclua um link para um ambiente de teste on-line para que outras pessoas possam experimentar seu código!
• As brechas padrão são proibidas.
• Isso é código-golfe, portanto todas as regras usuais de golfe se aplicam e o código mais curto (em bytes) vence.

Gelatina , 5 bytes

²µSHe

Experimente online!

Nota técnica: Os bytes são contados na página de códigos Jelly.

Explicação:

²µ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)

O problema é equivalente a receber três números a, b, ce perguntar se existe uma permutação como essa a² + b² = c². Isso é equivalente a se (a² + b² + c²) ÷ 2é um dos a², b² or c²itens; portanto, o programa apenas verifica isso.

Python 2 , 37 bytes

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

Experimente online!

-2 graças ao FlipTack .
-1 graças a Craig Gidney .

Saídas via código de saída ( 0= false, 1= true).

Java 8, 44 bytes

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

Explicação:

Experimente aqui.

(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 bytes

Salvo 1 byte e corrigido um erro graças a @Neil

Recebe a entrada como uma matriz de 3 números inteiros. Retorna truepara ângulos retos e falseoutros.

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

Versão original, 44 bytes

Aceita entrada como 3 números inteiros. Retorna 1para ângulos retos e 0outros.

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

Casos de teste

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 bytes

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

Experimente online!

Pode ocorrer problemas de precisão de flutuação com entradas grandes.

Triangular , 57 bytes

Ainda não vi nada nesse idioma e parecia apropriado tentar fazer um. Demorou um pouco ... já que eu tinha que pensar primeiro e acredito que isso poderia ser um pouco mais de golfe.

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

Experimente online!

Isso se expande para o seguinte triângulo.

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

O caminho é bastante complicado, mas vou tentar explicar o que fiz. Vou pular os ponteiros direcionais. A maior parte do código é manipulação de pilha.

• $:* Esquadrar a primeira entrada.
• $:* Esquadre a segunda entrada.
• S":Ug! Teste se o segundo valor é maior que o primeiro.
  • p"Trocar verdadeiro com o primeiro.
  • false p Não faça nada.
• $:* Esquadre a terceira entrada.
• P":USg! Teste se o terceiro valor é maior que o maior do anterior.
  • p+U-soma verdadeira a pilha atual e tirar o terceiro valor armazenado
  • p"U+-soma falsa menor e armazenada terceira e subtrair da maior
• 0=% teste a igualdade para zero e o resultado da saída.

Haskell ( 33 32 31 bytes)

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

Versão original:

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

Função anônima. Pega uma lista no formato [a, b, c]. Saídas True ou False.

A primeira versão verificou se a soma dos quadrados era duas vezes o quadrado do máximo.

Segundo, uma versão um pouco melhor verifica se metade da soma dos quadrados é um elemento na lista de quadrados.

Edit: Contou acidentalmente uma nova linha, obrigado H.PWiz

Perl 6 , 24 bytes

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

Experimente online!

*²+*²==*²é uma função anônima que retorna true se a soma dos quadrados dos dois primeiros argumentos for igual ao quadrado do terceiro argumento. Passamos a lista de entrada classificada para essa função, achatando-a na lista de argumentos com |.

R , 31 26 30 bytes

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

Eu não gosto muito deste, mas é mais curto. Soma os quadrados e divide pelo quadrado maior. Verdadeiramente se 2.

Versão anterior (modificada com gato e com a dica de @ Guiseppe)

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

Faça uma soma da entrada classificada com o último item negado e retorne o !não.

Experimente online!

Flak cerebral , 68 bytes

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

Experimente online!

Usa a observação na resposta do usuário202729.

 {                      }      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 bytes

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

Experimente online!

Melhora a técnica de Kevin Cruijssens

Retorna 0 para um triângulo válido e um valor diferente de zero, caso contrário

MATL , 7 bytes

SU&0)s=

Experimente online!

Explicação

Considere entrada [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 bytes

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

Experimente online!

Python 2 , 79 70 68 62 bytes

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

Experimente online!

C,  68  54 bytes

Usando a solução de user202729 .

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

Graças a @Christoph por jogar 14 bytes!

Experimente online!

C, 85 bytes

#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;}

Experimente online!

Japonês , 8 bytes

Recebe entrada como uma matriz.

m²
ø½*Ux

Tente

J, 10 bytes

-6 bytes graças ao FrownyFrog

=`+/@\:~*:

resposta original

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

/:classifique os quadrados *:e verifique se a soma dos dois primeiros +/@}:é igual ao último{:

Experimente online!

Triangularidade ,  49  31 bytes

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

Experimente online!

Explicação

Todo programa de triangularidade deve ter um preenchimento triangular (desculpe o trocadilho). Ou seja, a i- ésima linha da parte inferior do programa deve ser preenchida com i-1 pontos ( .) em cada lado. Para manter os triângulos de pontos simétricos e esteticamente agradáveis, cada linha deve consistir em 2L - 1 caracteres, onde L é o número de linhas no programa. Removendo os caracteres que compõem o preenchimento necessário, eis como o código funciona:

)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).

Verificando se um triângulo está em ângulo reto na Triangularidade ...

PowerShell , 39 bytes

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

Experimente online!

Classifica a entrada, armazena isso em $a,$b,$cvariáveis. Em seguida, usa o teorema de Pitágoras para verificar se a*a + b*b = c*c. A saída é booleana Trueou False.

JavaScript 34 bytes (sem 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 bytes

§²2^r]‘\+e

Explicado

§²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?

Experimente online!

Raquete , 64 60 bytes

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

Experimente online!

Como funciona

Testa se a^2 + b^2 + c^2é igual a duas vezes o maior de a^2, b^2e c^2.

Retorna #tpara triângulos retos e #fpara todas as outras entradas.

• -4 bytes, graças à sugestão de @ xnor de usar expt.

05AB1E , 6 bytes

n{R`+Q

Experimente online!

Ruby, 31 bytes

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

Leva a entrada como uma lista de 3 números inteiros. Usa algumas idéias de outras soluções.

Julia 0.6 , 16 bytes

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

Experimente online!

Como funciona

Seja x = [a, b, c] .

x⋅xé o produto escalar de x e de si mesmo, portanto produz a² + b² + c² .

2x.*xé o produto dos elementos 2x e x , portanto, produz [2a², 2b², 2c²] .

Finalmente, ∈testa se o número inteiro a² + b² + c² pertence ao vetor [2a², 2b², 2c²] , o que é verdadeiro se
a² + b² + c² = 2a² ou a² + b² + c² = 2b² ou a² + b² + c² = 2c² , o que em si é verdadeiro se
b² + c² = a² ou a² + c² = b² ou a² + b² = c² .

Java (OpenJDK 8) , 68 bytes

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

Experimente online!

TI-Basic, 13 11 10 bytes

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

Agora funciona para entradas em qualquer ordem e também é mais curto. Mais -1 graças a @MishaLavrov

CJam, 9

q~$W%~mh=

Experimente online

Explicação:

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

Pari / GP , 29 24 bytes

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

Experimente online!

Salvo cinco bytes por uma mudança óbvia de norml2(v)para v*v~.

Inspirado por outras respostas.

Aqui vdeve haver um vetor de linha ou um vetor de coluna com três coordenadas.

Exemplo de uso: f([3,4,5])

Obviamente, você obtém comprimentos laterais racionais de graça, por exemplo f([29/6, 10/3, 7/2]).

Se eu não contar a f(v)=parte, isso significa 19 bytes. A primeira parte também pode ser gravada v->(total de 22 bytes).

Explicação: Se as três coordenadas do vsão x, ye z, em seguida, o produto de ve sua transposição v~dá um escalar x^2+y^2+^z^2, e é preciso verificar se isso é igual a duas vezes o quadrado da máxima das coordenadas x, y, z.

Extra: Os mesmos ftestes para um quadruplo pitagórico, se o seu vetor de entrada tiver quatro coordenadas, e assim por diante.

MS Excel, 49 bytes

Função de planilha anônima que recebe entrada do intervalo [A1: C1] e sai para a célula chamadora.

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

Ohm v2 , 8 6 bytes

²DS)Σε

Experimente online!