Cho a, b, cchiều dài ba cạnh của một tam giác, giả sử nếu tam giác vuông góc (nghĩa là có một góc bằng 90 độ) hay không.

Đầu vào

Ba dương các giá trị số nguyên theo thứ tự

Đầu ra

Hoặc là một cụ thể sản lượng đúng ( true, 1, yes, ...) hoặc một đầu ra cụ thể sai ( false, 0, no, ...)

Thí dụ

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

Quy tắc

• Đầu vào và đầu ra có thể được đưa ra trong bất kỳ định dạng thuận tiện .
• Trong bài nộp của bạn, vui lòng nêu giá trị đúng và sai.
• Không cần xử lý các giá trị âm hoặc bộ ba cạnh không hợp lệ
• Một chương trình đầy đủ hoặc một chức năng được chấp nhận. Nếu một chức năng, bạn có thể trả lại đầu ra thay vì in nó.
• Nếu có thể, vui lòng bao gồm một liên kết đến một môi trường thử nghiệm trực tuyến để người khác có thể thử mã của bạn!
• Sơ hở tiêu chuẩn bị cấm.
• Đây là môn đánh gôn, vì vậy tất cả các quy tắc chơi gôn thông thường đều được áp dụng và mã ngắn nhất (tính bằng byte) sẽ thắng.

Thạch , 5 byte

²µSHe

Hãy thử trực tuyến!

Lưu ý kỹ thuật: Byte được tính trong Jelly codepage.

Giải trình:

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

Vấn đề tương đương với việc được đưa ra ba số a, b, c, và hỏi xem có hoán vị như vậy không a² + b² = c². Điều này tương đương với việc (a² + b² + c²) ÷ 2là một trong số đó a², b² or c², vì vậy chương trình chỉ kiểm tra điều đó.

Python 2 , 37 byte

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

Hãy thử trực tuyến!

-2 nhờ FlipTack .
-1 cảm ơn Craig Gidney .

Đầu ra thông qua mã thoát ( 0= false, 1= true).

Java 8, 44 byte

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

Giải trình:

Hãy thử nó ở đây.

(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

Đã lưu 1 byte và sửa lỗi nhờ @Neil

Lấy đầu vào là một mảng gồm 3 số nguyên. Trả về truecho góc phải và mặt falsekhác.

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

Phiên bản gốc, 44 byte

Lấy đầu vào là 3 số nguyên. Trả về 1cho góc phải và mặt 0khác.

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

Các trường hợp thử nghiệm

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

Hãy thử trực tuyến!

Có thể chạy vào các vấn đề chính xác nổi với đầu vào lớn.

Hình tam giác , 57 byte

Tôi chưa thấy ngôn ngữ này và có vẻ phù hợp để thử và làm một ngôn ngữ. Phải mất một chút ... vì tôi phải quay đầu lại và tôi tin rằng điều này có thể được đánh gôn thêm.

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

Hãy thử trực tuyến!

Điều này mở rộng đến tam giác sau.

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

Đường dẫn khá phức tạp, nhưng tôi sẽ thử và giải thích những gì tôi đã làm. Tôi sẽ bỏ qua các con trỏ định hướng. Hầu hết các mã là thao tác ngăn xếp.

• $:* Bình phương đầu vào đầu tiên.
• $:* Bình phương đầu vào thứ hai.
• S":Ug! Kiểm tra nếu giá trị thứ hai lớn hơn giá trị thứ nhất.
  • p"Hoán đổi thực sự với người đầu tiên.
  • sai p Không làm gì cả.
• $:* Bình phương đầu vào thứ ba.
• P":USg! Kiểm tra nếu giá trị thứ ba lớn hơn giá trị lớn nhất trước đó.
  • đúng p+U- tổng ngăn xếp hiện tại và lấy đi giá trị thứ ba được lưu trữ
  • sai p"U+- tổng ít nhất và được lưu trữ thứ ba và trừ từ lớn nhất
• 0=% kiểm tra đẳng thức bằng không và kết quả đầu ra.

Haskell ( 33 32 31 byte)

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

Phiên bản gốc:

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

Chức năng ẩn danh. Đưa ra một danh sách ở dạng [a, b, c]. Đầu ra Đúng hoặc Sai.

Phiên bản đầu tiên được kiểm tra nếu tổng bình phương gấp đôi bình phương tối đa.

Thứ hai, phiên bản tốt hơn một chút kiểm tra nếu một nửa tổng bình phương là một yếu tố trong danh sách các hình vuông.

Chỉnh sửa: Vô tình đếm một dòng mới, cảm ơn H.PWiz

Perl 6 , 24 byte

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

Hãy thử trực tuyến!

*²+*²==*²là một hàm ẩn danh trả về true nếu tổng bình phương của hai đối số đầu tiên của nó bằng bình phương của đối số thứ ba của nó. Chúng tôi chuyển danh sách đầu vào được sắp xếp vào hàm này, làm phẳng nó vào danh sách đối số với |.

R , 31 26 30 byte

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

Tôi không thích cái này nhiều, nhưng nó ngắn hơn. Tính tổng các hình vuông và chia cho hình vuông lớn nhất. Sự thật nếu 2.

Phiên bản trước (được sửa đổi với con mèo và với mẹo của @ Guiseppe)

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

Thực hiện tổng các đầu vào được sắp xếp với mục cuối cùng bị phủ định và trả về !không.

Hãy thử trực tuyến!

Brain-Flak , 68 byte

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

Hãy thử trực tuyến!

Sử dụng quan sát trong câu trả lời của 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;}

Hãy thử trực tuyến!

Cải thiện kỹ thuật Kevin Cruijssens

Trả về 0 cho tam giác hợp lệ và giá trị khác không

MATL , 7 byte

SU&0)s=

Hãy thử trực tuyến!

Giải trình

Xem xét đầu vào [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)

Hãy thử trực tuyến!

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

Hãy thử trực tuyến!

C,  68  54 byte

Sử dụng giải pháp của người dùng202729 .

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

Cảm ơn @Christoph đã chơi golf 14 byte!

Hãy thử trực tuyến!

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

Hãy thử trực tuyến!

Japt , 8 byte

Đưa đầu vào như một mảng.

m²
ø½*Ux

Thử nó

J, 10 byte

-6 byte nhờ FrownyFrog

=`+/@\:~*:

câu trả lời gốc

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

/:sắp xếp các hình vuông *:, sau đó kiểm tra xem tổng của hai số đầu tiên có +/@}:bằng số cuối cùng không{:

Hãy thử trực tuyến!

Hình tam giác ,  49  31 byte

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

Hãy thử trực tuyến!

Giải trình

Mỗi chương trình Tam giác phải có phần đệm hình tam giác (xin lỗi chơi chữ). Đó là, dòng thứ i tính từ dưới cùng của chương trình phải được đệm bằng i - 1 chấm ( .) ở mỗi bên. Để giữ cho các hình tam giác chấm đối xứng và thẩm mỹ dễ chịu, mỗi dòng phải bao gồm 2L - 1 ký tự, trong đó L là số dòng trong chương trình. Loại bỏ các ký tự tạo nên phần đệm cần thiết, đây là cách mã hoạt động:

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

Kiểm tra xem một hình tam giác có vuông góc với hình tam giác không ...

PowerShell , 39 byte

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

Hãy thử trực tuyến!

Sắp xếp đầu vào, lưu trữ thành $a,$b,$ccác biến. Sau đó sử dụng định lý Pythagore để kiểm tra xem a*a + b*b = c*c. Đầu ra là Boolean Truehoặc False.

JavaScript 34 byte (không có 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

Giải thích

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

Hãy thử trực tuyến!

Vợt , 64 60 byte

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Kiểm tra nếu a^2 + b^2 + c^2tương đương với hai lần lớn nhất a^2, b^2và c^2.

Trả về #tcho các tam giác bên phải và #fcho tất cả các đầu vào khác.

• -4 byte nhờ đề xuất của @ xnor để sử dụng expt.

05AB1E , 6 byte

n{R`+Q

Hãy thử trực tuyến!

Ruby, 31 byte

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

Lấy đầu vào là một danh sách gồm 3 số nguyên. Sử dụng một số ý tưởng từ các giải pháp khác.

Julia 0,6 , 16 byte

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Đặt x = [a, b, c] .

x⋅xlà sản phẩm chấm của x và chính nó, vì vậy nó mang lại a² + b² + c² .

2x.*xlà sản phẩm nguyên tố của 2x và x , do đó, nó mang lại [2a², 2b², 2c²] .

Cuối cùng, ∈kiểm tra xem số nguyên a² + b² + c² có thuộc về vectơ [2a², 2b², 2c²] , có đúng không iff
a² + b² + c² = 2a² hoặc a² + b² + c² = 2b² hoặc a² + b² + c² = 2² , bản thân nó đúng là iff
b² + c² = a² hoặc a² + c² = b² hoặc 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];}

Hãy thử trực tuyến!

TI-Basic, 13 11 10 byte

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

Bây giờ làm việc cho đầu vào theo thứ tự bất kỳ và cũng ngắn hơn. -1 khác nhờ @MishaLavrov

CJam, 9

q~$W%~mh=

Dùng thử trực tuyến

Giải trình:

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

Hãy thử trực tuyến!

Đã lưu năm byte bởi một thay đổi rõ ràng từ norml2(v)đến v*v~.

Lấy cảm hứng từ các câu trả lời khác.

Ở đây vphải là một vectơ hàng hoặc một vectơ cột có ba tọa độ.

Ví dụ sử dụng: f([3,4,5])

Tất nhiên, bạn có được độ dài bên hợp lý miễn phí, ví dụ f([29/6, 10/3, 7/2]).

Nếu tôi không đếm f(v)=phần, đó là 19 byte. Phần đầu tiên cũng có thể được viết v->(tổng cộng 22 byte).

Giải thích: Nếu ba tọa độ vlà x, yvà z, sau đó sản phẩm của vvà chuyển vị của nó v~mang lại cho một đại lượng vô hướng x^2+y^2+^z^2, và chúng ta cần phải kiểm tra xem đó là tương đương với hai lần bình phương của tối đa của các tọa độ x, y, z.

Bổ sung: Các fthử nghiệm tương tự cho bộ tứ số Pythagore nếu vectơ đầu vào của bạn có bốn tọa độ, v.v.

MS Excel, 49 byte

Hàm bảng tính ẩn danh nhận đầu vào từ phạm vi [A1: C1] và xuất ra ô gọi.

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

Hãy thử trực tuyến!