유쾌한 숫자 (이 정의에 따름)는 다음 프로세스를 통과 할 수있는 숫자입니다 ( 41802000예를 들어 보자).

• 후행 동일한 숫자를 분리하십시오 ( 41802000 => [41802, 000])
• 숫자의 전반부를 정렬하고 최대 값을 가져옵니다 ( [41802, 000] => [8, 000])
• 최종 요소의 길이를 가져옵니다. 결과 요소 A 와 B를 호출합니다 ( [8, 000] => A=8, B=3)
• 정수에 대해 N ^B = A N입니까? ( True이 예에서는 2 ³ = 8)

입력 결과가 True다음과 같은 과정에서 발생하면 유쾌한 것으로 간주됩니다.

당신의 작업은 integer를 취하고 유쾌한 숫자 x인지 여부를 출력하는 것 x입니다. 진실과 거짓에 대한 두 가지 고유 한 값을 출력 할 수 있지만 답에 사용중인 것을 명시하십시오. x적어도 두 개의 고유 숫자가 있어야합니다 (예 : 111유효하지 않은 입력). 대부분의 문제와 마찬가지로 x문자열 또는 숫자 목록으로 사용할 수 있습니다.

이것은 코드 골프 이므로 바이트 단위의 가장 짧은 코드가 승리합니다.

테스트 사례

          Input          Output
       41802000               1
            100               1
      123456788               0
      451111111               0
234543454545444               0
             12               1
       41902000               0
          92599               1

APL (Dyalog) , 36 바이트

{(⊢≡⌊)(⌈/⍎¨⍵/⍨~o)*÷≢⍵/⍨o←⌽⌊\1,2=/⌽⍵}

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

방법?

거의시.

⌽⍵ -입력을 한 번 뒤집고

1,2=/ -차이점 목록을 얻으십시오.

⌊\ -첫 번째 그룹 만 유지하십시오.

⌽ -뒤집어 완성합니다.

o←- 할당 o,

~o -1과 0을 바꾸고

⍵/⍨ -입력을 필터링하고

⍎¨ -결과를 각 숫자의 목록으로 바꾸십시오.

• ⌈/-최대 값을 얻습니다. (그건)

⍵/⍨oo-unalt (ered)로 입력을 필터링하고

≢ -길이는 B입니다.

÷ -하나를이 결과로 나눕니다.

* 그 힘을 A에게 가져 가라

⊢≡⌊ - 정수?

05AB1E , 11 바이트

γRćgUZXzm.ï

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

설명

γRćgUZXzm.ï ~ 전체 프로그램.

γ ~ 자릿수로 나눕니다.
 R ~ 역전.
  ć ~ a [1 :], a [0]을 스택으로 밉니다.
   g ~ 길이 (a [0]).
    U ~ 이것을 정수 변수 X에 할당합니다.
     ZX ~ 터지지 않고 최대 값을 얻고 X를 누릅니다.
       ZM ~ 1 / B .
         .ï ~ 정수입니까?

Emigna는 1 바이트를 절약했습니다.

A 가 B 의 거듭 제곱으로 양의 정수 N 이면 N = A ^{1 / B} 이므로 정수 여야 한다는 사실에 의존 합니다.

하스켈 , 85 75 72 71 바이트

편집 : 문자열 대신 숫자 목록을 가져 와서 -10 바이트. 이것이 허용된다는 것을 지적한 WhatToDo 에게 감사드립니다 . Clean의 Ourous 솔루션 덕분에 -3 바이트 . user28667 덕분에 -1 바이트 .

f s|(b,a)<-span(==last s)$reverse s=or[n^length b==maximum a|n<-[1..9]]

온라인으로 사용해보십시오! 숫자 목록으로 입력을받습니다. 사용법 예 : f [4,1,8,0,2,0,0,0]yields True.

설명:

입력이 주어지면 s=[4,1,8,0,2,0,0,0], 우리 reverse는리스트를 만들고 주요 요소들을 span(==last s)다음 과 같이 분리합니다 ([0,0,0],[2,0,8,1,4]). (b,a)수율에 패턴 일치 b=[0,0,0]및 a=[2,0,8,1,4].

리스트 이해 or[n^length b==maximum a|n<-[1..a]]검사 정수 여부 n의 범위 1에 9만족는 n^length b==maximum a, 즉이다 n^3=8.

하스켈 , 104 89 바이트

@Laikoni는 더 짧은 해결책을 찾았 지만 이것이 내가 할 수있는 최선입니다. 숫자 목록도 입력 할 수 있음을 알려 주신 @Laikoni에게 감사드립니다.

import Data.List
(g.length.last<*>maximum.concat.init).group
g b a=any(==a)$(^b)<$>[1..a]

설명:

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

R , 80 바이트

function(x)any((0:(m=max((d=rle(rev(utf8ToInt(c(x,''))-48)))$v[-1])))^d$l[1]==m)

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

utf8ToInt - 48숫자를 숫자로 나누는 데 사용 합니다. 문자열로 변환 할 때 경고가 발생합니다.

rle을 사용하면 후행 자릿수와 첫 번째 자릿수의 최대 값을 얻습니다. 후행 카운트의 거듭 제곱에 대한 0에서 최대 값 사이의 값이 최대 값과 같으면 true를 반환합니다.

골프 기회가 더 있다고 생각하지만 내일까지 기다릴 수 있습니다.

젤리 , 11 바이트

ŒgµṪL9*€fṀL

숫자 목록으로 입력을받습니다.

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

작동 원리

ŒgµṪL9*€fṀL  Main link. Argument: D (digit array)

Œg           Group runs of digits, yielding a run array R.
  µ          Begin a new chain with argument D.
   Ṫ         Tail; remove and yield the last element of D.
    L        Take the length. Let's call it b.
     9*€     Compute [1**b, ..., 9**b].
         Ṁ   Take the maximum run in R, yileding [a, ..., a].
        f    Filter, yielding either [a] (if a = n**b for some n) or [].
          L  Take the length. 

R, 66 바이트

이 답변은 MickyT 와 NofP 의 답변 의 메들리이며 요청에 따라 다음과 같습니다.

function(x,R=rle(rev(utf8ToInt(x)-48)))!max(R$v[-1])^(1/R$l[1])%%1

x를 문자열로 사용합니다.

> f=function(x,R=rle(rev(utf8ToInt(x)-48)))!max(R$v[-1])^(1/R$l[1])%%1
> f("41802000")
[1] TRUE
> f("100")
[1] TRUE
> f("123456788")
[1] FALSE
> f("451111111")
[1] FALSE
> f("234543454545444")
[1] FALSE
> f("12")
[1] TRUE
> f("41902000")
[1] FALSE

자바 스크립트 (ES7), 66 바이트

문자열 또는 문자 배열로 입력을받습니다. 부울을 반환합니다.

f=([c,...s],m)=>s.some(n=>n-c)?f(s,c<m?m:c):!(m**(1/-~s.length)%1)

테스트 사례

f=([c,...s],m)=>s.some(n=>n-c)?f(s,c<m?m:c):!(m**(1/-~s.length)%1)

console.log(f(       '41802000')) // 1
console.log(f(            '100')) // 1
console.log(f(      '123456788')) // 0
console.log(f(      '451111111')) // 0
console.log(f('234543454545444')) // 0
console.log(f(             '12')) // 1

면도 , (130) 128 (118) 93 바이트

import StdEnv
@l#(b,a)=span((==)(last l))(reverse l)
=or[n^length b==last(sort a)\\n<-[0..9]]

@정수 자릿수 목록을 사용 하여 함수를 정의합니다 .

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

파이썬 2 , 95 78 바이트

• Rod 덕분에 17 바이트를 절약했습니다 .

def f(s,i=~0):
	while s[i]==s[~0]:i-=1
	return int(max(s[:-~i]))**(1./~i)%1==0

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

아르 자형 , 93 바이트

function(x){n=nchar(x)
d=x%/%10^(n:1-1)%%10
i=max(which(d!=d[n]))
max(d[1:i])^(1/(n-i))%%1>0}

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

이 코드는 정수를 입력으로 사용하고 숫자가 만족 스러우면 FALSE를, 그렇지 않으면 TRUE를 반환합니다.

파이썬 3 , 88 85 바이트

def f(n):p=n.rstrip(n[-1]);a=int(max(p));b=len(n)-len(p);return round(a**(1/b))**b==a

언 골프 드 :

def is_pleasing_number( n ):
    prefix = n.rstrip(n[-1])
    a = int(max(prefix))
    b = len(n) - len(prefix)
    return round(a ** (1 / b)) ** b == a

• 입력 인수는 숫자 문자열이어야합니다.
• 출력은 True또는 False입니다.
• 유사 아직 독립적으로 개발하는 Halvard의 대답 하지만까지 라운딩 에러를 겪지 않는 방식으로 부동 소수점 연산 용도 a ** (1 / b)적어도 0.5가 오프 ^B 2 이상의 값이 필요 √a ⁵³ 점 기수 가수 부동 (또는 어떤 파이썬이 사용하는 길이, 참조 sys.float_info).
• 2에서 36 사이의 임의의 숫자로 작동하도록 간단하게 수정할 수 있습니다.

C (GCC) , 144 (126) 117 바이트

• Dennis 덕분에 18 바이트가 절약되었습니다 .
• ceilingcat 덕분에 9 바이트를 절약했습니다 .

j,k,m;f(char*N){N+=j=strlen(N);k=~j;for(j=-1;m=N[j--]==N[j];);for(;k++<j;)m=fmax(N[k],m);j=!fmod(pow(m-48,1./~j),1);}

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

루비 , 64 바이트

->a{!([a[/(\d)\1*$/].size,$`.chars.max]*?x!~/x1$|^2x[49]|^3x8/)}

문자열로 입력하고 다음과 같은 경우 true를 리턴합니다.

• B == 1 (A를 확인할 필요 없음)
• A == 4 및 B == 2
• A == 9 및 B == 2
• A == 8 및 B == 3

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

펄 6 , 55 바이트

{m/(\d+?)((\d)$0*)$/;so any(^10)**$1.comb==$0.comb.max}

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

입력이 양의 정수인 경우에만 성공할 수있는 초기 정규 표현식을 평가 한 후 $0숫자의 초기 부분을 포함합니다.$1 후행 반복 숫자를 포함합니다.

comb문자열에 적용 인수가없는 방법은, 문자의 목록을 반환 목록의 길이와 숫자 상황에 맞는 평가됩니다에있다. 그래서 $0.comb.max접두사의 숫자의 가장 큰이며, $1.comb접미사의 길이입니다.

그런 다음 any(^10)접미사 길이의 거듭 제곱으로 올릴 때 접두사에서 가장 큰 자릿수와 같은지 여부를 확인합니다 (즉, 0-9의 숫자의 정션). so힘 그렇지 않으면 단지 벌금 truthy 값으로 그 자체가 될 것입니다 결과 접합의 논리 비교,하지만 단지 두 가지 값에 대한 도전 호출을 반환합니다.

코 틀린 , 106 바이트

fun String.p()=split(Regex("(?=(.)\\1*$)")).let{Math.pow((it[0].max()?:'0')-'0'+.0,1.0/(it.size-1))}%1==.0

출력 : 참 / 거짓

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

추가 ++ , 21 바이트

L,BGubLV@¦+bMG1$/^1%!

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

3 개월 반이 지났는데, 나는 누군가를 닌자가 아니길 바랍니다.

C # (. NET 코어) 132 바이트

n=>{int A=0,B=1,s=1,i=n.Length-1;for(;i-->0;)if(n[i]==n[i+1]&s>0)B++;else{A=n[i]>A?n[i]:A;s=0;}return System.Math.Pow(A,1d/B)%1==0;}

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

감사의 말

@KevinCruijssen 덕분에 -12 바이트

골프

n=>{
    int A=0, // maximum digit
        B=1, // count of trailing identical numbers
        s=1, // 1 if dealing with trailing numbers, 0 otherwise
        i=n.Length-1;

    for(; i-- > 0;)
        if(n[i] == n[i+1] & s > 0)
            B++;
        else
        {
            A = n[i] > A? n[i] : A;
            s = 0;
        }

    return Math.Pow(A, 1d/B) % 1 == 0;
}

apt , 26 18 바이트

ó¶
o l
ñ o n qV v1

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

입력을 문자열로 받아서 1즐거운 숫자를 반환 합니다.0 반환합니다.

간단한 설명 :

ó¶

첫 번째 입력을 가져 와서 (x,y) => x===ytrue 값으로 나눕니다 . 예를 들어, '41802000'에 ['4','1','8','0','2','000'].

o l

첫 번째 단계에서 배열을 가져 와서 마지막 요소를 제거하고 길이를 가져 와서 B를 산출하십시오 .

ñ o n qV v1

나머지 배열에서 가장 큰 원소를 찾아 A를 산출 하고 거듭 제곱 1/B한 다음 결과를 1로 나눌 수 있으면 반환합니다.

Japt를 처음 사용하면 모든 권장 사항에 매우 개방적입니다. ETHproductions
덕분에 8 바이트가 줄었습니다 .

클로저, 168 바이트

(fn[x](let[y(reverse(vec x))z(count(take-while #(= %(first y))y))a(apply max(map #(-(int %)48)(drop z y)))b(Math/pow a(/ 1 z))](<(Math/abs(- b(Math/round b)))0.00001)))

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

숯 , 33 바이트

≔ＥＳιθ⊞υ⊟θＷ⁼§υ⁰§θ±¹⊞υ⊟θ¬﹪ＸＩ⌈θ∕¹Ｌυ¹

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. -만족스러운 숫자를 출력 합니다. 설명:

≔ＥＳιθ

입력 q을 문자로 분할하십시오 .

⊞υ⊟θ

에서 마지막 문자를 제거 q하고 그것으로 밀어 u(빈리스트에 미리 정의).

Ｗ⁼§υ⁰§θ±¹⊞υ⊟θ

의 마지막 문자 q가의 첫 번째 문자 인 동안 반복해서 팝업 및 푸시합니다 u.

¬﹪ＸＩ⌈θ∕¹Ｌυ¹

의 최대 자릿수를 가져 와서 q길이의 역수의 거듭 제곱으로 올린 u다음 결과가 정수인지 확인합니다.

파이썬 2 , 91 85 바이트

s=`input()`;d=0
p=s.rstrip(s[-1])
exec"`d**(len(s)-len(p))`==max(p)>exit(1);d+=1;"*10

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

펄 5 , 73 + 1 ( -p) = 74 바이트

s/(.)\1*$//;$/=length$&;$_=(sort/./g)[-1];$q=$"++**$/while$q<$a;$_=$q==$a

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

자바 8, 125 바이트

a->{int A=0,B=1,f=1,i=a.length-1;for(;i-->0;)if(a[i]==a[i+1]&f>0)B++;else{A=a[i]>A?a[i]:A;f=0;}return Math.pow(A,1d/B)%1==0;}

@ Ayb4btu 포트 C # .NET 답변 입니다.

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

설명:

a->{                       // Method with digit-array parameter and boolean return-type
  int A=0,                 //  Maximum digit `A` as specified in the challenge description
      B=1,                 //  `B` as specified in the challenge description
      f=1,                 //  Flag-integer, starting at 1
      i=a.length-1;        //  Index integer `i`
  for(;i-->0;)             //  Loop `i` backwards over the digits (excluding the last)
    if(a[i]==a[i+1]        //   If the current and next digits are the same,
       &f>0)               //   and the flag is still 1
      B++;                 //    Increase `B` by 1
    else{                  //   Else:
      A=a[i]>A?            //    If the current digit is larger than `A` 
         a[i]              //     Replace `A` with the current digit
        :                  //    Else:
         A;                //     Leave `A` the same
      f=0;}                //    Set the flag-integer to 0
  return Math.pow(A,1d/B)  //  Return if `A` ^ (1/`B`)
    %1==0;}                //  is an exact integer

핍 , 32 22 21 바이트

'.N(#a-#Ya<|a@v)RTMXy

용도 1에 대한 falsey 및 0대한 truthy 바이트를 저장. 온라인으로 사용해보십시오!

Pyth, 29 바이트

JezWqezJ=Pz=hZ)K@sh.MsZzZqKsK

테스트 스위트

Z=0
z=input()
J=z[-1]
while z[-1]==J:
    z=z[:-1]
    Z+=1
K=max(map(int,z))**(1/Z)
print(K==int(K))