Angka Automorfik adalah angka yang merupakan sufiks kuadratnya dalam basis 10. Ini adalah urutan A003226 dalam OEIS.

Tugas Anda:

Tulis program atau fungsi untuk menentukan apakah input adalah nomor Automorphic.

Memasukkan:

Integer antara 0 dan 10 ^ 12 (inklusif), yang mungkin atau mungkin bukan angka Automorfik.

Keluaran:

Nilai kebenaran / kepalsuan yang menunjukkan apakah input adalah angka Automorfik atau tidak.

Contoh:

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

Mencetak:

Ini adalah kode-golf , skor terendah dalam byte yang menang.

Brachylog , 5 byte

~√a₁?

Cobalah online!

Bagaimana itu bekerja

~√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`

Cobalah online!

Untuk pertama kalinya dalam sejarah, Python 2 menambahkan sebuah Lke repr dari long adalah fitur daripada bug.

Idenya adalah untuk memeriksa apakah mengatakan, 76^2=5776diakhiri 76dengan memeriksa apakah 76Lsubstring 5776L. Untuk membuat tampilan Luntuk angka yang tidak besar, kita kalikan dengan 1Latau miliki 2Lsebagai eksponen, karena operasi aritmatika dengan panjang dengan menghasilkan panjang.

Python 2 , 31 byte

Keluar bermain golf dengan xnor ... (ini terjadi setiap saat)> <Tapi hei, ini mengejutkan Pythonic untuk kode-golf .

Orang tidak cenderung mengingat Python str.endswith()...

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

Cobalah online!

05AB1E , 5 byte

n.s¹å

Cobalah online!

Retina , 44 byte

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

Cobalah online!

Ada persis 4 solusi untuk persamaan 10-adic x*x = x.

Alice , 17 byte

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

Cobalah online!

Tidak menghasilkan apa-apa (yang salah dalam mode Ordinal) atau Jabberwocky(yang tidak kosong dan karenanya benar dalam mode Ordinal; ini juga merupakan nilai string kebenaran kanonik).

Penjelasan

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

Ini adalah sedikit modifikasi dari kerangka umum untuk program mode ordinal linier. Di /tengah digunakan untuk memiliki satu operator dalam mode Kardinal di antara (yang *) dan kemudian kita perlu #melewati itu dalam mode Ordinal dalam perjalanan kembali. Program linear adalah:

i..*.QLzno@

Mari kita lalui itu:

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 byte

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

Cobalah online! Matematika mencetak pesan tambahan tetapi jawabannya benar

Python 2, 37 33 30 29 byte

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

Disimpan 4 byte berkat @LeakyNun. Disimpan 3 byte dengan memperhatikan bahwa input lebih rendah dari 10 ^ 12 sehingga ntidak diakhiri dengan "L". Disimpan 1 byte berkat @ Dennis karena saya salah hitung sejak awal.

Cobalah online! (TIO link milik @Dennis).

C (gcc) , 57 byte

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

Berdasarkan jawaban @ betseg, ini adalah fungsi yang mengembalikan 1 atau 0 . Ini menghasilkan keluaran sampah ke STDOUT, yang diizinkan secara default .

Skor tersebut berisi +4 byte untuk flag compiler -lm.

Cobalah online!

Ruby, 22 byte

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

Cobalah online!

C # (.NET Core) , 47 byte

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

Cobalah online!

Arang , 12 11 byte

Ｉ¬⌕⮌ＩＸＩθ²⮌θ

Cobalah online!

Kembali Falsesebagai falseydan Truesebagai truthy.

• 1 byte disimpan berkat ASCII-only! (Bagaimana saya bisa melewatkan Powerfungsinya?)

JavaScript (ES6), 23 byte

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

Cobalah

Tulis Cuplikan ini di ponsel saya, jadi harap edit jika tidak berfungsi dengan benar.

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>

Jelly , 6 byte

²ṚwṚ⁼1

Cobalah online!

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;}

Cobalah online!

R, 28 byte

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

Menciptakan fungsi:

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

Mengambil modulus x^2sedemikian rupa sehingga kita menyimpan digit terakhir, yang kita bandingkan x.

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

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

Cobalah online!

Jelly , 7 byte

²_ọæċ⁵$

Cobalah online!

Angka positif untuk ya, 0 untuk tidak.

Retina , 47 33 byte

14 byte berkat Martin Ender.

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

Cobalah online!

PHP , 41 byte

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

PHP Sandbox Online

PHP , 42 byte

tanpa Regex

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

PHP , 44 byte

Gunakan jarak levenshtein

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

Dyvil , 26 byte

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

Pemakaian:

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

Batch, 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))

Algoritma hanya dibatasi oleh tipe integer yang digunakan untuk variabel. Dalam kasus Batch, ini adalah bilangan bulat bertanda 32-bit, jadi maksimumnya adalah 2147483647. Bekerja dengan menguji n dan n-1 untuk kekuatan yang diperlukan 2 dan 5 sebagai faktor. (Kecuali jika n adalah 0 atau 1, n dan n-1 masing-masing memiliki satu faktor.)

> <> , 30 byte

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

Cobalah online , atau tonton di taman bermain ikan !

Mengasumsikan nomor input x sudah ada di tumpukan.

Penjelasan: Ikan mengambil hasil bagi x ² dengan meningkatkan kekuatan 10, dan menghitung berapa kali ini sama dengan x . Ketika kekuatan 10 menjadi lebih besar dari x , ia mencetak jumlah dan berhenti. Hitungannya adalah 1 jika x adalah automorfik, dan 0 jika tidak.

Pari / GP , 23 byte

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

Cobalah online!

Pyth , 10 9 byte

-1 byte terima kasih kepada isaacg .

x_`^vz2_z

Mengembalikan 0 ketika nomor tersebut automorfik, apa pun jika tidak.

Uji secara online!

Penjelasan

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

Cobalah online!

Perl 6 , 15 byte

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

Cobalah online!

Mengembalikan objek Pencocokan yang sebenarnya untuk input automorfik, dan nilai Nil palsu untuk angka lainnya.

Clojure, 59 byte

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

Ini sepertinya terlalu bertele-tele.

MATL , 10 byte

UUVG36hXXn

Ini berfungsi untuk angka hingga floor(sqrt(2^53)), sesuai doublebatasan presisi.

Output adalah angka positif (yang benar) jika automorfik, atau kosong (yang salah) jika tidak.

Cobalah online!

Penjelasan

Lucu bahwa jawaban ini menggunakan dua versi overload U: dengan input string yang dievaluasi sebagai angka, dan dengan input angka menghitung kuadrat.

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