ตัวเลข Automorphic คือตัวเลขซึ่งเป็นส่วนต่อท้ายของตารางในฐาน 10 นี่คือลำดับA003226ใน OEIS

งานของคุณ:

เขียนโปรแกรมหรือฟังก์ชั่นเพื่อตรวจสอบว่าอินพุตเป็นตัวเลข Automorphic หรือไม่

การป้อนข้อมูล:

จำนวนเต็มตั้งแต่ 0 ถึง 10 ^ 12 (รวม) ซึ่งอาจเป็นหรือไม่ได้เป็นตัวเลข Automorphic

เอาท์พุท:

ค่าความจริง / เท็จแสดงว่าอินพุตเป็นตัวเลข Automorphic หรือไม่

ตัวอย่าง:

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ซ้ำของความยาวเป็นคุณสมบัติแทนที่จะเป็นจุดบกพร่อง

ความคิดคือการตรวจสอบว่าการพูด, 76^2=5776ปลายใน76โดยตรวจสอบว่าเป็นย่อยของ76L 5776Lเพื่อให้Lปรากฏสำหรับตัวเลขที่ไม่ใหญ่มากเราคูณด้วย1Lหรือ2Lเป็นเลขชี้กำลังเนื่องจากการดำเนินการทางคณิตศาสตร์ที่มีความยาวและสร้างความยาว

Python 2 , 31 ไบต์

ออกรอบตีกอล์ฟโดย xnor ... (สิ่งนี้เกิดขึ้นทุกครั้ง)> <แต่เฮ้มันเป็น Pythonic ที่น่าแปลกใจสำหรับcode-golfรหัสกอล์ฟ

ผู้คนมักจะจำไม่ได้ว่า Python มีstr.endswith()...

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

ลองออนไลน์!

05AB1E , 5 ไบต์

n.s¹å

ลองออนไลน์!

เรติน่า 44 ไบต์

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

ลองออนไลน์!

นอกจากนี้ตรง 4 x*x = xแนวทางในการแก้สมการ

อลิซ 17 ไบต์

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

ลองออนไลน์!

ไม่แสดงผลใด ๆ (ซึ่งเป็นเท็จในโหมดปกติ) หรือ Jabberwocky (ซึ่งไม่ว่างเปล่าและดังนั้นจึงเป็นความจริงในโหมด Ordinal และยังเป็นค่าสตริงที่เป็นที่ยอมรับตามปกติด้วย)

คำอธิบาย

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

นี่คือการปรับเปลี่ยนเล็กน้อยของกรอบงานทั่วไปสำหรับโปรแกรมโหมดเชิงเส้นเชิงเส้น /ในช่วงกลางที่ใช้ในการมีผู้ประกอบการเดียวในโหมดพระคาร์ดินัลในระหว่าง (คน*) แล้วเราต้องการ#ที่จะข้ามมันในโหมดลำดับที่ด้านหลังทาง โปรแกรมเชิงเส้นคือ:

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@#]==#&

ลองออนไลน์! Mathics พิมพ์ข้อความพิเศษ แต่คำตอบนั้นถูกต้อง

Python 2, 37 33 30 29 ไบต์

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

บันทึกแล้ว 4 ไบต์ขอบคุณ @LeakyNun บันทึก 3 ไบต์โดยสังเกตว่าอินพุตต่ำกว่า 10 ^ 12 ดังนั้นจึงnไม่ได้ลงท้ายด้วย "L" บันทึก 1 ไบต์ขอบคุณ @Dennis เพราะฉันคิดผิดตั้งแต่แรก

ลองออนไลน์! (ได้รับความอนุเคราะห์จาก TIO ลิงค์ของ @Dennis)

C (gcc) , 57 ไบต์

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

ขึ้นอยู่กับคำตอบ @ betseg นี้เป็นฟังก์ชั่นที่ให้ผลตอบแทน1หรือ0 มันผลิตออกขยะเพื่อ STDOUT ซึ่งเป็นที่ได้รับอนุญาตโดยค่าเริ่มต้น

คะแนนมี4 ไบต์-lmธงคอมไพเลอร์

ลองออนไลน์!

ทับทิมขนาด 22 ไบต์

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

ลองออนไลน์!

C # (. NET Core) 47 ไบต์

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

ลองออนไลน์!

ถ่าน , 12 11 ไบต์

Ｉ¬⌕⮌ＩＸＩθ²⮌θ

ลองออนไลน์!

ผลตอบแทนที่Falseเป็นfalseyและเป็นTruetruthy

• บันทึก 1 ไบต์ต้องขอบคุณ ASCII-only! (ฉันจะคิดถึง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

Takes the modulus of x^2 such that we keep the last digits, which we compare to x.

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

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

Try it online!

Jelly, 7 bytes

²_ọæċ⁵$

Try it online!

Positive number for yes, 0 for no.

Retina, 47 33 bytes

14 bytes thanks to Martin Ender.

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

Try it online!

PHP, 41 bytes

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

PHP Sandbox Online

PHP, 42 bytes

without Regex

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

PHP, 44 bytes

Use the levenshtein distance

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

Dyvil, 26 bytes

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

Usage:

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

Batch, 122 bytes

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

Algorithm is limited only by the integer type used for variables. In the case of Batch, this is 32-bit signed integers, so the maximum is 2147483647. Works by testing both n and n-1 for necessary powers of 2 and 5 as factors. (Except when n is 0 or 1, n and n-1 will have one factor each.)

><>, 30 bytes

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

Try it online, or watch it at the fish playground!

Assumes the input number x is already on the stack.

Explanation: The fish takes the quotient of x² by increasing powers of 10, and counts how many times this equals x. When the power of 10 gets larger than x, it prints the count and halts. The count will be 1 if x is automorphic, and 0 if it isn't.

Pari/GP, 23 bytes

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

Try it online!

Pyth, 10 9 bytes

-1 byte thanks to isaacg.

x_`^vz2_z

Returns 0 when the number is automorphic, anything else if it is not.

Test it online!

Explanations

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 bytes

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

Try it online!

Perl 6, 15 bytes

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

Try it online!

Returns a truthy Match object for automorphic inputs, and a falsy Nil value for other numbers.

Clojure, 59 bytes

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

This seems overly verbose.

MATL, 10 bytes

UUVG36hXXn

This works for numbers up to floor(sqrt(2^53)), as per double precision limitations.

Output is a positive number (which is truthy) if automorphic, or empty (which is falsy) if not.

Try it online!

Explanation

Funny that this answer uses the two overloaded versions of U: with string input it evaluates as a number, and with number input it computes the square.

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