a, b, c삼각형의 세 변의 길이를 고려 하여 삼각형이 직각인지 (즉, 한 각도가 90 도인 경우) 말하십시오.

입력

순서에 상관없이 3 개의 양의 정수 값

산출

어느 특정 참 출력 ( 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

규칙

• 입력 및 출력은 편리한 형식으로 제공 될 수 있습니다 .
• 제출시 true 및 false 값을 명시하십시오.
• 음수 값 또는 유효하지 않은 에지 트리플 을 처리 할 필요가 없습니다.
• 전체 프로그램 또는 기능이 허용됩니다. 함수 인 경우 출력하지 않고 출력을 반환 할 수 있습니다.
• 가능하면 다른 사람들이 귀하의 코드를 시험해 볼 수 있도록 온라인 테스트 환경에 대한 링크를 포함하십시오!
• 표준 허점 은 금지되어 있습니다.
• 이것은 코드 골프 이므로 모든 일반적인 골프 규칙이 적용되며 가장 짧은 코드 (바이트)가 이깁니다.

젤리 , 5 바이트

²µSHe

온라인으로 사용해보십시오!

기술 노트 : 바이트는 젤리 코드 페이지에서 계산됩니다.

설명:

²µ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²하므로 프로그램에서 확인합니다.

파이썬 2 , 37 바이트

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

온라인으로 사용해보십시오!

FlipTack 덕분에 -2 입니다. Craig Gidney
에게 -1 감사합니다 .

종료 코드를 통해 출력합니다 ( 0= false, 1= true).

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

자바 스크립트 (ES6), 43 41 40 바이트

@Neil 덕분에 1 바이트를 절약하고 버그를 수정했습니다.

입력을 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

파이썬 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! 두 번째 값이 첫 번째 값보다 큰지 테스트하십시오.
  • true p" 첫 번째와 교환하십시오.
  • 거짓 p 아무것도하지 마십시오.
• $:* 세 번째 입력을 제곱합니다.
• P":USg! 세 번째 값이 이전 값보다 큰지 테스트합니다.
  • 진정한 p+U- 합 현재 스택 저장된 제 3 값을 빼앗아
  • 최소값을 p"U+- 합산하고 3을 저장하고 최대 값을 뺀 값
• 0=% 평등을 0으로 테스트하고 결과를 출력합니다.

하스켈 ( 33 32 31 바이트)

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

원본 버전 :

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

익명의 기능. [a, b, c] 형식의 목록을 가져옵니다. True 또는 False를 출력합니다.

첫 번째 버전은 제곱의 합이 최대 제곱의 두 배인지 확인했습니다.

둘째, 약간 더 나은 버전은 제곱합의 절반이 제곱 목록의 요소인지 확인합니다.

편집 : 실수로 뉴 라인을 계산했습니다 .H.PWiz

펄 6 , 24 바이트

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

온라인으로 사용해보십시오!

*²+*²==*²첫 두 인수의 제곱의 합이 세 번째 인수의 제곱과 같으면 true를 반환하는 익명 함수입니다. 정렬 된 입력 목록을이 함수에 전달하고을 사용하여 인수 목록으로 병합합니다 |.

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을, 그렇지 않으면 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

파이썬 2 , 43 바이트

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

온라인으로 사용해보십시오!

파이썬 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);}

14 바이트 골프를위한 @Christoph에게 감사합니다!

온라인으로 사용해보십시오!

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 바이트

FrownyFrog 덕분에 -6 바이트

=`+/@\:~*:

원래 답변

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

/:사각형을 정렬 한 *:다음 처음 두 개의 합 +/@}:이 마지막과 같은지 확인하십시오.{:

온라인으로 사용해보십시오!

삼각 ,  49  31 바이트

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

온라인으로 사용해보십시오!

설명

모든 삼각 프로그램에는 삼각 패딩이 있어야합니다. 즉, 프로그램 하단에서 계산 된 i 번째 라인은 각면에 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. 출력은 부울 True또는 False입니다.

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^2IS는 두 배의 가장 큰 동일 a^2, b^2그리고 c^2.

#t직각 삼각형과 #f다른 모든 입력에 대해 반환 합니다 .

• @xnor의 사용 제안 덕분에 -4 바이트 expt.

05AB1E , 6 바이트

n{R`+Q

온라인으로 사용해보십시오!

루비, 31 바이트

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

3 개의 정수 목록으로 입력을받습니다. 다른 솔루션의 아이디어를 사용합니다.

줄리아 0.6 , 16 바이트

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

온라인으로 사용해보십시오!

작동 원리

x = [a, b, c] 이라고하자 .

x⋅x는 x 와 그 자체 의 내적 이므로 a² + b² + c² 입니다.

2x.*x는 2x 와 x 의 요소 별 곱 이므로 [2a², 2b², 2c²] 입니다.

마지막으로 ∈정수 a² + b² + c² 가 벡터 [2a², 2b², 2c²]에 속 하는지 테스트합니다. 이는
a² + b² + c² = 2a² 또는 a² + b² + c² = 2b² 또는 a² + b² + c² = 2c² 이는
b² + c² = a² 또는 a² + c² = b² 또는 a² + b² = c² 인 경우에 해당 됩니다.

자바 (OpenJDK 8) , 68 바이트

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

온라인으로 사용해보십시오!

TI 기본, 13 11 10 바이트

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

이제 입력 순서에 관계없이 작동하며 짧아집니다. @MishaLavrov의 또 다른 -1 감사

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)로의 명백한 변경으로 5 바이트를 절약 했습니다 v*v~.

다른 답변에서 영감을 얻었습니다.

여기 에는 세 개의 좌표 v가있는 행 벡터 또는 열 벡터 가 있어야합니다 .

사용 예 : f([3,4,5])

물론, 당신은 예를 들어 합리적인 측면 길이를 무료로 얻습니다 f([29/6, 10/3, 7/2]).

f(v)=부분을 계산하지 않으면 19 바이트입니다. 첫 번째 부분도 쓸 수 있습니다 v->(총 22 바이트).

설명 : 세 가지 좌표가있는 경우 v입니다 x, y그리고 z,의 다음 제품 v과 그 전치는 v~스칼라를 제공 x^2+y^2+^z^2, 우리는 그 좌표의 최대 두 배의 제곱에 동일한 경우는 확인해야합니다 x, y, z.

추가 : 입력 벡터에 네 개의 좌표가있는 경우 피타고라스 쿼드 러플에f 대해 동일한 테스트가 수행 됩니다.

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

온라인으로 사용해보십시오!