満足のいく番号（この定義による）は、次のプロセスで渡すことができる番号です（41802000例として使用しましょう）。

• 末尾の同一番号を区切ります（41802000 => [41802, 000]）
• 数字の前半をソートし、最大値（[41802, 000] => [8, 000]）
• 最後の要素の長さを取得します。結果の要素AおよびB（[8, 000] => A=8, B=3）を呼び出します
• N ^B = Aは任意の整数Nですか？（Trueこの例では、2 ³ = 8）

入力Trueが次のプロセスからの結果である場合、それは楽しいと見なされます。

あなたの仕事は、整数を取り、心地よい数であるxかどうかを出力することxです。truthyとfalseyの2つの異なる値を出力できますが、回答で使用しているものを明記してください。x少なくとも2桁の異なる数字を持つことが保証されています（たとえば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回反転します。

1,2=/ -差分リストを取得します。

⌊\ -最初のグループのみを保持し、

⌽ -裏返して完了します。

o←-に割り当てo、

~o -1と0を切り替え、

⍵/⍨ -入力をフィルタリングします。

⍎¨ -結果を各桁のリストに変換し、

• ⌈/-そして最大値を取得します。（それはAです）

⍵/⍨oo-unalt（ered）で入力をフィルタリングし、

≢ -そして、長さを取る、それはBになります

÷ -この結果で1つを割ります。

* -そして、その力にAを取る。

⊢≡⌊ -整数？

05AB1E、11バイト

γRćgUZXzm.ï

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

説明

γRćgUZXzm.ï〜完全なプログラム。

γ〜一連の数字に分割します。
 R〜リバース。
  ć〜a [1：]、a [0]をスタックにプッシュします。
   g〜（a [0]の）長さ。
    U〜これを整数変数Xに割り当てます。
     ZX〜ポップせずに最大値を取得し、Xを押します。
       ZM〜A 1 / B。
         .ï〜整数ですか？

Emignaは1バイトを節約しました。

AがBの累乗の正の整数Nである場合、N = A ^{1 / B}であるため、整数でなければなりません。

Haskell、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)yields 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。

Haskell、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

JavaScript（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

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

R、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を返します。

Pythonの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 ⁵³（または任意の浮動小数点基数と仮数Pythonが使用する長さです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);}

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

Ruby、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

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

Perl 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値として独自になりその結果、接合のブール評価が、ちょうど二つの異なる値に対する挑戦呼び出しが返されます。

Kotlin、106バイト

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

出力：true / false

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

Add ++、21バイト

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

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

3か月半が経ちましたが、私は誰も忍者じゃないことを願っています。

C＃（.NET Core）、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;
}

ジャプト、 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バイト削られました。

Clojure、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

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

Perl 5、73 + 1（-p）= 74バイト

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

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

Java 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 bytes

JezWqezJ=Pz=hZ)K@sh.MsZzZqKsK

Test suite

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