เมื่อกำหนด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 Codepage

คำอธิบาย:

²µ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 ขอบคุณที่เครก Gidney

เอาต์พุตผ่านโค้ดทางออก ( 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"แลกเปลี่ยนจริงกับครั้งแรก
  • false pไม่ทำอะไรเลย
• $:* สี่เหลี่ยมอินพุตที่สาม
• P":USg! ทดสอบว่าค่าที่สามนั้นมากกว่าค่าที่ยิ่งใหญ่ที่สุดของหน้าที่แล้วหรือไม่
  • true p+U-รวมสแต็กปัจจุบันและนำค่าที่สามที่เก็บไว้ออกไป
  • false p"U+- sum น้อยที่สุดและเก็บไว้ที่สามและลบจากมากที่สุด
• 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)

ฉันไม่ชอบอันนี้มาก แต่สั้นกว่า ผลรวมสี่เหลี่ยมและหารด้วยสี่เหลี่ยมที่ใหญ่ที่สุด ความจริงถ้า 2

รุ่นก่อนหน้า (แก้ไขด้วย cat และด้วยปลาย @ Guiseppe)

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

ทำผลรวมของอินพุตที่เรียงลำดับด้วยไอเท็มล่าสุดเมื่อตะกี้และส่งคืน!ไม่ใช่

ลองออนไลน์!

Brain-Flak , 68 ไบต์

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

ลองออนไลน์!

ใช้การสังเกตในคำตอบของ 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 ไบต์

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

ลองออนไลน์!

ปรับปรุงเทคนิคของKevin Cruijssens

ส่งคืน 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

=`+/@\:~*:

คำตอบเดิม

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

/:จัดเรียงสี่เหลี่ยม*:แล้วตรวจสอบว่าผลรวมของสองคนแรก+/@}:เท่ากับสุดท้าย{:

ลองออนไลน์!

Triangularity ,  49 วันที่ 31 ไบต์

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

ลองออนไลน์!

คำอธิบาย

ทุกโปรแกรมเป็นรูปสามเหลี่ยมต้องมีช่องว่างรูปสามเหลี่ยม (ยกเว้นคำพิพากษา) นั่นคือการนับบรรทัดที่ฉันจากด้านล่างของโปรแกรมจะต้องเต็มไปด้วยi - 1จุด ( .) ในแต่ละด้าน เพื่อให้สมมาตรและสมมาตรสวยงามแต่ละบรรทัดจะต้องประกอบด้วย2L - 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แล้วใช้ทฤษฎีบทพีทาโกรัสเพื่อตรวจสอบว่า เอาท์พุทเป็นทั้งบูลีนหรือTrueFalse

JavaScript 34 ไบต์ (ไม่มี 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^2c^2

ส่งคืน#tสำหรับสามเหลี่ยมมุมฉากและ#fอินพุตอื่นทั้งหมด

• -4 ไบต์ขอบคุณข้อเสนอแนะของ @ XNOR exptกับการใช้งาน

05AB1E , 6 ไบต์

n{R`+Q

ลองออนไลน์!

Ruby, 31 ไบต์

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

รับอินพุตเป็นรายการของจำนวนเต็ม 3 ตัว ใช้แนวคิดบางอย่างจากโซลูชันอื่น ๆ

Julia 0.6 , 16 ไบต์

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

ลองออนไลน์!

มันทำงานอย่างไร

ให้x = [A, B, C]

x⋅xเป็นผลิตภัณฑ์ที่จุดของxและตัวเองดังนั้นจึงถัวเฉลี่ยรฒร + 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² = รฒรหรือรฒร + c² = b²หรือรฒร + 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

Pari / 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และ transpose ของมันv~จะช่วยให้เกลาx^2+y^2+^z^2และเราจำเป็นต้องตรวจสอบว่ามีค่าเท่ากับสองเท่าของตารางสูงสุดของพิกัดที่x, ,yz

พิเศษ:การfทดสอบเดียวกันสำหรับPythagorean Quadrupleหากเวกเตอร์อินพุตของคุณมีสี่พิกัดและอื่น ๆ

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

ลองออนไลน์!