Desafío

Entonces, um, parece que, si bien tenemos muchos desafíos que funcionan con números cuadrados o números de otras formas, no tenemos uno que simplemente pregunte:

Dado un entero n(donde n>=0) como entrada, devuelve un valor verdadero si nes un cuadrado perfecto o un valor falsey si no.

Reglas

• Usted puede tomar la entrada por cualquier medio razonable, conveniente, siempre y cuando se permita la normativa de E / S estándar .
• No necesita manejar entradas mayores de lo que su idioma elegido puede manejar de forma nativa ni lo que conduciría a imprecisiones de coma flotante.
• La salida debe ser uno de los dos valores consistentes de verdad / falsey (por ejemplo, trueo false, 1o 0): verdad si la entrada es un cuadrado perfecto, falsey si no lo es.
• Este es el código de golf, por lo que gana el conteo de bytes más bajo.

Casos de prueba

Input:  0
Output: true

Input:  1
Output: true

Input:  64
Output: true

Input:  88
Output: false

Input:  2147483647
Output: false

Neim , 2 bytes

q𝕚

Explicación:

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

Cuando digo 'infinito' quiero decir hasta que alcanzamos el valor máximo de longs (2 ^ 63-1). Sin embargo, Neim está (lentamente) haciendo la transición a BigIntegers teóricamente infinitamente grandes.

¡Intentalo!

Jalea , 2 bytes

Ʋ

Pruébalo en línea!

TI-Basic, 4 bytes

not(fPart(√(Ans

Simplemente verifica si la raíz cuadrada es un número entero buscando una parte fraccionaria / decimal distinta de cero.

C #, 27 bytes

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

Una forma más correcta / precisa de hacer esto sería:

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

JavaScript (ES6), 13 bytes

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

Devuelve verdadero si la raíz cuadrada de n es un número entero.

Retazo:

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

Salidas 1 para la verdad y 0 para falsey.

Pruébalo en línea .

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.

dcEl ^comando de exponenciación de Note da 0 ⁰ = 1 y 0 ⁿ = 0, donde n> 0.

Retina , 18 bytes

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

Pruébalo en línea! Adaptado descaradamente de la respuesta de @ MartinEnder a ¿Es este número triangular? pero con la conversión base incluida a un costo de 6 bytes.

Tenga en cuenta que este número es triangular? no fue por alguna razón inexplicable requerida para admitir cero como un número triangular, por lo que parte de la adaptación fue agregar un ?para hacer que el 1 inicial sea opcional, permitiendo que el grupo coincida con la cadena vacía y, por lo tanto, una entrada cero. Sin embargo, después de haber emparejado la cadena vacía, el +operador deja de repetir, para evitar el bucle infinito que sucedería si se mantuviera codiciosamente coincidiendo con la cadena vacía (después de todo, ^1?ciertamente seguiría coincidiendo). Esto significa que ni siquiera intenta hacer coincidir la otra alternativa en el grupo, evitando así la coincidencia de 2, 6, 12, etc. anclar el partido en el inicio al tiempo que el grupo opcional para la misma cuenta de bytes: ^(^1|11\1)*$.

C (gcc), 30 bytes

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

Pruébalo en línea!

C, 34 bytes

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

Pruébalo en línea!

C, 33 bytes

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

Pruébalo en línea!

MATL , 5 4 bytes

Gracias a Luis por reducir mi código de un byte más largo en dos bytes, por lo que es el más corto.

t:Um

Pruébalo en línea

Explicación:

         % 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

Vieja respuesta:

X^1\~

Pruébalo en línea!

        % 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

Python 3 , 40 38 bytes

¡Gracias a squid por guardar 2 bytes!

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

Pruébalo en línea!

Demasiado lento para devolver una respuesta 2147483647en un tiempo razonable. (Pero escrito usando un generador para ahorrar memoria, ya que no cuesta ningún byte).

También funciona en Python 2, aunque OverflowErrores una posibilidad debido a que rangesi lo prueba con grandes entradas. (A MemoryErrortambién sería probable en Python 2, también debido a range).

Perl 5 , 14 bytes

13 bytes de código + -pbandera.

$_=sqrt!~/\./

Pruébalo en línea!

Calcula la raíz cuadrada y mira si es un número entero (más precisamente, si no contiene un punto ( /\./).

05AB1E , 4 bytes

Ln¹å

Pruébalo en línea!

Python 3 , 19 bytes

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

Pruébalo en línea!

SageMath , 9 bytes

is_square

Pruébalo en línea

La función incorporada hace exactamente lo que dice en la lata. Dado que Sage utiliza el cálculo simbólico, está libre de errores de precisión computacional que afectan a los flotadores IEEE-754.

Japt , 3 bytes

¬v1

Pruébalo en línea!

Parece funcionar bien 2**54-2en el intérprete de Japt pero falla en TIO por alguna razón ...

Haskell, 26 24 bytes

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

Pruébalo en línea!

Comprueba si n está en la lista de todos los cuadrados desde 0hasta n.

Prólogo (SWI) , 27 bytes

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

Pruébalo en línea!

Explicación

Busca a través de todos los números mayores o iguales 0y menores o iguales a Ny prueba si ese número al cuadrado es igual a N.

MathGolf , 1 byte

°

Pruébalo en línea!

No creo que se necesite una explicación. Vi la necesidad de un operador "es un cuadrado perfecto" antes de ver este desafío, ya que el lenguaje está diseñado para manejar los desafíos de golf relacionados con las matemáticas. Devuelve 0 o 1, ya que MathGolf usa números enteros para representar booleanos.

PHP, 21 bytes

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

Si la raíz cuadrada no es un número entero, (-1)**$argn**.5es NAN.

Rubí, 25 bytes

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

Probablemente hay un camino más corto, pero eso es todo lo que encontré.

Pruébalo en línea!

CJam , 8 bytes

ri_mQ2#=

Pruébalo en línea!

Explicación

Raíz cuadrada entera, cuadrada, compárela con el número original.

Mathematica, 13 bytes

AtomQ@Sqrt@#&

Pruébalo en línea!

APL (Dyalog) , 8 bytes

0=1|*∘.5

Pruébalo en línea!

0= [es] cero igual a

1| el módulo-1 (es decir, la parte fraccionaria) de

*∘.5 el argumento elevado al poder de la mitad

AWK , 27 + 2 bytes

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

Pruébalo en línea!

Agregue +2bytes para usar la -Mbandera para una precisión arbitraria. Originalmente utilicé la comparación de cadenas porque un gran número comparaba igual, aunque no lo fueran, pero sqrttambién estaba devolviendo valores imprecisos. 2^127-2No debería ser un cuadrado perfecto.

T-SQL, 38 bytes

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

Busca un punto decimal en la raíz cuadrada. IIFes específico de MS SQL, probado y funciona en MS SQL Server 2012.

La entrada está en la columna a de la tabla t preexistente , según nuestras reglas de entrada .

Ohm , 2 bytes

Ʋ

Utiliza CP-437codificación.

Explicación

Entrada implícita -> Cuadrado perfecto incorporado -> Salida implícita ...

Java 8, 20 bytes

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

La entrada es un int .

Pruébalo aquí

R, 15

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

^ .5 es menos bytes que sqrt (). %% 1, el módulo, dará como resultado 0 si la respuesta es un número entero. scan () toma la entrada del usuario.

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

Añadir ++ , 24 13 11 bytes

+?
S
%1
N
O

Pruébalo en línea!

Eliminé la función torpe en la parte superior y la reescribí en el cuerpo de la pregunta para eliminar 11 bytes.

Como la primera sección ya se explica a continuación, solo veamos cómo funciona la nueva parte

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

Versión anterior, 24 bytes

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

Pruébalo en línea!

La función en la parte superior ( D,i,@,1@%!) es la parte principal del programa, así que vamos a entrar en más detalles.

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

Python 3 , 28 27 25 bytes

• Gracias a @mdahmoune por 1 byte: compare int de raíz cuadrada con original
• 2 bytes guardados: lambda acortada

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

Pruébalo en línea!