양의 정수 M 의 N 지수 전위 를 완벽한 N 제곱 인 M ^N 의 접두사 수로 정의합니다 .

정수의 접두사는 10의 숫자로 해석되는 첫 번째 숫자로 시작하는 연속 된 모든 자릿수의 하위 시퀀스입니다. 예를 들어, 2744 의 접두사 는 2 , 27 , 274 및 2744 입니다.

접두어 P가 완벽하다 N의 정수가 존재하는 경우 - 힘 K 되도록 K ^N = P를 . 예를 들어 81 은 3 ⁴ = 81 이므로 완벽한 4 제곱 입니다.

두 개의 엄격하게 양의 정수 M 과 N이 주어지면 , 위 정의에 따라 M 의 N 지수 전위를 계산하십시오 .

예를 들어, 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.

하스켈 , 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 바이트 알고리즘을 사용합니다. 입력 순서가 역순입니다.

펄 5 , 38 바이트

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

온라인으로 사용해보십시오!

하스켈, 73 바이트

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

온라인으로 사용해보십시오!

자바 (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;}

온라인으로 사용해보십시오!

크레딧

• Kevin Cruijssen 덕분에 -1 바이트

펄 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⊢⍺*⍵}

온라인으로 사용해보십시오!

하스켈 , 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}

대부분 부동 소수점 오류를 처리하는 것입니다.

온라인으로 사용해보십시오!

코 틀린 , 89 바이트

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

온라인으로 사용해보십시오!

테스트 사례에서 Math.pow ()를 호출 할 때 double로 변환 할 필요가 없도록 n을 이중 값 (2.0, 10.0, 9.0)으로 전달했습니다.

파이썬 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

온라인으로 사용해보십시오!

ovs에서 1의 Thx.

젤리 , 9 바이트

*DḌƤœ&*€L

온라인으로 사용해보십시오!