自守数字是一个以10为底的正方形后缀的数字。这是OEIS中的序列A003226。

你的任务：

编写程序或函数以确定输入是否为自守数字。

输入：

0到10 ^ 12（含）之间的整数，可以是也可以不是自守数字。

输出：

真/假值，指示输入是否为自变形数。

例子：

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

得分：

这是代码高尔夫，以字节为单位的最低得分获胜。

Brachylog，5个字节

~√a₁?

在线尝试！

怎么运行的

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

Python 2，24个字节

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

在线尝试！

在历史上第一次，将Python 2追加L到long的代表是功能而不是bug。

想法是检查是否说了，76^2=5776最后76检查是否76L是的子字符串5776L。为了使L非大数出现，我们将乘以1L或将其2L作为指数，因为带long的算术运算会产生long。

Python 2，31个字节

由xnor淘汰...（这每次都发生）> <但是，对于代码高尔夫，这是令人惊讶的Python风格。

人们不会倾向于记住Python具有str.endswith()...

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

在线尝试！

05AB1E，5个字节

n.s¹å

在线尝试！

视网膜，44字节

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

在线尝试！

10-adic方程正好有4个解x*x = x。

爱丽丝，17个字节

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

在线尝试！

不输出任何内容（在“序数”模式下是虚假的）或Jabberwocky（在“序数”模式下是非空的，因此是真值的；它也是规范的真值字符串值）。

说明

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

这是对线性序数模式程序的通用框架的略微修改。在/中间是用来在红衣主教模式单一运营商之间（的*），然后我们需要#跳过它在序模式在回来的路上。线性程序为：

i..*.QLzno@

让我们来看一下：

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.

Mathematica，31个字节

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

在线尝试！数学输出额外的消息，但答案正确

Python 2，37 33 30 29字节

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

感谢@LeakyNun，节省了4个字节。注意输入小于10 ^ 12，因此节省了3个字节，因此n不会以“ L”结尾。感谢@Dennis，节省了1个字节，因为我一开始就误算了。

在线尝试！（TIO链接由@Dennis提供）。

C（gcc），57个字节

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

根据@betseg的答案，此函数返回1或0。它产生垃圾输出到STDOUT，这是默认允许的。

分数包含+4个字节的编译器标志-lm。

在线尝试！

Ruby，22个字节

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

在线尝试！

C＃（.NET Core），47个字节

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

在线尝试！

木炭，12 11字节

Ｉ¬⌕⮌ＩＸＩθ²⮌θ

在线尝试！

返回Falseas falsey和Trueastruthy。

• 仅使用ASCII节省了1个字节！（我怎么会错过这个Power功能？）

JavaScript（ES6），23个字节

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

试试吧

在我的手机上写下了该代码段，因此请对其进行编辑（如果它无法正常工作）。

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>

果冻，6个字节

²ṚwṚ⁼1

在线尝试！

Kotlin，36个字节

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

C，77 + 4（-lm）= 81字节

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

在线尝试！

R，28个字节

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

创建一个函数：

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

取的模数，x^2使我们保留最后一位数字，然后与之比较x。

Perl 5，15 +1（-p）= 16字节

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

在线尝试！

果冻，7个字节

²_ọæċ⁵$

在线尝试！

正数表示是，0表示否。

视网膜，47 33字节

感谢Martin Ender提供14个字节。

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

在线尝试！

PHP，41字节

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

PHP沙盒在线

PHP，42字节

没有正则表达式

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

PHP，44字节

使用levenshtein距离

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

Dyvil，26个字节

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

用法：

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

批处理，122字节

@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))

算法仅受用于变量的整数类型限制。对于批处理，这是32位带符号整数，因此最大值为2147483647。通过测试n和n-1的2和5的必要幂作为因子来工作。（除非n为0或1，否则n和n-1分别具有一个因数。）

> <>，30个字节

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

在线尝试，或在鱼游乐场观看！

假设输入数字x已经在堆栈中。

说明：鱼通过乘以10的幂来获得x ²的商，并计算等于x的倍数。当10的幂次幂大于x时，它将打印计数并暂停。如果x是自守的，则计数为1，否则为0。

Pari / GP，23个字节

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

在线尝试！

Pyth，10 9字节

-1字节归功于isaacg。

x_`^vz2_z

当数字是自守形态时，返回0，否则返回0。

在线测试！

说明

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（里贾纳），48字节

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

在线尝试！

Perl 6、15个字节

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

在线尝试！

对于自动变形的输入，返回一个True匹配对象，对于其他数字，返回一个伪造的Nil值。

Clojure，59个字节

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

这似乎过于冗长。

MATL，10字节

UUVG36hXXn

floor(sqrt(2^53))根据double精度限制，此方法适用于最大为的数字。

如果是同构的，则输出为正数（真），否则为空（虚假）。

在线尝试！

说明

有趣的是，这个答案使用了：的两个重载版本U：输入字符串时，它的计算结果是一个数字，输入数字时，它计算的平方值。

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