도전

음, 우리는 제곱 숫자 나 다른 모양의 숫자로 작동하는 많은 난제들이 있지만, 간단히 묻는 것은 없습니다.

입력으로 정수 n(where n>=0)가 주어지면 n완전한 제곱이면 true 값을, 그렇지 않으면 false 값을 반환합니다.

규칙

• 표준 I / O 규칙 에서 허용하는 한 합리적이고 편리한 수단으로 입력 할 수 있습니다 .
• 선택한 언어가 기본적으로 처리 할 수있는 것보다 부동 소수점 부정확성을 초래하는 것보다 큰 입력을 처리 할 필요는 없습니다.
• 출력은 두 가지 일관된 진실 / 거짓 값 중 하나 여야합니다 (예 : true또는 false, 1또는 0). 입력이 완벽한 제곱이면 진실이고 그렇지 않으면 거짓입니다.
• 이것은 코드 골프 이므로 바이트 수가 가장 적습니다.

테스트 사례

Input:  0
Output: true

Input:  1
Output: true

Input:  64
Output: true

Input:  88
Output: false

Input:  2147483647
Output: false

Neim , 2 바이트

q𝕚

설명:

q      Push an infinite list of squares
 𝕚     Is the input in that list?

'무한'이라고 말하면 최대 long 값 (2 ^ 63-1)에 도달 할 때까지 의미가 있습니다. 그러나 Neim은 이론적으로 무한히 큰 BigInteger로 (천천히) 전환하고 있습니다.

시도 해봐!

젤리 , 2 바이트

Ʋ

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

TI 기본, 4 바이트

not(fPart(√(Ans

0이 아닌 분수 / 소수 부분을 찾아 제곱근이 정수인지 간단히 확인하십시오.

C #, 27 바이트

n=>System.Math.Sqrt(n)%1==0

이를위한보다 정확하고 정확한 방법 은 다음과 같습니다.

n=>System.Math.Sqrt(n)%1<=double.Epsilon*100

자바 스크립트 (ES6), 13 바이트

n=>!(n**.5%1)

n의 제곱근이 정수이면 true를 반환합니다.

단편:

f=
n=>!(n**.5%1)

console.log(f(0));
console.log(f(1));
console.log(f(2));
console.log(f(4));
console.log(f(8));
console.log(f(16));
console.log(f(88));
console.log(f(2147483647));

dc, 9

0?dvd*-^p

truey이면 1을 출력하고 false이면 0을 출력합니다.

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

0            # Push zero.  Stack: [ 0 ]
 ?           # Push input.  Stack: [ n, 0 ]
  dv         # duplicate and take integer square root.  Stack: [ ⌊√n⌋, n, 0 ]
    d        # duplicate.  Stack: [ ⌊√n⌋, ⌊√n⌋, n, 0 ]
     *       # multiply.  Stack: [ ⌊√n⌋², n, 0 ]
      -      # take difference. Stack: [ n-⌊√n⌋², 0 ]
       ^     # 0 to power of the result.  Stack: [ 0^(n-⌊√n⌋²) ]
        p    # print.

음 dc의 ^지수 명령을주는 0 ⁰ = 1, 0 ^{, N} = 0, N> 0.

레티 나 , 18 바이트

.+
$*
(^1?|11\1)+$

온라인으로 사용해보십시오! @MartinEnder의 대답 이 뻔뻔스럽게 조정되었습니다 . 그러나 기본 변환에는 6 바이트의 비용이 포함되어 있습니다.

이 숫자가 삼각형입니까? 삼각형 숫자로 0을 지원하는 데 필요한 이유가 없었기 때문에 적응의 일부는 앞에 ?1을 선택적으로 지정하여 그룹을 빈 문자열과 일치시킬 수 있도록 0을 입력하는 것이 었습니다. 그러나 이제 빈 문자열과 일치하면 +연산자가 반복을 중지 하여 빈 문자열과 탐욕스럽게 일치하는 경우 무한 루프가 발생하지 않도록합니다 (결국 ^1?계속 일치하게 됨). 이것은 그룹의 다른 대안과도 일치하지 않기 때문에 2, 6, 12 등의 일치를 피합니다. @MartinEnder가 지적했듯이 빈 문자열과 일치하는 동안 피하는 간단한 방법은 동일한 바이트 수에 대해 그룹을 선택적으로 만들면서 시작시 일치를 고정하십시오 ^(^1|11\1)*$.

C (gcc), 30 바이트

f(n){n=sqrt(n)==(int)sqrt(n);}

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

C, 34 바이트

f(n){return(int)sqrt(n)==sqrt(n);}

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

C, 33 바이트

#define f(n)(int)sqrt(n)==sqrt(n)

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

MATL , 5 4 바이트

1 바이트 더 긴 코드를 2 바이트 씩 줄여서 가장 짧은 코드로 만든 Luis에게 감사합니다.

t:Um

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

설명:

         % Implicit input
t        % Duplicate it
 :       % Range from 1 to input value
  U      % Square the range, to get 1 4 9 ... 
   m     % ismember, Checks if the input is a member of the range of perfect squares

오래된 답변 :

X^1\~

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

        % Implicit input
X^      % Square root of input
  1\    % Modulus 1. All perfect squares will have 0, the rest will have decimal value
     ~  % Negate, so the 0 becomes 1, and the decimal values become 0

파이썬 3 , 40 38 바이트

2 바이트를 절약 한 오징어 덕분에!

lambda n:n in(i*i for i in range(n+1))

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

2147483647적절한 시간 내에 답변을 반환하기에는 너무 느립니다 . (하지만 바이트를 사용하지 않기 때문에 메모리를 절약하기 위해 생성기를 사용하여 작성했습니다.)

파이썬 2에서도 작동하지만 거대한 입력으로 시도하면 OverflowError가능성이 range있습니다. (A MemoryError로 인해 Python 2에서도 가능성이 높습니다 range.)

펄 5 , 14 바이트

13 바이트의 코드 + -p플래그.

$_=sqrt!~/\./

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

제곱근을 계산하고 정수인지 확인합니다 (보다 정확하게는 점 ( /\./)을 포함하지 않는 경우 ).

05AB1E , 4 바이트

Ln¹å

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

파이썬 3 , 19 바이트

lambda n:n**.5%1==0

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

SageMath , 9 바이트

is_square

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

내장 기능은 주석에 표시된 것과 정확히 일치합니다. Sage는 기호 계산을 사용하므로 IEEE-754 플로트를 괴롭히는 계산 정확도 오류가 없습니다.

Japt , 3 바이트

¬v1

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

Japt Interpreter2**54-2 에서 잘 작동하는 것 같지만 어떤 이유로 TIO에서 실패합니다 ...

하스켈, 26 24 바이트

f n=elem n$map(^2)[0..n]

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

확인 n은 모두 사각형의 목록에있는 경우 0에 n.

프롤로그 (SWI) , 27 바이트

+N:-between(0,N,I),N=:=I*I.

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

설명

크거나 같거나 0작은 모든 숫자를 검색하여 N해당 숫자의 제곱이 같은지 테스트합니다 N.

MathGolf , 1 바이트

°

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

나는 설명이 필요하다고 생각하지 않습니다. 언어가 수학 관련 골프 문제를 처리하도록 설계 되었기 때문에이 과제를보기 전에 "완벽한 정사각형"연산자가 필요하다는 것을 알았습니다. MathGolf는 정수를 사용하여 부울을 표시하므로 0 또는 1을 리턴합니다.

PHP, 21 바이트

<?=(-1)**$argn**.5<2;

제곱근이 정수가 아닌 경우 (-1)**$argn**.5입니다 NAN.

루비, 25 바이트

Math.sqrt(gets.to_i)%1==0

아마도 더 짧은 방법이 있지만 그것이 내가 찾은 전부입니다.

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

CJam , 8 바이트

ri_mQ2#=

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

설명

정수 제곱근, 제곱, 원래 숫자와 비교합니다.

Mathematica, 13 바이트

AtomQ@Sqrt@#&

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

APL (Dyalog) , 8 바이트

0=1|*∘.5

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

0= [제로] 0

1| 계수 -1 (즉, 분수 부분)

*∘.5 반의 힘으로 제기 된 주장

AWK , 27 + 2 바이트

{x=int($0^0.5);$0=x*x==$1}1

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

임의 정밀도로 플래그 +2를 사용하기 위해 바이트를 추가하십시오 -M. 원래는 문자열 비교를 사용했지만 많은 수는 같지 않았지만 동일하게 비교했지만 sqrt부정확 한 값을 반환했습니다. 2^127-2완벽한 사각형이되어서는 안됩니다.

T-SQL, 38 바이트

SELECT IIF(SQRT(a)LIKE'%.%',0,1)FROM t

제곱근에서 소수점을 찾습니다. IIFMS SQL에만 적용되며 MS SQL Server 2012에서 테스트 및 작동합니다.

입력 규칙은 입력 테이블 에 따라 기존 테이블 t 의 열 a 에 있습니다.

옴 , 2 바이트

Ʋ

CP-437인코딩을 사용합니다 .

설명

암시 적 입력-> 완벽한 정사각형 내장-> 암시 적 출력 ...

자바 8, 20 바이트

n->Math.sqrt(n)%1==0

입력은입니다 int.

여기에서 시도하십시오.

R, 15

scan()^.5%%1==0

^ .5는 sqrt ()보다 적은 바이트입니다. 응답이 interger 인 경우 계수 인 %% 1은 (는) 0이됩니다. scan ()은 사용자 입력을받습니다.

http://www.tutorialspoint.com/execute_r_online.php?PID=0Bw_CjBb95KQMSm1qVktIOUdSSDg

추가 ++ , 24 13 11 바이트

+?
S
%1
N
O

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

상단에서 어수선한 기능을 제거하고 11 바이트를 제거하기 위해 질문 본문에 다시 작성했습니다.

첫 번째 섹션은 아래에서 이미 설명 했으므로 새 부품의 작동 방식 만 알아 보겠습니다.

S   Square root
%1  Modulo by 1. Produced 0 for integers and a decimal for floats
N   Logical NOT

이전 버전, 24 바이트

D,i,@,1@%!
+?
^.5
$i,x
O

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

상단 ( D,i,@,1@%!) 의 기능 은 프로그램의 주요 부분이므로 더 자세히 살펴 보겠습니다.

D,     Create a function...
  i,   ...called i...
  @,   ...that takes 1 argument (for this example, let's say 3.162 (root 10))
    1  push 1 to the stack; STACK = [1, 3.162]
    @  reverse the stack;   STACK = [3.162, 1]
    %  modulo the stack;    STACK = [0.162]
    !  logical NOT;         STACK = [False]

+?     Add the input to accumulator (x)
^.5    Square root (exponent by 0.5)
$i,x   Apply function i to x
O      Output the result

파이썬 3 , 28 27 25 바이트

• 1 바이트에 대한 @mdahmoune 덕분에 루트의 제곱을 원래의 제곱과 비교하십시오.
• 2 바이트 절약 : 람다 단축

lambda x:int(x**.5)**2==x

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