Herausforderung

Es scheint also, dass wir zwar viele Herausforderungen haben, die mit quadratischen Zahlen oder Zahlen anderer Formen funktionieren, aber keine, die einfach fragt:

Wenn eine ganze Zahl n(wo n>=0) als Eingabe angegeben wird, wird ein wahrer Wert zurückgegeben, wenn dies nein perfektes Quadrat ist, oder ein falscher Wert, wenn dies nicht der Fall ist.

Regeln

• Sie können Eingaben auf jede vernünftige und bequeme Weise vornehmen, sofern dies nach den Standard-E / A-Regeln zulässig ist .
• Sie müssen keine Eingaben verarbeiten, die größer sind als die von Ihnen gewählte Sprache und die auch nicht zu Gleitkommaungenauigkeiten führen.
• Ausgabe soll ein von zwei konsistenten truthy / Falsey Werten (zB trueoder false, 1oder 0) - truthy , wenn der Eingang ein perfekter Platz, Falsey wenn es nicht.
• Dies ist Codegolf, also gewinnt die niedrigste Bytezahl.

Testfälle

Input:  0
Output: true

Input:  1
Output: true

Input:  64
Output: true

Input:  88
Output: false

Input:  2147483647
Output: false

Neim , 2 Bytes

q𝕚

Erläuterung:

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

Wenn ich 'unendlich' sage, meine ich, bis wir den Maximalwert von longs erreicht haben (2 ^ 63-1). Neim geht jedoch (langsam) zu theoretisch unendlich großen BigIntegers über.

Versuch es!

Gelee , 2 Bytes

Ʋ

Probieren Sie es online!

TI-Basic, 4 Bytes

not(fPart(√(Ans

Überprüft einfach, ob die Quadratwurzel eine Ganzzahl ist, indem nach einem Bruchteil / Dezimalteil ungleich Null gesucht wird.

C #, 27 Bytes

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

Ein richtigerer / genauerer Weg , dies zu tun, wäre:

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

JavaScript (ES6), 13 Byte

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

Gibt true zurück, wenn die Quadratwurzel von n eine ganze Zahl ist.

Snippet:

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

Gibt 1 für wahr und 0 für falsch aus.

Probieren Sie es online aus .

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.

dcDer ^Exponentiationsbefehl von Note gibt 0 ⁰ = 1 und 0 ⁿ = 0, wobei n> 0 ist.

Retina , 18 Bytes

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

Probieren Sie es online! Schamlos adaptiert von @ MartinEnders Antwort auf Ist diese Zahl dreieckig? aber mit der Grundkonvertierung zu einem Preis von 6 Bytes enthalten.

Beachten Sie, dass diese Zahl dreieckig ist? war aus irgendeinem unerklärlichen Grund nicht erforderlich, Null als Dreieckszahl zu unterstützen, daher bestand ein Teil der Anpassung darin, a hinzuzufügen ?, um die führende 1 optional zu machen, damit die Gruppe mit der leeren Zeichenfolge übereinstimmt, und daher eine Null-Eingabe. Nachdem der +Operator nun mit der leeren Zeichenfolge übereinstimmt, stoppt er die Wiederholung, um die Endlosschleife zu vermeiden, die auftreten würde, wenn die leere Zeichenfolge weiterhin gierig abgeglichen würde (schließlich ^1?würde sie sicherlich weiterhin übereinstimmen). Dies bedeutet, dass es nicht einmal versucht, die andere Alternative in der Gruppe zu finden, wodurch die Übereinstimmung von 2, 6, 12 usw. vermieden wird. Wie @MartinEnder hervorhebt, ist es eine einfachere Möglichkeit, dies zu vermeiden, während die leere Zeichenfolge noch übereinstimmt Anker , das Spiel zu Beginn , während die Gruppe optional für die gleiche Byteanzahl machen: ^(^1|11\1)*$.

C (gcc), 30 Bytes

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

Probieren Sie es online!

C 34 Bytes

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

Probieren Sie es online!

C 33 Bytes

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

Probieren Sie es online!

MATL , 5 4 Bytes

Vielen Dank an Luis, der meinen um ein Byte längeren Code um zwei Byte verkürzt hat, damit er der kürzeste ist.

t:Um

Probieren Sie es online aus

Erläuterung:

         % 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

Alte Antwort:

X^1\~

Probieren Sie es online!

        % 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

Danke an squid für das Speichern von 2 Bytes!

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

Probieren Sie es online!

Zu langsam, um eine Antwort 2147483647innerhalb eines angemessenen Zeitraums zurückzugeben. (Aber geschrieben mit einem Generator, um Speicher zu sparen, da es keine Bytes kostet.)

Funktioniert auch in Python 2, obwohl OverflowErroreine Möglichkeit besteht, rangewenn Sie es mit großen Eingaben versuchen. (A MemoryErrorwäre wahrscheinlich auch in Python 2, auch wegen range.)

Perl 5 , 14 Bytes

13 Byte Code + -pFlag.

$_=sqrt!~/\./

Probieren Sie es online!

Berechnet die Quadratwurzel und prüft, ob es sich um eine Ganzzahl handelt (genauer gesagt, wenn sie keinen Punkt enthält ( /\./).

05AB1E , 4 Bytes

Ln¹å

Probieren Sie es online!

Python 3 , 19 Bytes

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

Probieren Sie es online!

SageMath , 9 Bytes

is_square

Probieren Sie es online aus

Die eingebaute Funktion macht genau das, was es verspricht. Da Sage symbolische Berechnungen verwendet, ist es frei von Rechengenauigkeitsfehlern, die IEEE-754-Floats plagen.

Japt , 3 Bytes

¬v1

Probieren Sie es online!

Scheint 2**54-2im Japt Interpreter gut zu funktionieren , schlägt aber auf TIO aus irgendeinem Grund fehl ...

Haskell, 26 24 Bytes

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

Probieren Sie es online!

Prüft, ob n in der Liste aller Quadrate von 0bis enthalten ist n.

Prolog (SWI) , 27 Bytes

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

Probieren Sie es online!

Erläuterung

Durchsucht alle Zahlen, die größer oder gleich 0und kleiner oder gleich sind, Nund prüft, ob diese Zahl im Quadrat gleich ist N.

MathGolf , 1 Byte

°

Probieren Sie es online!

Ich denke nicht, dass eine Erklärung benötigt wird. Ich habe die Notwendigkeit eines "is perfect square" -Operators erkannt, bevor ich diese Herausforderung sah, da die Sprache für mathematikbezogene Golfherausforderungen ausgelegt ist. Gibt 0 oder 1 zurück, da MathGolf Ganzzahlen zur Darstellung von Booleschen Werten verwendet.

PHP, 21 Bytes

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

Wenn die Quadratwurzel keine ganze Zahl ist, (-1)**$argn**.5ist NAN.

Ruby, 25 Bytes

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

Es gibt wahrscheinlich einen kürzeren Weg, aber das ist alles, was ich gefunden habe.

Probieren Sie es online!

CJam , 8 Bytes

ri_mQ2#=

Probieren Sie es online!

Erläuterung

Ganzzahlige Quadratwurzel, Quadrat, vergleiche mit der ursprünglichen Zahl.

Mathematica, 13 Bytes

AtomQ@Sqrt@#&

Probieren Sie es online!

APL (Dyalog) , 8 Bytes

0=1|*∘.5

Probieren Sie es online!

0= [ist] Null gleich

1| der Modul-1 (dh der Bruchteil) von

*∘.5 das Argument wurde auf die Hälfte angehoben

AWK , 27 + 2 Bytes

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

Probieren Sie es online!

Fügen Sie +2Bytes hinzu, um das -MFlag für eine beliebige Genauigkeit zu verwenden. Ursprünglich habe ich den Zeichenfolgenvergleich verwendet, weil große verglichene Zahlen gleich sind, obwohl dies nicht der sqrtFall war , aber auch ungenaue Werte zurückgaben. 2^127-2sollte kein perfektes Quadrat sein.

T-SQL, 38 Bytes

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

Sucht nach einem Dezimalpunkt in der Quadratwurzel. IIFist MS SQL-spezifisch, getestet und funktioniert in MS SQL Server 2012.

Die Eingabe erfolgt gemäß unseren Eingaberegeln in Spalte a der bereits vorhandenen Tabelle t .

Ohm , 2 Bytes

Ʋ

Verwendet CP-437 Codierung.

Erläuterung

Implizite Eingabe -> Integriertes perfektes Quadrat -> Implizite Ausgabe ...

Java 8, 20 Bytes

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

Input ist ein int .

Probieren Sie es hier aus.

R, 15

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

^ .5 ist weniger Bytes als sqrt (). %% 1, der Modul, ergibt 0, wenn die Antwort ein Interger ist. scan () nimmt Benutzereingaben entgegen.

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

Add ++ , 24 13 11 Bytes

+?
S
%1
N
O

Probieren Sie es online!

Ich habe die klobige Funktion oben entfernt und sie in den Hauptteil der Frage geschrieben, um 11 Bytes zu entfernen.

Da der erste Abschnitt bereits weiter unten erläutert wird, wollen wir nur herausfinden, wie das neue Teil funktioniert

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

Alte Version, 24 Bytes

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

Probieren Sie es online!

Die Funktion oben ( D,i,@,1@%!) ist der Hauptteil des Programms. Gehen wir also näher darauf ein.

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

• Dank an @mdahmoune für 1 Byte: Vergleiche int von root squared mit original
• 2 Bytes gespart: Lambda verkürzt

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

Probieren Sie es online!