Cho số nguyên n, xuất số mũ nhỏ nhất elớn hơn 1 sao cho n^echứa nchuỗi con.

Ví dụ, đối với 25, câu trả lời phải là 2, như 25 ^ 2 = 625, chứa 25chuỗi con, nhưng câu trả lời 13phải 10là 13 ^ 10 = 137858491849, vì vậy, 10là số mũ thấp nhất mà kết quả chứa 13dưới dạng chuỗi con.

Quy tắc

• Quy tắc I / O tiêu chuẩn
• Áp dụng sơ hở tiêu chuẩn
• Mã ngắn nhất tính bằng byte thắng
• n sẽ luôn là một số nguyên lớn hơn 0

Các trường hợp thử nghiệm

1 => 2   (1 ^ 2 = 1)
2 => 5   (2 ^ 5 = 32)
3 => 5   (3 ^ 5 = 243)
4 => 3   (4 ^ 3 = 64)
5 => 2   (5 ^ 2 = 25)
6 => 2   (6 ^ 2 = 36)
7 => 5   (7 ^ 5 = 16807)
8 => 5   (8 ^ 5 = 32768)
9 => 3   (9 ^ 3 = 729)
10 => 2  (10 ^ 2 = 100)
11 => 11 (11 ^ 11 = 285311670611)
12 => 14 (12 ^ 14 = 1283918464548864)
13 => 10 (13 ^ 10 = 137858491849)
14 => 8  (14 ^ 8 = 1475789056)
15 => 26 (15 ^ 26 = 3787675244106352329254150390625)
16 => 6  (16 ^ 6 = 16777216)
17 => 17 (17 ^ 17 = 827240261886336764177)
18 => 5  (18 ^ 5 = 1889568)
19 => 11 (19 ^ 11 = 116490258898219)
20 => 5  (20 ^ 5 = 3200000)
25 => 2  (25 ^ 2 = 625)
30 => 5  (30 ^ 5 = 24300000)
35 => 10 (35 ^ 10 = 2758547353515625)
40 => 3  (40 ^ 3 = 64000)
45 => 5  (45 ^ 5 = 184528125)
50 => 2  (50 ^ 2 = 2500)
55 => 11 (55 ^ 11 = 13931233916552734375)
60 => 2  (60 ^ 2 = 3600)
65 => 17 (65 ^ 17 = 6599743590836592050933837890625)
70 => 5  (70 ^ 5 = 1680700000)
75 => 3  (75 ^ 3 = 421875)
80 => 5  (80 ^ 5 = 3276800000)
85 => 22 (85 ^ 22 = 2800376120856162211833149645328521728515625)
90 => 3  (90 ^ 3 = 729000)
95 => 13 (95 ^ 13 = 51334208327950511474609375)
100 => 2 (100 ^ 2 = 10000)

Tập lệnh Python để tạo 1000 câu trả lời đầu tiên

Perl 6 , 31 byte

{$^a;first {$a**$_~~/$a/},2..*}

Hãy thử trực tuyến!

R , 69 44 byte

function(n,i=2){while(!grepl(n,n^i))i=i+1;i}

Chức năng ẩn danh. Hoạt động trên diện rộng ikhi nđược chuyển đổi thành BigZ (xem TIO). Cảm ơn đã dạy tôi vài thứ Giuseppe và digEmAll!

Hãy thử trực tuyến!

Python 2 , 42 41 byte

^{-1 byte nhờ rjan Johansen (trở lại trực tiếp y)}

f=lambda x,y=2:y*(`x`in`x**y`)or f(x,y+1)

Hãy thử trực tuyến!

Giải thích / Ungolfed

Hàm đệ quy cố gắng từ $2,3\dots$ cho đến khi chúng tôi thành công:

# Start recursion with y=2
def f(x,y=2):
    # If we succeed, we arrived at the desired y
    if `x` in `x**y`:
        return y
    # Else we try with next y
    else:
        return f(x, y+1)

Hãy thử trực tuyến!

JavaScript (ES6 / Node.js),  41  40 byte

Đã lưu 1 byte nhờ @Shaggy

Lấy đầu vào dưới dạng Số (hoạt động cho $n<15$ ) hoặc bằng chữ BigInt .

n=>(g=x=>`${x*=n}`.match(n)?2:-~g(x))(n)

Hãy thử trực tuyến!

APL (Dyalog Unicode) , 25 23 17 byte

-2 byte nhờ @Erik the Outgolfer

-6 byte nhờ @ngn

cảm ơn @ H.PWiz vì đã tạo mã không yêu cầu tùy chỉnh ⎕pp(độ chính xác in)

⊢⍟×⍣(∨/(⍕÷)⍷0⍕⊣)⍨

Hãy thử trực tuyến!

⊢⍟×⍣(∨/(⍕÷)⍷0⍕⊣)⍨
  ×⍣(          )⍨ generates a geometric progression by repeatedly multiplying the argument
                   by its original value
     ∨/(⍕÷)⍷0⍕⊣   the progression stops when this function, applied between the new and the
                   last old member, returns true
         ÷        the original argument (ratio between two consecutive members)
        ⍕         formatted as a string
           ⍷      occurrences within...
            0⍕    ...the formatted (with 0 digits after the decimal point)...
              ⊣   ...new member
     ∨/           are there any?
⊢⍟                use logarithm to determine what power of ⍵ we reached

Bình thường , 9 byte

f}`Q`^QT2

Hãy thử trực tuyến!

Brachylog , 8 byte

;.^s?∧ℕ₂

Hãy thử trực tuyến!

Giải trình

;.^         Input ^ Output…
   s?       …contains the Input as a substring…
     ∧      …and…
      ℕ₂    …the Output is in [2,+∞)

05AB1E , 7 byte

∞>.Δm¹å

Hãy thử trực tuyến!

Giải trình:

∞>.Δm¹å  //full program
∞        //push infinite list, stack = [1,2,3...]
 >       //increment, stack is now [2,3,4...]
  .Δ     //find the first item N that satisfies the following
     ¹   //input
      å  //is in
    m    //(implicit) input **  N

SAS, 71 66 byte

Chỉnh sửa: Đã xóa ;run;ở cuối, vì nó được ngụ ý bởi phần cuối của đầu vào.

data a;input n;e=1;do until(find(cat(n**e),cat(n)));e+1;end;cards;

Dữ liệu đầu vào được nhập sau cards;câu lệnh, như vậy:

data a;input n;e=1;do until(find(cat(n**e),cat(n)));e+1;end;cards;
1
2
3
4
5
6
7
8
9
10
11
12
13
14

Tạo một tập dữ liệu achứa đầu vào nvà đầu ra e.

Thạch , 7 byte

2ẇ*¥@1#

Hãy thử trực tuyến!

Sạch , 99 byte

import StdEnv,Text,Data.Integer
$n=hd[p\\p<-[fromInt 2..]|indexOf(""<+n)(""<+prod(repeatn p n))>=0]

Hãy thử trực tuyến!

Nếu nó không cần phải làm việc với số lượng khổng lồ, thì

Sạch sẽ , 64 byte

import StdEnv,Text
$n=hd[p\\p<-[2..]|indexOf(""<+n)(""<+n^p)>=0]

Hãy thử trực tuyến!

Java (OpenJDK 8) , 84 byte

Lấy đầu vào dưới dạng Chuỗi đại diện cho số và xuất ra một int.

Hầu hết các byte đến từ mức độ dài của BigDecimalnhu cầu cần thiết để xử lý số lượng lớn.

n->{int i=1;while(!(new java.math.BigDecimal(n).pow(++i)+"").contains(n));return i;}

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Điều này khá đơn giản nhưng tôi sẽ bao gồm lời giải thích cho hậu thế;

n->{                                    // Lamdba taking a String and returning an int
    int i=1;                            // Initialises the count
    while(!                             // Loops and increments until
        (new java.math.BigDecimal(n)    // Creates a new BigDecimal from the input n
            .pow(++i)+"")               // Raises it to the power of the current count
            .contains(n)                // If that contains the input, end the loop
    );
    return i;                           // Return the count
}

Ruby , 37 byte

->n,i=2{i+=1until/#{n}/=~"#{n**i}";i}

Hãy thử trực tuyến!

Japt, 10 byte

@pX søU}a2

Thử nó

JavaScript (Node.js) , 45 byte

Các trường hợp thử nghiệm được lấy từ câu trả lời của @ Arnauld

a=>eval("for(i=1n;!(''+a**++i).match(a););i")

Hãy thử trực tuyến!

Than , 19 byte

Ｗ∨‹Ｌυ²¬№ＩΠυθ⊞υＩθＩＬυ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

Ｗ∨‹Ｌυ²¬№ＩΠυθ⊞

Lặp lại cho đến khi độ dài danh sách ít nhất là 2 và sản phẩm của nó chứa đầu vào ...

⊞υＩθ

... chuyển đầu vào thành số nguyên và đẩy nó vào danh sách.

ＩＬυ

Truyền độ dài của danh sách thành chuỗi và in ngầm.

Python 3 , 63 58 byte

def f(n,e=2):
	while str(n)not in str(n**e):e+=1
	return e

Hãy thử trực tuyến!

Python2 có thể sẽ ngắn hơn, nhưng tôi thích sử dụng 3. Sắp tới một lambda rất khó, nhưng tôi đang thử một vài thứ.

MathGolf , 10 byte

ôkï⌠#k╧▼ï⌠

Hãy thử trực tuyến!

Giải trình

Điều này cảm thấy vô cùng lãng phí, phải đọc đầu vào rõ ràng hai lần, phải tăng bộ đếm vòng lặp hai lần.

ô            start block of length 6
 k           read integer from input
  ï          index of current loop, or length of last loop
   ⌠         increment twice
    #        pop a, b : push(a**b)
     k       read integer from input
      ╧      pop a, b, a.contains(b)
       ▼     do while false with pop
        ï    index of current loop, or length of last loop
         ⌠   increment twice

Ruby , 41 byte

f=->n,a=n{(a*=n).to_s=~/#{n}/?2:1+f[n,a]}

Hãy thử trực tuyến!

C # (.NET Core) , 104 89 byte

a=>{int i=2;while(!(System.Numerics.BigInteger.Pow(a,i)+"").Contains(a+""))i++;return i;}

Hãy thử trực tuyến!

-1 byte: đã thay đổi vòng lặp thành while (nhờ Skidsdev )
-14 byte: lạm dụng xử lý chuỗi kỳ lạ của C # để xóa ToString() các cuộc gọi

Cần sử dụng thư viện BigInteger của C # , vì các loại C # số tiêu chuẩn (int, double, long, ulong, v.v.) không thành công đối với một số số lớn hơn (bao gồm 12, 15 và 17).

Ung dung:

a => {
    int i = 2;                                          // initialize i

    while( !(System.Numerics.BigInteger.Pow(a,i) + "")  // n = a^i, convert to string
                                .Contains(a + ""))      // if n doesn't contain a
        i++;                                                // increment i

    return i;
}

Python 2 , 47 byte

i,e=input(),2
while`i`not in`i**e`:e+=1
print e

Hãy thử trực tuyến!

Lấy cảm hứng từ giải pháp của @ Gigaflop .

Tcl , 69 81 byte

proc S n {incr i
while {![regexp $n [expr $n**[incr i]]]} {}
puts $i}

Hãy thử trực tuyến!

PowerShell (V3 +), 67 byte

function f{param($n)$i=1;do{}until([math]::pow($n,++$i)-match$n)$i}

Lisp thông thường, 78 byte

(lambda(n)(do((e 2(1+ e)))((search(format()"~d"n)(format()"~d"(expt n e)))e)))

Hãy thử trực tuyến!

J , 26 byte

2>:@]^:(0=[+/@E.&":^)^:_~]

Hãy thử trực tuyến!

LƯU Ý: Tôi đã thay đổi trận chung kết ]thành x:trong TIO, để làm cho các bài kiểm tra vượt qua cho các số nguyên lớn hơn.

Oracle SQL, 68 byte

select max(level)+1 from dual,t connect by instr(power(x,level),x)=0

Có một giả định rằng số nguồn được lưu trữ trong một bảng t(x), ví dụ

with t as (select 95 x from dual)

Kiểm tra SQL * Plus

SQL> with t as (select 95 x from dual)
  2  select max(level)+1 from dual,t connect by instr(power(x,level),x)=0
  3  /

MAX(LEVEL)+1
------------
          13