Pozitif bir tamsayı girişi verildiğinde n, aşağıdaki işlemi tamamlayan bir program yazın.

• Bundan daha küçük en büyük pozitif tamsayıyı nmükemmel bir karedir ve birleşimi nve başka bir sayıdır. Rakamlarının sırası ndeğiştirilemez. nMükemmel bir kare oluşturmak için birleştirilen sayı çağrılabilir r_1.
• Eğer r_1mükemmel bir kare değil, yukarıda işlemi yineleyin r_1sürecine yeni giriş olarak. Belirtilene kadar r_kmükemmel bir kare olana kadar tekrarlayın s.
• Değerini yazdırın sqrt(s).

Giriş herhangi bir formatta alınabilir. Bunun npozitif bir tam sayı olduğunu varsayabilirsiniz . Herhangi birinin önünde sıfır varsa r_k(ve r_k≠ 0), sıfır yok sayılabilir.

Test senaryoları

İşte bazı test örnekleri. İşlem yukarıdaki adımları göstermektedir.

Input:   23
Process: 23, 2304, 4
Output:  2

Input:   10
Process: 10, 100, 0
Output:  0

Input:   1
Process: 1, 16, 6, 64, 4
Output:  2

Input:   5
Process: 5, 529, 29, 2916, 16
Output:  4

Input:   145
Process: 145, 145161, 161, 16129, 29, 2916, 16
Output:  4

Input:   1337
Process: 1337, 13373649, 3649, 36493681, 3681, 368102596, 2596, 25969216, 9216
Output:  96

Bu kod golf. Standart kurallar geçerlidir. En kısa cevap (bayt cinsinden) kazanır.

Pyth, 26 bayt

LsI@b2 fy=sh.fys+QZ1\0)@Q2

Test odası

Çıktı şamandıra gibidir. İnt olarak çıkış isteniyorsa, 1 ekstra bayt olur.

Açıklama:

LsI@b2 fy=sh.fys+QZ1\0)s@Q2
                               Q = eval(input())
L                              def y(b): return
   @b2                         Square root of b
 sI                            Is an integer.
       f              )        Find the first positive integer T that satisfies
           h.f     1\0         Find the first digit string Z that satisfies
                +QZ            Concatenation of Q and Z
               s               Converted to an integer
              y                Is a pergect square.
          s                    Convert the string to an integer
         =                     Assign result to the next variable in the code, Q
        y                      Repeat until result is a perfect square
                               (The space) Discard return value
                        @Q2    Take square root of Q and print.

MATL , 35 44,0 bayt

XK``x@2^tVKVXf1=a~]VKVnQ0h)UXKX^t1\

Çevrimiçi deneyin!

XK        % implicit input: n. Copy to clipboard K
`         % do...while. Each iteration applies the algorithm
  `       %   do...while. Each iteration tests a candidate number
    x     %     delete top of stack
    @2^   %     iteration index squared
    t     %     duplicate
    V     %     convert to string                
    K     %     paste from clipboard K: n or r_k
    V     %     convert to string  
    Xf    %     find one string within another. Gives indices of starting matches, if any 
    1=a~  %     test if some of those indices is 1. If not: next iteration
  ]       %   end. We finish with a perfect square that begins with digits of n or r_k
  V       %   convert to string
  K       %   paste from clipboard K: n or r_k
  VnQ0h   %   index of rightmost characters, as determined by r_k
  )       %   keep those figures only
  U       %   convert to number. This is the new r_k
  XK      %   copy to clipboard K, to be used as input to algorithm again, if needed
  X^      %   square root
  1\      %   fractional part. If not zero: apply algorithm again
          % implitic do...while loop end
          % implicit display

Python 2, 98

i=input();d=o=9
while~-d:
 n=i;d=o+1;o=i=0
 while(n*d+i)**.5%1:i=-~i%d;d+=9*d*0**i
print'%d'%n**.5

Çevrimiçi deneyin .

Python, 200 198178 bayt

import math
def r(i):
 j=int(i**.5)+1
 while str(j*j)[:len(str(i))]!=str(i):j+=1
 return int(str(j*j)[len(str(i)):])
q=r(int(input()))
while math.sqrt(q)%1!=0:q=r(q)
print(q**.5)

Brachylog , 26 bayt

{~a₀X√ℕ∧YcX∧Yh?∧Ybcℕ≜!}ⁱ√ℕ

Çevrimiçi deneyin!

Son test vakası TIO bağlantısında atlandı çünkü tek başına yürütülmesi bir dakikadan fazla sürüyor. Dizüstü bilgisayarımda çalıştırdım ve en fazla iki saat içinde doğru sonuç elde edildi.

{                             The input
 ~a₀                          is a prefix of
    X√                        X, the square root of which
      ℕ                       is a whole number.
       ∧YcX                   Y concatenated is X.
           ∧Yh?               The input is the first element of Y.
               ∧Yb            The rest of Y,
                  c           concatenated,
                      }       is the output
                   ℕ          which is a whole number.
                    ≜         Make sure that it actually has a value,
                     !        and discard all choice points.
{                     }ⁱ      Keep feeding that predicate its own output until
                        √     its output's square root
                         ℕ    is a whole number
                              which is the output.

İkinci-son ℕ, ilk giriş zaten mükemmel bir kare olduğunda gereklidir, bu nedenle önek olarak sahip olan ilk mükemmel kare kendisidir ve !daha büyük bir birleştirilmiş kare bulmak yerine geri izlemenin yinelenmesini sağlamak için gereklidir, ama neden ≜gerekli olduğunu bilmiyorum, sadece 5'in yanlış bir cevap verdiğini biliyorum.

Perl 6 , 101 bayt

my&q={$^k;$_=({++($||=$k.sqrt.Int)**2}.../^$k/)[*-1];+S/$k//}
put (q(get),&q...!(*.sqrt%1))[*-1].sqrt

my &q = {
  $^k; # declare placeholder parameter
  # set default scalar to:
  $_ = ( # a list
    # code block that generates every perfect square
    # larger than the input
    { ++( $ ||= $k.sqrt.Int )**2 }
    ...   # produce a sequence
    /^$k/ # ending when it finds one starting with the argument
  )[*-1]; # last value in sequence

  # take the last value and remove the argument
  # and turn it into a number to remove leading zeros
  +S/$k//
}

put (     # print the result of:
  q(get),     # find the first candidate
  &q          # find the rest of them
  ...         # produce a sequence
  !(*.sqrt%1) # ending with a perfect square
)[*-1]        # last value in sequence
.sqrt         # find the sqrt

ES7, 116 bayt

n=>{do{for(i=n;!(r=(''+Math.ceil((i*=10)**0.5)**2)).startsWith(+n););n=r.replace(+n,'');r=n**0.5}while(r%1);return r}

Evet, büyük olasılıkla kullanarak bir bayt kaydedebilirim eval.