pandigital数が少なくとも一度0~9からすべての数字を含む整数です。1234567890、1902837465000000、および9023289761326634265はすべてpandigitalです。このチャレンジでは、123456789 = 0123456789であっても、123456789などの数字は0を含まないため、パンデジタルではありません。

多様な整数の対は、整数の対であるよう pandigitalあります。は多様化指数と呼ばれます。$(a, b)$$a^b$$b$

課題：整数与えられると、対応する最小化する多様化指数見つけます。これはcode-golfであるため、バイト単位の最短プログラムが優先されます。$a$$b$

（このような指数が存在すると想定できます。つまり、10の累乗などの無効な入力がプログラムに与えられることはありません。）

ソリューションは、少なくとも指定されたテストケースを処理できる必要がありますが、理論的にはすべての有効な入力を処理する必要があります。

これは、OEISのA090493です。

テストケース

2 -> 68
3 -> 39
4 -> 34
5 -> 19
6 -> 20
7 -> 18
8 -> 28
9 -> 24
11 -> 23
12 -> 22
13 -> 22
14 -> 21
15 -> 12
16 -> 17
17 -> 14
18 -> 21
19 -> 17
20 -> 51
21 -> 17
22 -> 18
23 -> 14
24 -> 19
25 -> 11
26 -> 18
27 -> 13
28 -> 11
29 -> 12
30 -> 39
31 -> 11
32 -> 14
33 -> 16
34 -> 14
35 -> 19
36 -> 10
1234567890 -> 1

Brachylog（v2）、9バイト

;.≜^dl10∧

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

これは関数の提出です。TIOリンクには、関数を完全なプログラムにするラッパーが含まれています。

説明

;.≜^dl10∧
 .≜        Brute-force all integers, outputting the closest to 0
;  ^         for which {the input} to the power of the number
    d        has a list of unique digits
     l10     of length 10
        ∧  (turn off an unwanted implicit constraint)

Python 2、44バイト

f=lambda n,k=1:11>len(set(`k`))and-~f(n,n*k)

long ​`k`​とint では動作が異なるため、入力は長くする必要があります。

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

Perl 6、32バイト

{first ($_** *).comb.Set>9,1..*}

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

かなり自明です。

説明

{                              }  # Anonymous code block
first                     ,1..*   # First positive number that
      ($_** *)    # When the input is raised to that power
              .comb.Set    # The set of digits
                       >9  # Is longer than 9

JavaScript（Node.js）、 51 46  43バイト

入力をBigIntリテラルとして受け取ります。1の代わりにtrueを返します。

f=(n,k=n)=>new Set(n+'').size>9||1+f(n*k,k)

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

Ruby、41バイト

->n{i=0;i+=1until(n**i).digits.uniq[9];i}

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

Haskell、50バイト

f a=until(\b->all(`elem`show(a^b))['0'..'9'])(+1)1

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

同じバイト数：

f a=[b|b<-[1..],all(`elem`show(a^b))['0'..'9']]!!0

J、25バイト

>:@]^:(10>#@~.@":@^)^:_&1

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

単一の単項動詞。入力は拡張精度整数（例：）でなければなりません2x。

使い方

>:@]^:(10>#@~.@":@^)^:_&1    Monadic verb. Input: base a
    ^:              ^:_      Good old do-while loop.
                       &1    Given 1 as the starting point for b,
>:@]                         increment it each step
      (            )         and continue while the condition is true:
               ":@^          Digits of a^b
            ~.@              Unique digits
          #@                 Count of unique digits
       10>                   is less than 10

Tcl、82バイト

proc X d {while {[llength [lsort -u [split [expr $d**[incr i]] ""]]]-10} {}
set i}

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

ラケット、110 96バイト

UltimateHawkのおかげで-14バイト！

(define(f n[b 1])(if(= 10(length(remove-duplicates(string->list(~v(expt n b))))))b(f n(+ b 1))))

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

Pythonの3、52の 47バイト

@BMOに感謝

f=lambda n,i=1:len({*str(n**i)})>9or 1+f(n,i+1)

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

05AB1E（レガシー）、10 9バイト

Mr. Xcoderのおかげで1バイト節約

XµINmÙgTQ

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

説明

Xµ           # find the first positive integer N that
  INm        # when the input is raised to N
     Ù       # and duplicate digits are removed
      g      # has a length
       TQ    # equal to 10

炭、19バイト

ＷΦχ¬№ＩＸＩθＬυＩκ⊞υωＩＬυ

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

ＷΦχ¬№ＩＸＩθＬυＩκ⊞υω

リストの長さに対する入力のべき乗に含まれない数字がなくなるまで、空の文字列を空のリストに繰り返しプッシュします。

ＩＬυ

リストの長さを印刷します。

K（ngn / k）、76バイト

{#{10>#?(+/|\0<|x)#x}{{+/2 99#,/|0 10\x,0}/+/99 99#,/a*\:x,0}\a::|(99#10)\x}

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

{ } 引数付きの関数 x

|(99#10)\x 99個の10進数の逆のリストとして数値を表します-引数に対してそれを行います

a::グローバル変数に割り当てますa（kには閉包がありません。aサブ関数で使用できるようにグローバルである必要があります）

{ }{ }\ 最初の関数がfalseyを返している間、2番目の関数（別名whileループ）を適用し続け、中間結果を保持します

a*\:xの各a桁にの各桁を掛けxます（「外積」）

99 99#a*\:x,0 余分な0の列を追加し、99x99に再度整形します。これにより、i番目の行がi項目だけ右に移動し、左側に0が挿入されます（これはテストで機能します。

+/ 和

{+/2 99#,/|0 10\x,0}/ キャリーの伝播：

• { }/ 収束するまで適用し続ける

• 0 10\x 10によるdivmod（リストのペア）

• |0 10\x 10でmoddiv

• 2 99#,/|0 10\x,0 「div」部分が右に1桁シフトした10のmoddiv

• +/ 和

{10>#?(+/|\0<|x)#x} -pandigitalの（ではない）チェック：

• |x 逆 x

• 0< どの数字がゼロではない

• |\ 部分最大値

• +/ sum-これは、先頭の0の数をカウントします x

• 10> 彼らは10未満ですか？

# パワーのシーケンスの長さ-これは結果です

PowerShell、107バイト

param([bigint]$a)for([bigint]$b=1;-join("$([bigint]::pow($a,$b))"|% t*y|sort -u)-ne-join(0..9);$b=$b+1){}$b

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

非常に簡単で、[bigint]どこでも使用する必要があるだけです。入力を受け取り$a、for初期化子でループを設定します$b=1。

我々は増分各反復$bするかどうかを確認した後$a ^ $b（ビアpow）送信toCharArra y、sortとED -uniqueフラグは、次に-join文字列に一緒にEDがある-nOT e範囲にQUAL 0..9も-join文字列に編。

それは一口です。たとえば、これは、と比較7 ^ 5 = 16807 --> "01678"し"0123456789"、等しくないと判断し、ループを続行します。

ループを抜けたら、どちら$bが入力に適しているかを判断し、それをパイプラインに残します。出力は暗黙的です。

Java、108バイト

a->{int b=0;while(new java.math.BigDecimal(a).pow(++b).toString().chars().distinct().count()<10);return b;};

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

説明

10個（またはそれ以上、ただし0〜9個のみ）の一意の文字列が見つかるまでa ^ bをループするブルートフォース。

BigDecimalMath.pow十分に正確ではないため（大文字と小文字が区別されない11）、Doubleデフォルトでaを文字列に変換すると科学表記法が表示されるため、この方法でpandigital番号を見つけることができません。

Pyth、10 8バイト

fq;l{`^Q

こちらからオンラインでお試しください。

fq;l{`^QT   Implicit: Q=eval(input())
            Trailing T inferred
f           Return (and print) the first positive integer where the following is true:
      ^QT     Raise input to the current number-th power
     `        Convert to string
    {         Deduplicate
   l          Take the length
 q            Is the above equal to...
  ;           10

前のコード、FryAmTheEggmanのおかげで2バイト節約 fq;l{j^QT;

ゼリー、12 11バイト

1*@ṾØDfƑʋ1#

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

使い方

1*@ṾØDfƑʋ1#  Main link. Argument: n

1            Set the return value to 1.
         1#  Call the link to the left for k = 1, 2, ... and with right argument n,
             until it returns a truthy value.
        ʋ      Combine the four links to the left into a dyadic chain.
 *@              Compute n**k.
   Ṿ             Convert it to its string representation.
    ØD           Yield "0123456789".
      fƑ         Filter and return 1 is the result is equal to the left argument.

クリーン、107 101バイト

import StdEnv,Data.Integer
$a=hd[b\\b<-[1..]|length(removeDup[c\\c<-:toString(prod(repeatn b a))])>9]

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

入力を受け取りInteger、Int

Wolfram言語（Mathematica）、48バイト

(For[n=1,!AllTrue[DigitCount[#^n],#>0&],n++];n)&

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

アタッシェ、27バイト

${Generate{#Unique[x^_]>9}}

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

説明

${Generate{#Unique[x^_]>9}}
${                        }    lambda, input: x
  Generate{              }     first natural number _ satisfying...
                   x^_             the input to that number
            Unique[   ]          unique digits of ^
           #                   length of ^
                       >9      is greater than 9
                               i.e.: has 10 distinct digits

代替案

28バイト： ${Generate{Unique@S[x^_]@9}}

29バイト： ${Generate{Unique[S[x^_]]@9}}

30バイト： ${Generate{#Unique[S[x^_]]>9}}

31バイト： Generate@${{#Unique[S[x^_]]>9}}

32バイト： ${Generate[{#Unique[S[x^_]]>9}]}

33バイト： ${If[#Unique[x^y]>9,y,x&$!-~y]}&0

34バイト： ${If[#Unique[x^y]>9,y,$[x,y+1]]}&0