Data a, b, cla lunghezza dei tre lati di un triangolo, dire se il triangolo è ad angolo retto (cioè ha un angolo uguale a 90 gradi) o no.

Ingresso

Tre valori interi positivi in qualsiasi ordine

Produzione

O una specifica vera uscita ( true, 1, yes, ...) o di una potenza specifica falsa ( false, 0, no, ...)

Esempio

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

Regole

• L'input e l'output possono essere forniti in qualsiasi formato conveniente .
• Nel tuo invio, indica i valori vero e falso.
• Non è necessario gestire valori negativi o triple edge non validi
• È accettabile un programma completo o una funzione. Se una funzione, è possibile restituire l'output anziché stamparlo.
• Se possibile, includi un collegamento a un ambiente di test online in modo che altre persone possano provare il tuo codice!
• Sono vietate le scappatoie standard .
• Si tratta di code-golf quindi si applicano tutte le normali regole del golf e vince il codice più breve (in byte).

Gelatina , 5 byte

²µSHe

Provalo online!

Nota tecnica: i byte vengono contati nella tabella codici Jelly.

Spiegazione:

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

Il problema equivale a ricevere tre numeri a, b, ce chiedere se esiste una permutazione tale a² + b² = c². Questo equivale al fatto che (a² + b² + c²) ÷ 2sia uno dei due a², b² or c², quindi il programma lo controlla.

Python 2 , 37 byte

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

Provalo online!

-2 grazie a FlipTack .
-1 grazie a Craig Gidney .

Output tramite il codice di uscita ( 0= false, 1= true).

Java 8, 44 byte

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

Spiegazione:

Provalo qui.

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

Salvato 1 byte e corretto un bug grazie a @Neil

Accetta l'input come una matrice di 3 numeri interi. Restituisce trueper angolo retto e falsealtrimenti.

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

Versione originale, 44 byte

Accetta input come 3 numeri interi. Restituisce 1per angolo retto e 0altrimenti.

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

Casi test

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 byte

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

Provalo online!

Potrebbe incorrere in problemi di precisione mobile con input di grandi dimensioni.

Triangolare , 57 byte

Non ne ho ancora visto nessuno in questa lingua e mi è sembrato appropriato provare a farlo. Ci è voluto un po '... dato che dovevo prima pensarci su e credo che questo possa essere giocato ancora un po'.

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

Provalo online!

Questo si espande al seguente triangolo.

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

Il percorso è piuttosto complicato, ma proverò a spiegare cosa ho fatto. Salto i puntatori direzionali. Gran parte del codice è manipolazione dello stack.

• $:* Piazza il primo input.
• $:* Quadrare il secondo input.
• S":Ug! Verifica se il secondo valore è maggiore del primo.
  • true p" Scambia con il primo.
  • false p Non fare nulla.
• $:* Quadrare il terzo input.
• P":USg! Verifica se il terzo valore è maggiore del massimo del precedente.
  • true p+U- somma lo stack corrente e porta via il terzo valore memorizzato
  • falsa p"U+- somma il minimo e terzo memorizzato e sottrazione dal maggiore
• 0=% verifica l'uguaglianza a zero e il risultato di output.

Haskell ( 33 32 31 byte)

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

Versione originale:

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

Funzione anonima. Prende un elenco nel formato [a, b, c]. Output Vero o Falso.

La prima versione ha verificato se la somma dei quadrati era il doppio del quadrato del massimo.

In secondo luogo, la versione leggermente migliore verifica se la metà della somma dei quadrati è un elemento nell'elenco dei quadrati.

Modifica: accidentalmente contato una nuova riga, grazie H.PWiz

Perl 6 , 24 byte

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

Provalo online!

*²+*²==*²è una funzione anonima che ritorna vera se la somma dei quadrati dei suoi primi due argomenti è uguale al quadrato del suo terzo argomento. Passiamo l'elenco di input ordinato a questa funzione, appiattendolo nell'elenco di argomenti con |.

R , 31 26 30 byte

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

Non mi piace così tanto, ma è più corto. Somma le piazze e divide per la piazza più grande. Veramente se 2.

Versione precedente (modificata con cat e con il suggerimento di @ Guiseppe)

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

Fai una somma dell'input ordinato con l'ultimo elemento negato e restituisci il !non.

Provalo online!

Brain-Flak , 68 byte

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

Provalo online!

Utilizza l'osservazione nella risposta di user202729.

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

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

Provalo online!

Migliora la tecnica di Kevin Cruijssens

Restituisce 0 per un triangolo valido e un valore diverso da zero in caso contrario

MATL , 7 byte

SU&0)s=

Provalo online!

Spiegazione

Considera l'input [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 byte

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

Provalo online!

Python 2 , 79 70 68 62 byte

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

Provalo online!

C,  68  54 byte

Utilizzando la soluzione di user202729 .

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

Grazie a @Christoph per il golf 14 byte!

Provalo online!

C, 85 byte

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

Provalo online!

Japt , 8 byte

Accetta input come un array.

m²
ø½*Ux

Provalo

J, 10 byte

-6 byte grazie a FrownyFrog

=`+/@\:~*:

risposta originale

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

/:ordina i quadrati *:, quindi controlla se la somma dei primi due è +/@}:uguale all'ultimo{:

Provalo online!

Triangolarità ,  49  31 byte

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

Provalo online!

Spiegazione

Ogni programma di triangolarità deve avere un'imbottitura triangolare (scusate il gioco di parole). Cioè, l' i esimo conteggio linea dal basso del programma deve essere riempito con i - 1 puntini ( .) su ciascun lato. Per mantenere i triangoli a punti simmetrici ed esteticamente gradevoli, ogni riga deve essere composta da 2L - 1 caratteri, dove L è il numero di righe nel programma. Rimozione dei caratteri che compensano il riempimento necessario, ecco come funziona il codice:

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

Verifica se un triangolo è rettangolo in Triangularity ...

PowerShell , 39 byte

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

Provalo online!

Ordina l'input, lo memorizza in $a,$b,$cvariabili. Quindi utilizza il teorema di Pitagora per verificare se a*a + b*b = c*c. L'output è booleano Trueo False.

JavaScript 34 byte (senza 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 byte

§²2^r]‘\+e

spiegato

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

Provalo online!

Racchetta , 64 60 byte

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

Provalo online!

Come funziona

Verifica se a^2 + b^2 + c^2è uguale a due volte più grande di a^2, b^2e c^2.

Restituisce #tper i triangoli retti e #fper tutti gli altri input.

• -4 byte grazie al suggerimento di @ xnor da usare expt.

05AB1E , 6 byte

n{R`+Q

Provalo online!

Rubino, 31 byte

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

Prende l'input come un elenco di 3 numeri interi. Utilizza alcune idee di altre soluzioni.

Julia 0.6 , 16 byte

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

Provalo online!

Come funziona

Sia x = [a, b, c] .

x⋅xè il prodotto punto di xe stesso, quindi produce a² + b² + c² .

2x.*xè il prodotto elementare di 2x e x , quindi produce [2a², 2b², 2c²] .

Infine, ∈verifica se il numero intero a² + b² + c² appartiene al vettore [2a², 2b², 2c²] , che è vero sef
a² + b² + c² = 2a² o a² + b² + c² = 2b² o a² + b² + c² = 2c² , che è vero se
if b² + c² = a² o a² + c² = b² o a² + b² = c² .

Java (OpenJDK 8) , 68 byte

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

Provalo online!

TI-Basic, 13 11 10 byte

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

Ora funziona per gli input in qualsiasi ordine ed è anche più breve. Un altro -1 grazie a @MishaLavrov

CJam, 9

q~$W%~mh=

Provalo online

Spiegazione:

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 byte

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

Provalo online!

Salvati cinque byte con un evidente cambiamento da norml2(v)a v*v~.

Ispirato da altre risposte.

Qui vdeve esserci un vettore di riga o un vettore di colonna con tre coordinate.

Esempio di utilizzo: f([3,4,5])

Naturalmente, ad esempio, ottieni gratuitamente lunghezze laterali razionali f([29/6, 10/3, 7/2]).

Se non conto la f(v)=parte, sono 19 byte. È anche possibile scrivere la prima parte v->(totale 22 byte).

Spiegazione: Se le tre coordinate di vsono x, ye z, quindi il prodotto di ve la sua trasposta v~dà uno scalare x^2+y^2+^z^2, e abbiamo bisogno di controllare se questo è pari al doppio del quadrato del massimo delle coordinate x, y, z.

Extra: gli stessi ftest per una quadrupla pitagorica se il tuo vettore di input ha quattro coordinate e così via.

MS Excel, 49 byte

Funzione del foglio di lavoro anonima che accetta input dall'intervallo [A1: C1] e li invia alla cella chiamante.

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

Ohm v2 , 8 6 byte

²DS)Σε

Provalo online!