a, b, cBir üçgenin üç kenarının uzunluğu göz önüne alındığında , üçgenin dik açılı olup olmadığını (yani 90 dereceye eşit bir açıya sahip olup olmadığını) söyleyin .

Giriş

Herhangi bir sırada üç pozitif tam sayı değeri

Çıktı

Ya belirli bir gerçek çıktı ( true, 1, yes, ...) veya belirli bir sahte çıktı ( false, 0, no, ...)

Örnek

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

kurallar

• Giriş ve çıkış herhangi bir uygun formatta verilebilir .
• Gönderiminizde lütfen doğru ve yanlış değerleri belirtin.
• Negatif değerleri veya geçersiz kenar üçünü kullanmaya gerek yok
• Tam bir program veya bir işlev kabul edilebilir. Bir işlevse, çıktıyı yazdırmak yerine geri gönderebilirsiniz.
• Mümkünse, lütfen başkalarının kodunuzu deneyebilmesi için çevrimiçi bir test ortamına bir bağlantı ekleyin!
• Standart boşluklar yasaktır.
• Bu kod-golf olduğundan, tüm normal golf kuralları geçerlidir ve en kısa kod (bayt cinsinden) kazanır.

Jöle , 5 bayt

²µSHe

Çevrimiçi deneyin!

Teknik not: Jöle kod sayfasında Bayt sayılır.

Açıklama:

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

Sorun, üç sayı verilmesine eşdeğerdir a, b, cve böyle bir izin olup olmadığını sormaktır a² + b² = c². Bu, (a² + b² + c²) ÷ 2birinin olup olmadığına eşdeğerdir a², b² or c², bu nedenle program bunu kontrol eder.

Python 2 , 37 bayt

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

Çevrimiçi deneyin!

-2 FlipTack sayesinde .
-1 Craig Gidney'e teşekkürler .

Çıkış koduyla çıkışlar ( 0= false, 1= true).

Java 8, 44 bayt

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

Açıklama:

Burada dene.

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

1 Bayt kaydedildi ve @Neil sayesinde bir hata düzeltildi

Girdiyi 3 tam sayı dizisi olarak alır. trueDik açılı ve falsebaşka türlü döndürür .

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

Orijinal sürüm, 44 bayt

Girdiyi 3 tamsayı olarak alır. 1Dik açılı ve 0başka türlü döndürür .

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

Test durumları

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 bayt

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

Çevrimiçi deneyin!

Büyük girdilerle birlikte float hassas sorunları ile karşılaşabilir.

Üçgen , 57 bayt

Bu dilde henüz bir şey görmedim ve denemeyi denemek uygun görünüyordu. Biraz zaman aldı ... ilk başta kafamı sarmak zorunda kaldım ve bunun biraz daha golf oynayabileceğine inanıyorum.

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

Çevrimiçi deneyin!

Bu, aşağıdaki üçgene genişler.

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

Yol oldukça kıvrımlı, ancak ne yaptığımı açıklamaya çalışacağım. Yön işaretlerini atlayacağım. Kodun çoğu yığın manipülasyonudur.

• $:* İlk girişi kareleyin.
• $:* İkinci girişi kare.
• S":Ug! İkinci değerin ilk değerden büyük olup olmadığını test edin.
  • p"ilk gerçek takas.
  • false p Hiçbir Şey Yapma.
• $:* Üçüncü girişi kare.
• P":USg! Üçüncü değerin öncekinin en büyük değerinden büyük olup olmadığını test edin.
  • true p+U- , geçerli yığını toplamla ve depolanan üçüncü değeri al
  • Yanlış p"U+- toplamı en az ve saklanan üçüncü ve en büyük çıkar
• 0=% sıfıra eşitlik testi ve çıktı sonucu.

Haskell ( 33 32 31 bayt)

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

Orijinal versiyon:

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

Anonim işlev [A, b, c] biçiminde bir liste alır. Doğru veya Yanlış çıktılar.

İlk versiyon karelerin toplamının maksimumun karesinin iki katı olup olmadığını kontrol etti.

İkinci olarak, biraz daha iyi versiyon kareler toplamının yarısının kareler listesindeki bir eleman olup olmadığını kontrol eder.

Düzenleme: Yanlışlıkla newline sayılır, teşekkürler H.PWiz

Perl 6 , 24 bayt

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

Çevrimiçi deneyin!

*²+*²==*²ilk iki argümanının karelerinin toplamı, üçüncü argümanın karesine eşitse doğru olan isimsiz bir fonksiyondur. Sıralanan giriş listesini bu işleve iletip argüman listesine düzleştiriyoruz |.

R , 31 26 30 bayt

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

Bundan pek hoşlanmıyorum, ama daha kısa. Kareleri toplar ve en büyük kareye böler. 2 ise hakikaten.

Önceki Sürüm (kediyle ve @ Guiseppe'nin bahşişiyle değiştirilmiş)

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

Sıralanan girişin toplamını son öğe negatiften yapın ve geri döndürmeyin !.

Çevrimiçi deneyin!

Brain-Flak , 68 bayt

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

Çevrimiçi deneyin!

Kullanıcının202729 yanıtındaki gözlemi kullanır.

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

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

Çevrimiçi deneyin!

Üzerinde geliştirir Kevin Cruijssens tekniği

Geçerli bir üçgen için 0 değerini, aksi takdirde sıfır olmayan bir değer döndürür

MATL , 7 bayt

SU&0)s=

Çevrimiçi deneyin!

açıklama

Girişi düşünün [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 bayt

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

Çevrimiçi deneyin!

Python 2 , 79 70 68 62 bayt

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

Çevrimiçi deneyin!

C,  68  54 bayt

User202729'un çözümünü kullanarak .

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

14 byte golf oynadığı için @ Christoph'a teşekkürler!

Çevrimiçi deneyin!

C, 85 bayt

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

Çevrimiçi deneyin!

Japt , 8 bayt

Diziyi girdi olarak alır.

m²
ø½*Ux

Dene

J, 10 bayt

FrownyFrog sayesinde -6 bayt

=`+/@\:~*:

orijinal cevap

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

/:kareleri sıralayın *:, ardından ilk ikisinin toplamının +/@}:sonuncusuna eşit olup olmadığını{:

Çevrimiçi deneyin!

Üçgensellik ,  49  31 bayt

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

Çevrimiçi deneyin!

açıklama

Her Üçgensellik programında üçgen bir dolgu maddesi olmalıdır (punto hariç). Kendisine, i programın altından inci satır sayma dolgulu olmalıdır i - 1 noktalar ( .her iki tarafta). Nokta üçgenleri simetrik ve estetik olarak hoş tutmak için, her satır 2L - 1 karakterden oluşmalıdır , burada L programdaki satır sayısıdır. Gerekli dolguyu oluşturan karakterleri kaldırmak, işte kodun çalışması:

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

Üçgenlikte üçgenin dik açılı olup olmadığını kontrol etmek ...

PowerShell , 39 bayt

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

Çevrimiçi deneyin!

Girişi sıralar, $a,$b,$cdeğişkenlere kaydeder. Sonra Pisagor teoremi kullanarak olup olmadığını kontrol etmek a*a + b*b = c*c. Çıktı Boolean Trueveya False.

JavaScript 34 bayt (D = olmadan)

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)

RProgN2 , 10 bayt

§²2^r]‘\+e

Açıklaması

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

Çevrimiçi deneyin!

Raket , 64 60 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır

Testler eğer a^2 + b^2 + c^2isimli iki katı büyük için eşit a^2, b^2ve c^2.

İade #thakkı üçgenler ve #fdiğer tüm girişler için.

• @ Xnor’ın kullanması önerisi sayesinde -4 bayt expt.

05AB1E , 6 bayt

n{R`+Q

Çevrimiçi deneyin!

Ruby, 31 bayt

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

3 tam sayı listesi olarak girdi alır. Diğer çözümlerden bazı fikirler kullanır.

Julia 0.6 , 16 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır

Let , x = [a, b, c] .

x⋅xx'in kendisinin nokta ürünü olduğundan, a² + b² + c² verir .

2x.*x2x ve x'in eleman şeklinde ürünüdür , bu yüzden [2a², 2b², 2c²] ürün verir .

Son olarak, ∈test ise tam sayı a² + b² + c² vektöre ait [2a², 2b², 2c²] olduğu, doğru iff
a² + b² + c² = 2a² veya a² + b² + c² = 2b² veya a² + b² + c² = 2c² , olan kendisi doğru iff
b² + c² = a² veya a² + c² = b² veya a² + b² = c² .

Java (OpenJDK 8) , 68 bayt

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

Çevrimiçi deneyin!

TI-Basic, 13 11 10 bayt

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

Şimdi herhangi bir sırayla girişler için çalışıyor ve aynı zamanda daha kısa. @MishaLavrov sayesinde bir -1 daha

CJam, 9

q~$W%~mh=

Çevrimiçi deneyin

Açıklama:

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 bayt

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

Çevrimiçi deneyin!

Dan bariz bir değişiklikten beş bayt Kaydedilen norml2(v)için v*v~.

Diğer cevaplardan ilham alındı.

Burada vbir satır vektörü veya üç koordinatlı bir sütun vektörü olmalıdır .

Kullanım örneği: f([3,4,5])

Tabii ki, örneğin ücretsiz rasyonel yan uzunlukları olsun f([29/6, 10/3, 7/2]).

Parçayı saymazsam f(v)=, bu 19 bayttır. İlk kısım da yazılabilir v->(toplam 22 bayt).

Açıklama: Üç koordinatları ise vşunlardır x, yve z, daha sonra ürün vve devrik v~bir skalar verir x^2+y^2+^z^2ve biz bu koordinatların maksimum iki kez kareye eşit olup olmadığını kontrol etmek gerek x, y, z.

Ekstra: Girdi vektörünüzde dört koordinat varsa, fbir Pisagor dörtlü için de aynı testler .

MS Excel, 49 Bayt

[A1: C1] aralığından girdi alan ve çağıran hücreye çıkış yapan adsız çalışma işlevi.

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

Ohm v2 , 8 6 bayt

²DS)Σε

Çevrimiçi deneyin!