integer を指定すると、部分文字列として含まれる1より大きいn最小指数を出力eしn^eますn。

たとえば、の25場合、回答は2、as 25 ^ 2 = 625、25サブストリングとして含まれる13はずですが、の回答は10、as 13 ^ 10 = 137858491849、10結果が13サブストリングとして含まれる最小指数である必要があります。

ルール

• 標準I / Oルール
• 標準的な抜け穴が適用されます
• バイト単位の最短コードが勝つ
• n 常により大きい整数になります 0

テストケース

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)

最初の1000個の回答を生成するPythonスクリプト

Perl 6、31バイト

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

オンラインでお試しください！

R、69 44バイト

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

無名関数。BigZに変換されると大規模iに機能nします（TIOを参照）。ジュゼッペとdigEmAllを教えてくれてありがとう！

オンラインでお試しください！

Python 2、42の 41バイト

^{ØrjanJohansenのおかげで-1バイト（戻るy直接）}

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

オンラインでお試しください！

説明/ゴルフなし

しようとして再帰関数$2,3\dots$我々は成功するまで：

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

オンラインでお試しください！

JavaScript（ES6 / Node.js）、 41  40バイト

@Shaggyのおかげで1バイト節約

入力を数値（$n<15$）またはBigIntリテラルとして受け取ります。

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

オンラインでお試しください！

APL（Dyalog Unicode）、25 23 17バイト

@Erik the Outgolferのおかげで-2バイト

@ngnのおかげで-6バイト

@ H.PWizに感謝します。コードをカスタマイズする必要はありません⎕pp（印刷精度）

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

オンラインでお試しください！

⊢⍟×⍣(∨/(⍕÷)⍷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

Pyth、9バイト

f}`Q`^QT2

オンラインでお試しください！

Brachylog、8バイト

;.^s?∧ℕ₂

オンラインでお試しください！

説明

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

05AB1E、7バイト

∞>.Δm¹å

オンラインでお試しください！

説明：

∞>.Δ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バイト

編集：;run;入力の終わりによって暗示されているため、最後に削除されました。

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

入力データはcards;、次のようにステートメントの後に入力されます。

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

a入力nと出力を含むデータセットを生成しますe。

ゼリー、7バイト

2ẇ*¥@1#

オンラインでお試しください！

クリーン、99バイト

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

オンラインでお試しください！

巨大な膨大な数で動作する必要がない場合は、

掃除、64バイト

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

オンラインでお試しください！

Java（OpenJDK 8）、84バイト

入力を数値を表す文字列として受け取り、intを出力します。

ほとんどのバイトBigDecimalは、大きな数を処理するために必要な冗長性に由来します。

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

オンラインでお試しください！

使い方

これはかなり単純ですが、後世の説明を含めます。

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
}

ルビー、37バイト

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

オンラインでお試しください！

Japt、10バイト

@pX søU}a2

それを試してみてください

JavaScript（Node.js）、45バイト

@Arnauldの回答から取得したテストケース

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

オンラインでお試しください！

炭、19バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

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

リストの長さが少なくとも2になり、その製品に入力が含まれるまで繰り返します...

⊞υＩθ

...入力を整数にキャストし、リストにプッシュします。

ＩＬυ

リストの長さを文字列にキャストし、暗黙的に印刷します。

Pythonの3、63の 58バイト

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

オンラインでお試しください！

Python2はおそらくもっと短いだろうが、私は3を使用するのが好きだ。ラムダを使ってやってくるのは難しいが、私はいくつかのことを試している。

MathGolf、10バイト

ôkï⌠#k╧▼ï⌠

オンラインでお試しください！

説明

これは、入力を2回明示的に読み取る必要があり、ループカウンターを2回インクリメントする必要があるため、非常に無駄です。

ô            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バイト

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

オンラインでお試しください！

C＃（.NET Core）、104 89バイト

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

オンラインでお試しください！

-1バイト：forループをwhileに変更（Skidsdevに感謝）
-14バイト： 呼び出しを削除するためにC＃の奇妙な文字列処理を悪用ToString()

C＃のBigIntegerライブラリを使用する必要があります。標準の数値C＃型（int、double、long、ulongなど）は、一部の大きな数値（12、15、および17を含む）で失敗します。

ゴルフをしていない：

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バイト

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

オンラインでお試しください！

@Gigaflopのソリューションに触発されました。

Tcl、69 81バイト

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

オンラインでお試しください！

PowerShell（V3 +）、67バイト

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

Common Lisp、78バイト

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

オンラインでお試しください！

J, 26 bytes

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

Try it online!

NOTE: I've changed the final ] to x: in the TIO, to make the tests pass for larger integers.

Oracle SQL, 68 bytes

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

There is an assumption that source number is stored in a table t(x), e.g.

with t as (select 95 x from dual)

Test in 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