Số tự động là một số là hậu tố của hình vuông trong cơ sở 10. Đây là dãy A003226 trong OEIS.

Nhiệm vụ của bạn:

Viết chương trình hoặc hàm để xác định xem đầu vào có phải là số tự động hay không.

Đầu vào:

Một số nguyên nằm trong khoảng từ 0 đến 10 ^ 12 (đã bao gồm), có thể có hoặc không phải là số tự động.

Đầu ra:

Giá trị trung thực / giả mạo cho biết đầu vào có phải là số tự động hay không.

Ví dụ:

0           -> truthy
1           -> truthy
2           -> falsy
9376        -> truthy
8212890625  -> truthy

Ghi điểm:

Đây là môn đánh gôn , điểm số thấp nhất tính theo byte.

Brachylog , 5 byte

~√a₁?

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

~√a₁?
~√      the input is the square root of a number
  a₁    whose suffix is
    ?   the input

Python 2 , 24 byte

lambda n:`n*1L`in`n**2L`

Hãy thử trực tuyến!

Lần đầu tiên trong lịch sử, Python 2 gắn thêm Lphần lặp lại là một tính năng chứ không phải là một lỗi.

Ý tưởng là để kiểm tra nếu nói, 76^2=5776kết thúc 76bằng cách kiểm tra nếu 76Llà một chuỗi con của 5776L. Để Lxuất hiện cho các số không lớn, chúng tôi nhân với 1Lhoặc có 2Lsố mũ, vì một phép toán số học với một thời gian dài tạo ra một thời gian dài.

Python 2 , 31 byte

Bị đánh gôn bởi xnor ... (điều này xảy ra mọi lúc)> <Nhưng này, thật đáng ngạc nhiên là Pythonic cho môn đánh gôn .

Mọi người không có xu hướng nhớ Python có str.endswith()...

lambda n:str(n*n).endswith(`n`)

Hãy thử trực tuyến!

05AB1E , 5 byte

n.s¹å

Hãy thử trực tuyến!

Võng mạc , 44 byte

$
;918212890625;81787109376;0;1;
^(\d+;).*\1

Hãy thử trực tuyến!

Có chính xác 4 giải pháp cho phương trình 10-adic x*x = x.

Alice , 17 byte

/o.z/#Q/
@in.*.L\

Hãy thử trực tuyến!

Đầu ra không có gì (đó là giả trong chế độ Thông thường) hoặc Jabberwocky(không trống và do đó là trung thực trong chế độ Thông thường; đó cũng là giá trị chuỗi trung thực chính tắc).

Giải trình

/.../#./
....*..\

Đây là một sửa đổi nhỏ của khung chung cho các chương trình chế độ Ordinal tuyến tính. Ở /giữa được sử dụng để có một toán tử duy nhất ở chế độ Cardinal ở giữa (the *) và sau đó chúng ta cần #bỏ qua nó trong chế độ Thông thường trên đường trở về. Chương trình tuyến tính là:

i..*.QLzno@

Chúng ta hãy đi qua đó:

i    Read all input as a string and push it to the stack.
..   Make two copies.
*    This is run in Cardinal mode, so it implicitly converts the top two
     copies to their integer value and multiplies them to compute the square.
.    Implicitly convert the square back to a string and make a copy of it.
Q    Reverse the stack to bring the input on top of the two copies of its square.
L    Shortest common supersequence. This pops the input and the square from
     the top of the stack and pushes the shortest string which begins with
     the square and ends with the input. Iff the square already ends with the
     input, this gives us the square, otherwise it gives us some longer string.
z    Drop. Pop the SCS and the square. If the square contains the SCS (which
     would mean they're equal), this removes everything up to the SCS from
     the square. In other words, if the SCS computation left the square
     unchanged, this gives us an empty string. Otherwise, it gives us back
     the square.
n    Logical not. Turns the empty string into "Jabberwocky" and everything
     else into an empty string.
o    Print the result.
@    Terminate the program.

Toán học, 31 byte

Mod[#^2,10^IntegerLength@#]==#&

Hãy thử trực tuyến! Toán học in thêm một thông điệp nhưng câu trả lời là đúng

Python 2, 37 33 30 29 byte

lambda n:n*~-n%10**len(`n`)<1

Đã lưu 4 byte nhờ @LeakyNun. Đã lưu 3 byte bằng cách lưu ý rằng đầu vào thấp hơn 10 ^ 12 nên nkhông kết thúc bằng "L". Đã lưu 1 byte nhờ @Dennis vì tôi đã nhầm lẫn ở vị trí đầu tiên.

Hãy thử trực tuyến! (Liên kết TIO lịch sự của @Dennis).

C (gcc) , 57 byte

f(__int128 n){n=n*n%(long)pow(10,printf("%u",n))==n;}

Dựa trên câu trả lời của @ betseg, đây là hàm trả về 1 hoặc 0 . Nó tạo đầu ra rác thành STDOUT, được cho phép theo mặc định .

Điểm chứa +4 byte cho cờ trình biên dịch -lm.

Hãy thử trực tuyến!

Ruby, 22 byte

->n{"#{n*n}"=~/#{n}$/}

Hãy thử trực tuyến!

C # (.NET Core) , 47 byte

n=>$"{BigInteger.Multiply(n,n)}".EndsWith(n+"")

Hãy thử trực tuyến!

Than , 12 11 byte

Ｉ¬⌕⮌ＩＸＩθ²⮌θ

Hãy thử trực tuyến!

Trả về Falsenhư falseyvà Truenhư truthy.

• Lưu 1 byte chỉ nhờ ASCII! (Làm thế nào tôi có thể bỏ lỡ Powerchức năng?)

JavaScript (ES6), 23 byte

n=>`${n*n}`.endsWith(n)

Thử nó

Đã viết Đoạn trích này trên điện thoại của tôi, vì vậy vui lòng chỉnh sửa nếu nó không hoạt động chính xác.

f=
n=>`${n*n}`.endsWith(n)
oninput=_=>o.innerText=f(+i.value);o.innerText=f(i.value=1)

<input id=i type=number><pre id=o>

Thạch , 6 byte

²ṚwṚ⁼1

Hãy thử trực tuyến!

Kotlin, 36 byte

fun a(i:Int)="${i*i}".endsWith("$i")

C, 77 + 4 ( -lm) = 81 byte

#import<tgmath.h>
i;f(long double n){i=fmod(n*n,pow(10,(int)log10(n)+1))==n;}

Hãy thử trực tuyến!

R, 28 byte

pryr::f(x^2%%10^nchar(x)==x)

Tạo một chức năng:

function (x) 
x^2%%10^nchar(x) == x

Lấy mô-đun x^2sao cho chúng ta giữ các chữ số cuối cùng mà chúng ta so sánh x.

Perl 5 , 15 + 1 (-p) = 16 byte

$_=$_**2=~/$_$/

Hãy thử trực tuyến!

Thạch , 7 byte

²_ọæċ⁵$

Hãy thử trực tuyến!

Số dương cho có, 0 cho không.

Võng mạc , 47 33 byte

14 byte nhờ Martin Ender.

.+
$*
$
¶$`
\G1
$%_
M%`1
(.+)¶\1$

Hãy thử trực tuyến!

PHP , 41 byte

<?=preg_match("#$argn$#",bcpow($argn,2));

PHP Sandbox trực tuyến

PHP , 42 byte

không có Regex

<?=strtr(bcpow($argn,2),[$argn=>X])[-1]>A;

PHP , 44 byte

Sử dụng khoảng cách levenshtein

<?=!levenshtein($argn,bcpow($argn,2),0,1,1);

Dyvil , 26 byte

x=>"\(x*x)".endsWith"\(x)"

Sử dụng:

let f: int->boolean = x=>"\(x*x)".endsWith"\(x)"
print(f 20) // false

Mẻ, 122 byte

@set/an=%1,t=f=1
:l
@set/at+=t,f*=5,n/=10
@if %n% gtr 0 goto l
@cmd/cset/a"(!(%1%%t)|!(~-%1%%t))&(!(%1%%f)|!(~-%1%%f))

Thuật toán chỉ bị giới hạn bởi loại số nguyên được sử dụng cho các biến. Trong trường hợp của Batch, đây là số nguyên có chữ ký 32 bit, do đó tối đa là 2147483647. Hoạt động bằng cách kiểm tra cả n và n-1 cho các quyền hạn cần thiết là 2 và 5 làm các yếu tố. (Ngoại trừ khi n bằng 0 hoặc 1, n và n-1 sẽ có một yếu tố mỗi.)

> <> , 30 byte

1&0}\{n;
:&(?\:::*&a*:&%={+}:&

Hãy thử trực tuyến , hoặc xem nó tại sân chơi cá !

Giả sử số đầu vào x đã có trên ngăn xếp.

Giải thích: Con cá lấy thương số của x ² bằng cách tăng sức mạnh của 10 và tính số lần này bằng x . Khi công suất của 10 lớn hơn x , nó sẽ in số đếm và dừng lại. Tổng số sẽ là 1 nếu x là tự động và 0 nếu không.

Pari / GP , 23 byte

n->n^2%10^#digits(n)==n

Hãy thử trực tuyến!

Bình thường , 10 9 byte

-1 byte nhờ isaacg .

x_`^vz2_z

Trả về 0 khi số tự động, bất cứ điều gì khác nếu không.

Kiểm tra nó trực tuyến!

Giải thích

x_`^vz2_z

   ^vz2      # Evaluate the input to a number, compute the square
  `          # Convert the squared number to a string
 _           # Reverse it
x      _z    # Find the index of the first occurrence of the reversed input in the reversed square. That's basically equivalent of doing an endswith() in Python
             # Implicit input of the index. If 0, then the reversed square starts with the reversed input

Rexx (Regina) , 48 byte

numeric digits 25
arg n
say right(n*n,length(n))=n

Hãy thử trực tuyến!

Perl 6 , 15 byte

{$^x²~~/$^x$/}

Hãy thử trực tuyến!

Trả về một đối tượng khớp trung thực cho các đầu vào tự động và giá trị Nil giả cho các số khác.

Clojure, 59 byte

#(apply = true(map =(reverse(str %))(reverse(str(* % %)))))

Điều này có vẻ quá dài dòng.

MATL , 10 byte

UUVG36hXXn

Điều này hoạt động cho các số lên đến floor(sqrt(2^53)), theo doublegiới hạn chính xác.

Đầu ra là một số dương (là trung thực) nếu tự động, hoặc trống (đó là giả) nếu không.

Hãy thử trực tuyến!

Giải trình

Thật buồn cười là câu trả lời này sử dụng hai phiên bản quá tải của U: với đầu vào chuỗi, nó đánh giá là một số và với đầu vào số, nó sẽ tính bình phương.

U      % Implicitly input a string. Evaluate as a number
U      % Square of number
V      % Convert number to string representation
G      % Push input string again
36h    % Post-pend '$'
XX     % Regexp match. Gives cell array of matching substrings.
n      % Number of elements. Implicitly display