Bir Otomorfik sayı, taban 10'daki karesinin soneki olan bir sayıdır. Bu, OEIS'deki A003226 dizisidir .

Senin görevin:

Bir girişin Otomorfik sayı olup olmadığını belirlemek için bir program veya işlev yazın.

Giriş:

Otomorfik bir sayı olabilecek veya olmayabilecek 0 ile 10 ^ 12 (dahil) arasında bir tam sayı.

Çıktı:

Girdinin bir Otomorfik sayı olup olmadığını gösteren bir doğruluk / yanlış değer.

Örnekler:

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

puanlama:

Bu kod golf , bayt kazanır en düşük puan.

Brachylog , 5 bayt

~√a₁?

Çevrimiçi deneyin!

Nasıl çalışır

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

Python 2 , 24 bayt

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

Çevrimiçi deneyin!

Tarihte ilk kez, Python 2'nin Luzun ömürlü repr'e bir ekleme , bir hatadan ziyade bir özelliktir.

Fikir demek, bir alt dizesi olup olmadığını kontrol ederek 76^2=5776biter 76olmadığını kontrol 76Letmektir 5776L. Yapmak için L, olmayan büyük sayılar için biz çarpma tarafından görünmesini 1Lveya sahip 2Luzun uzun üretir ile birlikte bir aritmetik işlem beri üs olarak.

Python 2 , 31 bayt

Xnor tarafından dışarı golf ... (bu her seferinde olur)> <Ama hey, şaşırtıcı bir şekilde kod golf için Pythonic .

İnsanlar Python'un str.endswith()...

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

Çevrimiçi deneyin!

05AB1E , 5 bayt

n.s¹å

Çevrimiçi deneyin!

Retina , 44 bayt

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

Çevrimiçi deneyin!

10 adik denklemin tam olarak 4 çözümü vardır x*x = x.

Alice , 17 bayt

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

Çevrimiçi deneyin!

(Ordinal modda falsili olan) veya Jabberwocky(boş olmayan ve bu nedenle Ordinal modda gerçek olan; hiçbir şey kanonik doğruluksal dize değeri) çıktı verir.

açıklama

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

Bu, doğrusal Ordinal mod programları için genel çerçevede küçük bir değişikliktir. /Ortada arasında Kardinal modunda tek operatörü için kullanılır ( *) ve daha sonra ihtiyacımız #yolu sırtında Sıra modunda atlamak için. Bu durumda doğrusal program:

i..*.QLzno@

Bunu inceleyelim:

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 bayt

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

Çevrimiçi deneyin! Matematik fazladan bir mesaj yazdırıyor ama cevap doğru

Python 2, 37 33 30 29 bayt

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

@LeakyNun sayesinde 4 bayt kaydedildi. Girişin 10 ^ 12'den düşük olduğunu fark ederek 3 bayt kaydedildi, bu nedenle n"L" ile bitmiyor. @Dennis sayesinde 1 bayt kaydedildi çünkü ilk etapta yanlış saydım.

Çevrimiçi deneyin! (@Dennis'in izniyle TIO bağlantısı).

C (gcc) , 57 bayt

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

@ Betseg'nin cevabına dayanarak, bu 1 veya 0 döndüren bir işlevdir . STDOUT'a varsayılan olarak izin verilen çöp çıktısı üretir .

Skor derleyici bayrağı için +4 bayt içerir -lm.

Çevrimiçi deneyin!

Ruby, 22 bayt

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

Çevrimiçi deneyin!

C # (.NET Core) , 47 bayt

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

Çevrimiçi deneyin!

Kömür , 12 11 bayt

Ｉ¬⌕⮌ＩＸＩθ²⮌θ

Çevrimiçi deneyin!

FalseOlarak falseyve Trueolarak döner truthy.

• Yalnızca ASCII sayesinde 1 bayt kaydedildi! ( Powerİşlevi nasıl özleyebilirim ?)

JavaScript (ES6), 23 bayt

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

Dene

Bu Snippet'i telefonuma yazdı, bu yüzden düzgün çalışmıyorsa lütfen düzenleyin.

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>

Jöle , 6 bayt

²ṚwṚ⁼1

Çevrimiçi deneyin!

Kotlin, 36 bayt

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

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

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

Çevrimiçi deneyin!

R, 28 bayt

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

Bir işlev oluşturur:

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

x^2Karşılaştırma yaptığımız son rakamları tutacağımız modülü alır x.

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

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

Çevrimiçi deneyin!

Jöle , 7 bayt

²_ọæċ⁵$

Çevrimiçi deneyin!

Evet için pozitif sayı, hayır için 0.

Retina , 47 33 bayt

Martin Ender sayesinde 14 bayt.

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

Çevrimiçi deneyin!

PHP , 41 bayt

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

PHP Korumalı Alanı Çevrimiçi

PHP , 42 bayt

Regex olmadan

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

PHP , 44 bayt

Levenshtein mesafesini kullanın

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

Dyvil , 26 bayt

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

Kullanımı:

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

Toplu, 122 bayt

@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 yalnızca değişkenler için kullanılan tamsayı türü ile sınırlıdır. Batch durumunda, bu 32-bit işaretli tamsayılardır, bu nedenle maksimum 2147483647'dir. N ve n-1'i 2 ve 5'in gerekli güçleri için faktör olarak test ederek çalışır. (N'nin 0 veya 1 olması dışında, n ve n-1'in her birinde bir faktör olacaktır.)

> <> , 30 bayt

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

Çevrimiçi deneyin veya balık oyun alanında izleyin !

X giriş numarasının yığın üzerinde olduğunu varsayar .

Açıklama: balıklar katsayısı alır x ² Bu eşittir kaç kez artan 10'un kuvvetlerine ve sayıları ile x . 10'un gücü x'ten daha büyük olduğunda sayıyı yazdırır ve durur. Sayım, x otomorfikse 1, değilse 0 olacaktır.

Pari / GP , 23 bayt

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

Çevrimiçi deneyin!

Pyth , 10 9 bayt

ISAACG sayesinde -1 bayt .

x_`^vz2_z

Sayı otomatik olarak olduğunda 0, değilse başka bir şey döndürür.

Çevrimiçi test edin!

açıklamalar

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 bayt

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

Çevrimiçi deneyin!

Perl 6 , 15 bayt

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

Çevrimiçi deneyin!

Otomorfik girdiler için gerçek bir Eşleşme nesnesi ve diğer sayılar için yanlış bir Nil değeri döndürür.

Clojure, 59 bayt

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

Bu aşırı ayrıntılı görünüyor.

MATL , 10 bayt

UUVG36hXXn

Bu floor(sqrt(2^53)), doublehassasiyet sınırlamalarına göre en fazla sayı için geçerlidir .

Çıktı, otomorfik ise pozitif (doğru olan) veya değilse (boş olan) boş bir sayıdır.

Çevrimiçi deneyin!

açıklama

Bu cevabın aşırı yüklü iki sürümünü kullanması komiktir U: string girişi ile sayı olarak değerlendirir ve sayı girişi ile kareyi hesaplar.

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