Liczba automorficzna to liczba będąca sufiksem jej kwadratu w podstawie 10. Jest to sekwencja A003226 w OEIS.

Twoje zadanie:

Napisz program lub funkcję, aby ustalić, czy dane wejściowe są liczbą automorficzną.

Wkład:

Liczba całkowita od 0 do 10 ^ 12 (włącznie), która może, ale nie musi być liczbą automorficzną.

Wynik:

Wartość prawda / fałsz wskazująca, czy dane wejściowe są liczbą automorficzną.

Przykłady:

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

Punktacja:

To jest golf golfowy , najniższy wynik w bajtach wygrywa.

Brachylog , 5 bajtów

~√a₁?

Wypróbuj online!

Jak to działa

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

Python 2 , 24 bajty

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

Wypróbuj online!

Po raz pierwszy w historii dodawanie Ldo reprodukcji długich Python 2 jest cechą, a nie błędem.

Chodzi o to, aby sprawdzić, czy powiedzmy, 76^2=5776kończy 76się sprawdzeniem, czy 76Ljest podłańcuchem 5776L. Aby Lpojawiać się w liczbach niemałych, mnożymy przez wykładnik 1Llub mamy go 2Ljako wykładnik, ponieważ operacja arytmetyczna z długim z daje długi.

Python 2 , 31 bajtów

Out-golfed przez xnor ... (dzieje się to za każdym razem)> <Ale hej, to zaskakująco Pythonic dla golfa kodowego .

Ludzie nie pamiętają, że Python ma str.endswith()...

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

Wypróbuj online!

05AB1E , 5 bajtów

n.s¹å

Wypróbuj online!

Siatkówka , 44 bajty

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

Wypróbuj online!

Istnieją dokładnie 4 rozwiązania równania 10-adycznego x*x = x.

Alice , 17 bajtów

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

Wypróbuj online!

Nie wyprowadza nic (co jest fałszem w trybie porządkowym) lub Jabberwocky(które jest niepuste, a zatem prawdziwe w trybie porządkowym; jest to również kanoniczna wartość ciągu prawdziwych ciągów).

Wyjaśnienie

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

Jest to niewielka modyfikacja ogólnej struktury programów liniowych w trybie Ordinal. Środek /służy do tego, aby jeden operator w trybie kardynalnym znajdował się pomiędzy (a *), a następnie musimy #pominąć go w trybie porządkowym w drodze powrotnej. Program liniowy to:

i..*.QLzno@

Przejdźmy przez to:

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 bajtów

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

Wypróbuj online! Matematyka drukuje dodatkową wiadomość, ale odpowiedź jest prawidłowa

Python 2, 37 33 30 29 bajtów

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

Zaoszczędź 4 bajty dzięki @LeakyNun. Zapisano 3 bajty, zauważając, że wartość wejściowa jest mniejsza niż 10 ^ 12, więc nnie kończy się na „L”. Zaoszczędziłem 1 bajt dzięki @Dennis, ponieważ najpierw przeliczyłem się.

Wypróbuj online! (Link TIO dzięki uprzejmości @Dennis).

C (gcc) , 57 bajtów

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

Na podstawie odpowiedzi @ betseg jest to funkcja, która zwraca 1 lub 0 . Powoduje wyrzucanie śmieci do STDOUT, co jest domyślnie dozwolone .

Wynik zawiera +4 bajty dla flagi kompilatora -lm.

Wypróbuj online!

Ruby, 22 bajty

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

Wypróbuj online!

C # (.NET Core) , 47 bajtów

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

Wypróbuj online!

Węgiel drzewny , 12 11 bajtów

Ｉ¬⌕⮌ＩＸＩθ²⮌θ

Wypróbuj online!

Zwraca Falsejako falseyi Truejako truthy.

• 1 bajt zapisany dzięki tylko ASCII! (Jak mogłem przegapić tę Powerfunkcję?)

JavaScript (ES6), 23 bajty

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

Spróbuj

Napisałem ten fragment kodu na moim telefonie, więc edytuj go, jeśli nie działa poprawnie.

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>

Galaretka , 6 bajtów

²ṚwṚ⁼1

Wypróbuj online!

Kotlin, 36 bajtów

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

C, 77 + 4 ( -lm) = 81 bajtów

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

Wypróbuj online!

R, 28 bajtów

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

Tworzy funkcję:

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

Przyjmuje moduł x^2taki, że zachowujemy ostatnie cyfry, które porównujemy x.

Perl 5 , 15 + 1 (-p) = 16 bajtów

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

Wypróbuj online!

Galaretka , 7 bajtów

²_ọæċ⁵$

Wypróbuj online!

Liczba dodatnia dla tak, 0 dla nie.

Retina , 47 33 bajtów

14 bajtów dzięki Martinowi Enderowi.

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

Wypróbuj online!

PHP , 41 bajtów

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

PHP Sandbox Online

PHP , 42 bajty

bez Regex

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

PHP , 44 bajty

Użyj odległości levenshtein

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

Dyvil , 26 bajtów

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

Stosowanie:

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

Partia, 122 bajty

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

Algorytm jest ograniczony tylko typem liczbowym stosowanym dla zmiennych. W przypadku Batch są to 32-bitowe liczby całkowite ze znakiem, więc maksymalna wartość to 2147483647. Działa poprzez testowanie zarówno n, jak i n-1 pod kątem niezbędnych mocy 2 i 5 jako czynników. (Z wyjątkiem sytuacji, gdy n wynosi 0 lub 1, n i n-1 będą miały po jednym współczynniku.)

> <> , 30 bajtów

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

Wypróbuj online lub obejrzyj na placu zabaw dla ryb !

Zakłada, że ​​liczba wejściowa x jest już na stosie.

Objaśnienie: Ryba przyjmuje iloraz x ² poprzez zwiększenie mocy o 10 i liczy, ile razy równa się to x . Kiedy moc 10 staje się większa niż x , wypisuje licznik i zatrzymuje się. Liczba będzie wynosić 1, jeśli x jest automatyczny, i 0, jeśli nie jest.

Pari / GP , 23 bajty

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

Wypróbuj online!

Pyth , 10 9 bajtów

-1 bajt dzięki isaacg .

x_`^vz2_z

Zwraca 0, gdy liczba jest automatyczna, wszystko inne, jeśli nie jest.

Przetestuj online!

Objaśnienia

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 bajtów

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

Wypróbuj online!

Perl 6 , 15 bajtów

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

Wypróbuj online!

Zwraca prawdziwy obiekt dopasowania dla automatycznych danych wejściowych i fałszywą wartość zero dla innych liczb.

Clojure, 59 bajtów

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

To wydaje się zbyt szczegółowe.

MATL , 10 bajtów

UUVG36hXXn

Działa to dla liczb do floor(sqrt(2^53)), zgodnie z doubleograniczeniami dokładności.

Dane wyjściowe to liczba dodatnia (co jest zgodne z prawdą), jeśli jest automatyczna, lub pusta (co jest fałszem), jeśli nie.

Wypróbuj online!

Wyjaśnienie

Zabawne, że w tej odpowiedzi wykorzystano dwie przeciążone wersje U: z wprowadzeniem ciągu oblicza liczbę, a przy wprowadzaniu liczby oblicza kwadrat.

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