Mengingat a, b, cpanjang tiga sisi segitiga, katakan apakah segitiga siku-siku (yaitu memiliki satu sudut sama dengan 90 derajat) atau tidak.

Memasukkan

Tiga nilai integer positif dalam urutan apa pun

Keluaran

Entah tertentu keluaran yang benar ( true, 1, yes, ...) atau output tertentu palsu ( false, 0, no, ...)

Contoh

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

Aturan

• Input dan output dapat diberikan dalam format apa pun yang nyaman .
• Dalam kiriman Anda, sebutkan nilai-nilai benar dan salah.
• Tidak perlu menangani nilai negatif atau triple edge yang tidak valid
• Program lengkap atau fungsi dapat diterima. Jika suatu fungsi, Anda dapat mengembalikan output daripada mencetaknya.
• Jika memungkinkan, harap sertakan tautan ke lingkungan pengujian online agar orang lain dapat mencoba kode Anda!
• Celah standar dilarang.
• Ini adalah kode-golf sehingga semua aturan golf biasa berlaku, dan kode terpendek (dalam byte) menang.

Jelly , 5 byte

²µSHe

Cobalah online!

Catatan teknis: Bytes dihitung dalam codepage Jelly.

Penjelasan:

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

Masalahnya setara dengan diberi tiga angka a, b, c, dan menanyakan apakah ada permutasi sedemikian rupa a² + b² = c². Ini sama dengan apakah (a² + b² + c²) ÷ 2salah satu a², b² or c², jadi program hanya memeriksa itu.

Python 2 , 37 byte

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

Cobalah online!

-2 Berkat FlipTack .
-1 Terima kasih kepada Craig Gidney .

Keluaran melalui kode keluar ( 0= false, 1= true).

Java 8, 44 byte

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

Penjelasan:

Coba di sini.

(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

Disimpan 1 byte dan memperbaiki bug berkat @Neil

Mengambil input sebagai array 3 bilangan bulat. Pengembalian trueuntuk sudut kanan dan falsesebaliknya.

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

Versi asli, 44 byte

Mengambil input sebagai 3 bilangan bulat. Pengembalian 1untuk sudut kanan dan 0sebaliknya.

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

Uji kasus

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

Cobalah online!

Mungkin mengalami masalah presisi float dengan input besar.

Segitiga , 57 byte

Saya belum melihat satupun dalam bahasa ini dan sepertinya pantas untuk mencoba dan melakukannya. Butuh sedikit ... karena saya harus mendapatkan kepala saya dulu dan saya percaya ini bisa golf lagi.

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

Cobalah online!

Ini meluas ke segitiga berikut.

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

Jalannya berbelit-belit, tetapi saya akan mencoba dan menjelaskan apa yang telah saya lakukan. Saya akan melewatkan petunjuk arah. Sebagian besar kode adalah manipulasi tumpukan.

• $:* Masukkan input pertama.
• $:* Kotak input kedua.
• S":Ug! Uji apakah nilai kedua lebih besar dari yang pertama.
  • benar p" Swap dengan yang pertama.
  • false, tidak p melakukan apa-apa.
• $:* Kuadratkan input ketiga.
• P":USg! Uji apakah nilai ketiga lebih besar dari yang terbesar dari sebelumnya.
  • true p+U- jumlah stack saat ini dan ambil nilai ketiga yang tersimpan
  • false p"U+- sum paling sedikit dan disimpan ketiga dan kurangi dari terbesar
• 0=% uji kesetaraan ke nol dan hasil keluaran.

Haskell ( 33 32 31 byte)

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

Versi asli:

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

Fungsi anonim. Mengambil daftar dalam bentuk [a, b, c]. Output Benar atau Salah.

Versi pertama memeriksa apakah jumlah kuadrat dua kali kuadrat maksimum.

Kedua, versi yang sedikit lebih baik memeriksa apakah setengah jumlah kuadrat adalah elemen dalam daftar kuadrat.

Sunting: Secara tidak sengaja menghitung baris baru, terima kasih H.PWiz

Perl 6 , 24 byte

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

Cobalah online!

*²+*²==*²adalah fungsi anonim yang mengembalikan true jika jumlah kuadrat dari dua argumen pertamanya sama dengan kuadrat dari argumen ketiga. Kami meneruskan daftar input yang diurutkan ke fungsi ini, meratakannya ke dalam daftar argumen dengan |.

R , 31 26 30 byte

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

Saya tidak suka yang ini, tapi lebih pendek. Jumlahkan kuadrat dan bagi dengan kuadrat terbesar. Benar kalau 2.

Versi Sebelumnya (dimodifikasi dengan kucing dan dengan tip @ Guiseppe)

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

Lakukan penjumlahan dari input yang disortir dengan item terakhir dinegasi dan kembalikan !tidak.

Cobalah online!

Brain-Flak , 68 byte

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

Cobalah online!

Menggunakan pengamatan dalam jawaban 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;}

Cobalah online!

Memperbaiki teknik Kevin Cruijssens

Mengembalikan 0 untuk segitiga yang valid, dan nilai yang bukan nol sebaliknya

MATL , 7 byte

SU&0)s=

Cobalah online!

Penjelasan

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

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

Cobalah online!

C,  68  54 byte

Menggunakan solusi user202729 .

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

Terima kasih kepada @Christoph untuk bermain golf 14 byte!

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

Cobalah online!

Japt , 8 byte

Mengambil input sebagai array.

m²
ø½*Ux

Cobalah

J, 10 byte

-6 byte berkat FrownyFrog

=`+/@\:~*:

jawaban asli

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

/:urutkan kotak *:, lalu periksa apakah jumlah dari dua yang pertama +/@}:sama dengan yang terakhir{:

Cobalah online!

Triangularity ,  49  31 byte

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

Cobalah online!

Penjelasan

Setiap program Triangularity harus memiliki bantalan segitiga (maafkan permainan kata-katanya). Artinya, saya th garis penghitungan dari bagian bawah program harus empuk dengan i - 1 titik ( .) di setiap sisi. Untuk menjaga agar dot-segitiga simetris dan menyenangkan secara estetika, setiap baris harus terdiri dari 2L - 1 karakter, di mana L adalah jumlah baris dalam program. Menghapus karakter yang menggantikan padding yang diperlukan, berikut adalah cara kerjanya:

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

Memeriksa apakah segitiga siku-siku dalam Triangularity ...

PowerShell , 39 byte

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

Cobalah online!

Mengurutkan input, menyimpannya ke dalam $a,$b,$cvariabel. Kemudian gunakan teorema Pythagoras untuk memeriksa apakah a*a + b*b = c*c. Outputnya adalah Boolean Trueatau False.

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

Dijelaskan

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

Cobalah online!

Racket , 64 60 byte

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

Cobalah online!

Bagaimana itu bekerja

Tes jika a^2 + b^2 + c^2sama dengan dua kali terbesar a^2, b^2dan c^2.

Pengembalian #tuntuk segitiga siku-siku dan #funtuk semua input lainnya.

• -4 byte berkat saran @ xnor untuk digunakan expt.

05AB1E , 6 byte

n{R`+Q

Cobalah online!

Ruby, 31 byte

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

Mengambil input sebagai daftar 3 bilangan bulat. Gunakan beberapa ide dari solusi lain.

Julia 0,6 , 16 byte

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

Cobalah online!

Bagaimana itu bekerja

Misalkan x = [a, b, c] .

x⋅xadalah produk titik dari x dan itu sendiri, sehingga menghasilkan a² + b² + c² .

2x.*xadalah produk elemen-bijaksana 2x dan x , sehingga menghasilkan [2a², 2b², 2c²] .

Akhirnya, ∈tes apakah bilangan bulat a² + b² + c² milik vektor [2a², 2b², 2c²] , yang benar iff
a² + b² + c² = 2a² atau a² + b² + c² = 2b² atau a² + b² + c² = 2c² , yang dengan sendirinya benar jika
b² + c² = a² atau a² + c² = b² atau 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];}

Cobalah online!

TI-Basic, 13 11 10 byte

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

Sekarang berfungsi untuk input dalam urutan apa pun dan juga lebih pendek. -1 Lain terima kasih kepada @MishaLavrov

CJam, 9

q~$W%~mh=

Cobalah online

Penjelasan:

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

Cobalah online!

Disimpan lima byte oleh perubahan yang jelas dari norml2(v)menjadi v*v~.

Terinspirasi oleh jawaban lain.

Di sini vharus ada vektor baris atau vektor kolom dengan tiga koordinat.

Contoh penggunaan: f([3,4,5])

Tentu saja, Anda mendapatkan panjang sisi rasional secara gratis, misalnya f([29/6, 10/3, 7/2]).

Jika saya tidak menghitung f(v)=bagian, itu adalah 19 byte. Bagian pertama juga dapat ditulis v->(total 22 byte).

Penjelasan: Jika tiga koordinat vyang x, ydan z, maka produk vdan transposnya v~memberikan skalar x^2+y^2+^z^2, dan kita perlu memeriksa apakah yang sama dengan dua kali kuadrat dari maksimum koordinat x, y, z.

Ekstra:f Tes yang sama untuk quadruple Pythagoras jika vektor input Anda memiliki empat koordinat, dan seterusnya.

MS Excel, 49 Bytes

Fungsi lembar kerja anonim yang mengambil input dari rentang [A1: C1] dan output ke sel panggilan.

=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)Σε

Cobalah online!