Tantangan

Jadi, um, tampaknya, sementara kita memiliki banyak tantangan yang bekerja dengan bilangan kuadrat atau jumlah bentuk lainnya, kita tidak memiliki satu yang hanya bertanya:

Diberikan integer n(di mana n>=0) sebagai input mengembalikan nilai kebenaran jika nkuadrat sempurna atau nilai falsey jika tidak.

Aturan

• Anda dapat mengambil input dengan cara yang masuk akal, nyaman selama diizinkan oleh aturan I / O standar .
• Anda tidak perlu menangani input yang lebih besar dari apa yang dapat dipilih oleh bahasa pilihan Anda atau yang akan menyebabkan ketidakakuratan titik mengambang.
• Output harus menjadi salah satu dari dua nilai yang konsisten truthy / falsey (misalnya, trueatau false, 1atau 0) - truthy jika input adalah persegi sempurna, falsey jika tidak.
• Ini adalah kode-golf sehingga jumlah byte terendah menang.

Uji Kasus

Input:  0
Output: true

Input:  1
Output: true

Input:  64
Output: true

Input:  88
Output: false

Input:  2147483647
Output: false

Neim , 2 byte

q𝕚

Penjelasan:

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

Ketika saya mengatakan 'tak terbatas' saya maksudkan sampai kita mencapai nilai maksimum long (2 ^ 63-1). Namun, Neim (perlahan) bertransisi menjadi BigIntegers besar yang secara teoritis sangat besar.

Cobalah!

Jelly , 2 byte

Ʋ

Cobalah online!

TI-Basic, 4 byte

not(fPart(√(Ans

Cukup periksa apakah akar kuadrat adalah bilangan bulat dengan mencari bagian pecahan / desimal nol.

C #, 27 byte

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

Cara yang lebih benar / akurat untuk melakukan ini adalah:

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

JavaScript (ES6), 13 byte

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

Mengembalikan nilai true jika akar kuadrat dari n adalah bilangan bulat.

Potongan:

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

Output 1 untuk truey dan 0 untuk falsey.

Cobalah online .

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.

Catatan dc's ^perintah eksponensial memberikan 0 ⁰ = 1 dan 0 ⁿ = 0, di mana n> 0.

Retina , 18 byte

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

Cobalah online! Tanpa malu-malu diadaptasi dari jawaban @ MartinEnder untuk Apakah angka ini berbentuk segitiga? tetapi dengan konversi basis disertakan dengan biaya 6 byte.

Perhatikan bahwa Apakah angka ini berbentuk segitiga? bukan karena alasan yang tidak dapat dijelaskan diperlukan untuk mendukung nol sebagai angka segitiga, jadi bagian dari adaptasi adalah menambahkan a ?untuk menjadikan 1 sebagai opsional, yang memungkinkan grup untuk mencocokkan string kosong, dan karenanya menjadi input nol. Namun, setelah sekarang mencocokkan string kosong, +operator berhenti mengulangi, untuk menghindari loop tak terbatas yang akan terjadi jika tetap rakus mencocokkan string kosong (setelah semua, ^1?tentu akan tetap cocok). Ini berarti bahwa ia bahkan tidak mencoba untuk mencocokkan alternatif lain dalam grup, sehingga menghindari kecocokan 2, 6, 12 dll. Seperti yang ditunjukkan oleh @MartinEnder, cara yang lebih sederhana untuk menghindari itu sambil tetap mencocokkan string kosong adalah dengan jangkar pertandingan di awal sementara membuat opsional kelompok untuk menghitung byte yang sama: ^(^1|11\1)*$.

C (gcc), 30 byte

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

Cobalah online!

C, 34 byte

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

Cobalah online!

C, 33 byte

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

Cobalah online!

MATL , 5 4 byte

Terima kasih kepada Luis untuk mengurangi kode satu byte saya yang lebih panjang dengan dua byte, menjadikannya yang terpendek.

t:Um

Cobalah online

Penjelasan:

         % 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

Jawaban lama:

X^1\~

Cobalah 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 byte

Terima kasih kepada squid karena telah menghemat 2 byte!

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

Cobalah online!

Terlalu lambat untuk mengembalikan jawaban 2147483647dalam jumlah waktu yang wajar. (Tetapi ditulis menggunakan generator untuk menghemat memori, karena tidak ada biaya byte.)

Bekerja di Python 2 juga, meskipun OverflowErrorkemungkinan karena rangejika Anda mencobanya dengan input besar. (A MemoryErrorjuga kemungkinan ada di Python 2, juga karena range.)

Perl 5 , 14 byte

13 byte kode + -pbendera.

$_=sqrt!~/\./

Cobalah online!

Hitung akar kuadrat, dan lihat apakah itu bilangan bulat (lebih tepatnya, jika tidak mengandung titik ( /\./).

05AB1E , 4 byte

Ln¹å

Cobalah online!

Python 3 , 19 byte

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

Cobalah online!

SageMath , 9 byte

is_square

Cobalah online

Fungsi bawaan melakukan apa yang tertulis di kaleng. Karena Sage menggunakan perhitungan simbolik, itu bebas dari kesalahan akurasi komputasi yang mengganggu IEEE-754 mengapung.

Japt , 3 byte

¬v1

Cobalah online!

Tampaknya berfungsi dengan baik 2**54-2dalam Japt Interpreter tetapi gagal pada TIO karena beberapa alasan ...

Haskell, 26 24 byte

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

Cobalah online!

Cek apakah n ada dalam daftar semua kotak dari 0hingga n.

Prolog (SWI) , 27 byte

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

Cobalah online!

Penjelasan

Menelusuri semua angka yang lebih besar atau sama dengan 0dan kurang dari atau sama dengan Ndan menguji apakah angka kuadrat itu sama dengan N.

MathGolf , 1 byte

°

Cobalah online!

Saya pikir tidak diperlukan penjelasan. Saya melihat perlunya operator "kotak yang sempurna" sebelum saya melihat tantangan ini, karena bahasanya dirancang untuk menangani tantangan golf terkait matematika. Mengembalikan 0 atau 1, karena MathGolf menggunakan bilangan bulat untuk mewakili boolean.

PHP, 21 byte

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

Jika akar kuadrat bukan angka integer, (-1)**$argn**.5adalah NAN.

Ruby, 25 byte

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

Mungkin ada cara yang lebih pendek tapi hanya itu yang saya temukan.

Cobalah online!

CJam , 8 byte

ri_mQ2#=

Cobalah online!

Penjelasan

Root kuadrat integer, kuadrat, bandingkan dengan angka asli.

Mathematica, 13 byte

AtomQ@Sqrt@#&

Cobalah online!

APL (Dyalog) , 8 byte

0=1|*∘.5

Cobalah online!

0= adalah nol sama dengan

1| modulus-1 (yaitu bagian fraksional) dari

*∘.5 Argumen itu memunculkan kekuatan setengah

AWK , 27 + 2 byte

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

Cobalah online!

Tambahkan +2byte untuk menggunakan -Mflag untuk presisi yang sewenang-wenang. Saya awalnya menggunakan perbandingan string karena jumlah besar dibandingkan sama, meskipun mereka tidak, tetapi sqrtjuga mengembalikan nilai yang tidak tepat. 2^127-2seharusnya bukan persegi yang sempurna.

T-SQL, 38 byte

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

Mencari titik desimal di akar kuadrat. IIFkhusus untuk MS SQL, diuji dan berfungsi di MS SQL Server 2012.

Input pada kolom a dari tabel t yang sudah ada , sesuai aturan input kami .

Ohm , 2 byte

Ʋ

Menggunakan CP-437penyandian.

Penjelasan

Input Tersirat -> Built-in kuadrat sempurna -> Output Tersirat ...

Java 8, 20 byte

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

Masukan adalah int .

Coba di sini.

R, 15

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

^ .5 lebih kecil byte daripada sqrt (). %% 1, modulus, akan menghasilkan 0 jika jawabannya adalah interger. scan () mengambil input pengguna.

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

Tambahkan ++ , 24 13 11 byte

+?
S
%1
N
O

Cobalah online!

Saya menghapus fungsi kikuk di bagian atas dan menulis ulang ke dalam tubuh pertanyaan untuk menghapus 11 byte.

Karena bagian pertama sudah dijelaskan di bawah, mari kita cari tahu cara kerja bagian baru

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

Versi lama, 24 byte

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

Cobalah online!

Fungsi di atas ( D,i,@,1@%!) adalah bagian utama dari program, jadi mari kita masuk ke detail lebih lanjut.

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 byte

• Terima kasih kepada @mdahmoune untuk 1 byte: bandingkan int root kuadrat dengan yang asli
• 2 byte disimpan: lambda disingkat

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

Cobalah online!