我们将正整数M的N指数势定义为M ^N的前缀，即完美N幂。

的整数的前缀是所有与第一个，在基座10例如解释为数字开始数字的连续子序列，的前缀2744是2，27，274和2744。

如果存在整数K使得K ^N = P，则前缀P是完美的N次方。例如，81是理想的4幂，因为3 ⁴ = 81。

给定两个严格的正整数中号和Ñ，计算Ñ的-exponential电位中号根据上述定义。

例如，2的-exponential电位13是3，因为13 ²是169，和1，16和169都是完美的正方形。

测试用例

自然地，输出几乎总是很小的，因为幂是...很好...指数增长的函数并具有多个完善的幂前缀是很少见的。

M, N     -> Output

8499, 2  -> 1
4,    10 -> 2
5,    9  -> 2
6,    9  -> 2
13,   2  -> 3

Brachylog，12个字节

{^a₀.&b~b^}ᶜ

在线尝试！

说明

{^a₀.&b~b^}ᶜ
{         }ᶜ  Count the number of ways the following can succeed:
  a₀            A prefix of
 ^                the first {input} to the power of the second {input}
    .&          produces the same output with the same input as
       ~b         any number
         ^        to the power of
      b           all inputs but the first (i.e. the second input)

果冻，10字节

*DḌƤÆE%Ḅċ0

在线尝试！

怎么运行的

*DḌƤÆE%Ḅċ0  Main link. Left argument: m. Right argument: n.

*           Compute m**n.
 D          Generate its decimal digits.
  ḌƤ        Convert prefixes back to integers.
    ÆE      Get the exponents of each prefix's prime factorization.
      %     Take all exponents modulo n.
            For a perfect n-th power, all moduli will be 0.
       Ḅ    Convert from binary to integer, mapping (only) arrays of 0's to 0.
        ċ0  Count the zeroes.

Haskell，56个字节

0%n=0
x%n=sum[1|t<-[1..x],t^n==x]+div x 10%n
m#n=(m^n)%n

在线尝试！

通过重复算术地提取前缀\x->div x 10。我试着最后一点无点表达，但是没有找到一个简短的表达。

05AB1E，8个字节

mηÓ¹%O0¢

在线尝试！

使用Dennis的Jelly 10字节算法。输入顺序相反。

Perl 5，38个字节

#!/usr/bin/perl -p
/ /;$_=grep/^${\++$n**$'}/,($`**$')x$`

在线尝试！

Haskell，73个字节

m#n=sum[1|c<-scanl(\s c->s++[c])"0"$show$m^n,any(==read c)$map(^n)[1..m]]

在线尝试！

Java（OpenJDK 9），105字节

m->n->{int c=1,k=m;for(;--k>0;)if((""+(int)Math.pow(m,n)).matches((int)Math.pow(k,n)+".*"))c++;return c;}

在线尝试！

学分

• -1字节感谢Kevin Cruijssen

Perl 6，40个字节

{1+(^$^m X**$^n).grep({$m**$n~~/^$^p/})}

在线尝试！

果冻，14字节

*DḌƤ*İ}ær⁵%1¬S

在线尝试！或查看测试套件

怎么运行的

*DḌƤ*İ}ær⁵%1¬S - Main link. Arguments: n, m (integers)  e.g. 13, 2
*              - Power. Raise x to the power y               169
 D             - Convert to a list of digits                 [1 6 9]
   Ƥ           - Convert each Ƥrefix
  Ḍ            - Back to an integer                          [1 16 169]
     İ         - Calculate the İnverse of
      }        - The right argument                          0.5
    *          - Raise each element to that power            [1 4 13]
       ær⁵     - Round each to 10 ** -10                     [1 4 13]
               - to remove precision errors
          %1   - Take the decimal part of each               [0 0 0]
            ¬  - Logical NOT each                            [1 1 1]
             S - Sum                                         3

APL（Dyalog），31个字节

{+/o=⌊o←(÷⍵)*⍨10⊥¨,\10⊥⍣¯1⊢⍺*⍵}

在线尝试！

Haskell，83个字节

import Data.List
m#n=sum[1|x<-read<$>(tail$inits$show(m^n)),x`elem`((^n)<$>[1..m])]

在线尝试！

红宝石，60字节

->m,n{c=1;s=m**n;c+=(0..m).count{|j|j**n==s}while 0<s/=10;c}

很多是为了处理浮点错误

在线尝试！

Kotlin，89位元组

m,n->1+(1..m-1).count{"${Math.pow(m+0.0,n)}".startsWith("${Math.pow(it+0.0,n).toInt()}")}

在线尝试！

在测试用例中，将n作为双精度值（2.0、10.0、9.0）传递给我，这样我在调用Math.pow（）时就不必转换为double值。

Python 2中，83个 71 70字节

n,m=input();s=n**m;k=0
while s:k+=round(s**(1./m))**m==s;s/=10
print k

在线尝试！

ov的Thx为1。

果冻，9字节

*DḌƤœ&*€L

在线尝试！