Angka yang menyenangkan (menurut definisi ini) adalah angka yang dapat dilewati melalui proses berikut (mari kita gunakan 41802000sebagai contoh):

• Pisahkan angka identik yang tertinggal ( 41802000 => [41802, 000])
• Sortir bagian pertama dari digit dan ambil maksimum ( [41802, 000] => [8, 000])
• Ambil panjang elemen terakhir. Panggil elemen yang dihasilkan A dan B ( [8, 000] => A=8, B=3)
• Apakah N ^B = A untuk bilangan bulat apa pun N? ( Truedalam contoh ini; 2 ³ = 8)

Jika input dihasilkan Truedari proses berikut ini, itu dianggap menyenangkan.

Tugas Anda adalah mengambil bilangan bulat x, dan menampilkan apakah xangka yang menyenangkan. Anda dapat menampilkan dua nilai berbeda untuk truey and falsey, tetapi sebutkan apa yang Anda gunakan dalam jawaban Anda. xdijamin memiliki setidaknya dua digit berbeda (mis. 111input tidak valid). Seperti kebanyakan tantangan, Anda dapat menggunakan xstring, atau daftar digit.

Ini adalah kode-golf sehingga kode terpendek dalam byte menang.

Uji kasus

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

APL (Dyalog) , 36 byte

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

Cobalah online!

Bagaimana?

Hampir sebuah puisi.

⌽⍵ - balikkan input sekali,

1,2=/ - dapatkan daftar perbedaan.

⌊\ - simpan hanya grup yang pertama,

⌽ - dan balikkan untuk menyelesaikan.

o←- ditugaskan ke o,

~o - beralih satu dan nol,

⍵/⍨ - saring input dengan itu,

⍎¨ - ubah hasilnya menjadi daftar setiap digit,

• ⌈/- dan dapatkan yang maksimal. (itu A)

⍵/⍨o- filter input dengan ounalt (ered),

≢ - dan mengambil panjangnya, itu akan menjadi B.

÷ - dapatkan satu dibagi dengan hasil ini,

* - dan bawa A ke kekuatanmu itu.

⊢≡⌊ - bilangan bulat?

05AB1E , 11 byte

γRćgUZXzm.ï

Cobalah online!

Penjelasan

γRćgUZXzm.ï ~ Program lengkap.

γ ~ Membagi menjadi beberapa digit.
 R ~ Mundur.
  ć ~ Dorong [1:], a [0] ke tumpukan.
   g ~ Panjang (dari [0]).
    U ~ Tetapkan ini ke variabel integer X.
     ZX ~ Dapatkan yang maksimal, tanpa muncul, dan tekan X.
       zm ~ A 1 / B .
         .ï ~ Apakah bilangan bulat?

Emigna menyimpan 1 byte.

Bergantung pada fakta bahwa jika A adalah bilangan bulat positif N dinaikkan ke kekuatan B , maka N = A ^{1 / B} , maka itu harus bilangan bulat.

Haskell , 85 75 72 71 byte

Edit : -10 byte dengan mengambil daftar digit alih-alih string. Terima kasih kepada WhatToDo untuk menunjukkan bahwa ini dibolehkan. -3 byte berkat solusi Ourous 'di Clean . -1 byte terima kasih kepada pengguna28667 .

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

Cobalah online! Mengambil input sebagai daftar digit. Contoh penggunaan: f [4,1,8,0,2,0,0,0]hasil True.

Penjelasan:

Diberi masukan s=[4,1,8,0,2,0,0,0], kami reversedaftar dan memisahkan unsur-unsur terkemuka dengan span(==last s): ([0,0,0],[2,0,8,1,4]). Pola yang cocok pada (b,a)hasil b=[0,0,0]dan a=[2,0,8,1,4].

Daftar pemahaman or[n^length b==maximum a|n<-[1..a]]memeriksa apakah setiap bilangan bulat ndalam kisaran 1untuk 9memenuhi n^length b==maximum a, yaitu n^3=8.

Haskell , 104 89 bytes

@Laikoni menemukan solusi yang lebih pendek , tetapi ini adalah yang terbaik yang bisa saya lakukan. Terima kasih @Laikoni karena memberi tahu saya bahwa kami juga dapat menerima daftar digit sebagai input.

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

Penjelasan:

Cobalah online!

R , 80 byte

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

Cobalah online!

Penggunaan utf8ToInt - 48untuk membagi angka menjadi angka. Ini melempar peringatan dari konversi ke string.

Menggunakan rle, hitung jumlah trailing digit dan nilai maksimum digit pertama. Mengembalikan nilai true jika salah satu dari kisaran 0 hingga nilai maksimal ke pangkat trailing count sama dengan nilai maks.

Saya pikir ada peluang golf lebih lanjut, tetapi itu bisa menunggu sampai besok.

Jelly , 11 byte

ŒgµṪL9*€fṀL

Mengambil input sebagai daftar digit.

Cobalah online!

Bagaimana itu bekerja

Œ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 byte

Jawaban ini kurang lebih merupakan campuran jawaban MickyT dan NofP , dan atas permintaan mereka, ini dia:

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

Dibutuhkan x sebagai string.

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

Mengambil input sebagai string atau array karakter. Mengembalikan boolean.

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

Uji kasus

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

Bersih , 130 128 118 93 byte

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

Menentukan fungsi @, mengambil daftar angka integer.

Cobalah online!

Python 2 , 95 78 byte

• Disimpan tujuh belas byte berkat Rod .

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

Cobalah online!

R , 93 byte

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}

Cobalah online!

Kode mengambil integer sebagai input dan mengembalikan FALSE jika nomornya menyenangkan, dan BENAR sebaliknya.

Python 3 , 88 85 byte

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

Tidak Disatukan:

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

• Argumen input diharapkan berupa string digit
• Outputnya adalah Trueatau False.
• Mirip dengan belum dikembangkan secara independen dari jawaban Halvard ini tetapi menggunakan aritmatika floating point dengan cara yang tidak menderita dari kesalahan pembulatan sampai a ** (1 / b)mati oleh sedikitnya 0,5 dari ^b √a yang membutuhkan nilai di atas 2 ⁵³ (atau apa pun floating point radix dan mantissa panjang Python yang akan digunakan, lihat sys.float_info).
• Dapat dimodifikasi secara sepele untuk tetap bekerja dengan basis nomor acak antara 2 dan 36.

C (gcc) , 144 126 117 byte

• Disimpan delapan belas byte berkat Dennis .
• Disimpan sembilan byte berkat ceilingcat .

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

Cobalah online!

Ruby , 64 byte

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

Input sebagai string, mengembalikan true jika:

• B == 1 (tidak perlu memeriksa A)
• A == 4 dan B == 2
• A == 9 dan B == 2
• A == 8 dan B == 3

Cobalah online!

Perl 6 , 55 byte

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

Cobalah online!

Setelah evaluasi regex awal - yang hanya dapat berhasil jika inputnya adalah bilangan bulat positif - $0berisi bagian awal angka, dan $1berisi trailing digit berulang.

The combmetode tanpa argumen, diterapkan ke string, mengembalikan daftar karakter, yang dalam mengevaluasi konteks numerik dengan panjang daftar. Jadi $0.comb.maxadalah digit terbesar dalam awalan, dan $1.combmerupakan panjang akhiran.

Kami kemudian memeriksa apakah any(^10)(yaitu, atau-persimpangan angka dari 0-9), ketika dinaikkan ke kekuatan panjang akhiran, sama dengan digit terbesar dalam awalan. The sokekuatan evaluasi boolean dari persimpangan yang dihasilkan, yang tidak akan baik-baik saja sendiri sebagai nilai truthy, tetapi panggilan tantangan untuk hanya dua nilai yang berbeda untuk dikembalikan.

Kotlin , 106 byte

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

Output: benar / salah

Cobalah online!

Tambahkan ++ , 21 byte

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

Cobalah online!

Sudah 3 setengah bulan, saya harap saya tidak ninja siapa pun.

C # (.NET Core) , 132 byte

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;}

Cobalah online!

Ucapan Terima Kasih

-12 byte terima kasih kepada @KevinCruijssen

DeGolfed

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;
}

Japt , 26 18 byte

ó¶
o l
ñ o n qV v1

Cobalah online!

Mengambil input sebagai string, mengembalikan 1untuk angka menyenangkan, 0jika tidak.

Penjelasan singkat:

ó¶

Ambil input pertama dan bagi dengan nilai (x,y) => x===yyang benar. Misalnya '41802000'untuk ['4','1','8','0','2','000'].

o l

Ambil array dari langkah pertama, menghapus elemen terakhir dan panjangnya, menghasilkan B .

ñ o n qV v1

Temukan elemen terbesar di array yang tersisa, menghasilkan A , bawa ke kekuasaan 1/Bdan kemudian kembali jika hasilnya dapat dibagi oleh satu.

Pertama kali bekerja dengan Japt, sangat terbuka untuk semua rekomendasi.
Dicukur 8 byte berkat produk ETH .

Clojure, 168 byte

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

Cobalah online!

Arang , 33 byte

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

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Output a -untuk angka yang menyenangkan. Penjelasan:

≔ＥＳιθ

Membagi input qmenjadi karakter.

⊞υ⊟θ

Hapus karakter terakhir dari qdan dorong ke u(sudah ditentukan ke daftar kosong).

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

Ulangi dan tekan berulang kali saat karakter terakhir q adalah karakter pertama u.

¬﹪ＸＩ⌈θ∕¹Ｌυ¹

Ambil digit maksimum qdan naikkan ke kekuatan timbal balik dari panjang u, lalu periksa apakah hasilnya bilangan bulat.

Python 2 , 91 85 byte

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

Cobalah online!

Perl 5 , 73 +1 ( -p) = 74 byte

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

Cobalah online!

Java 8, 125 byte

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;}

Pelabuhan @ Ayb4btu 's C # .NET jawaban .

Cobalah online.

Penjelasan:

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

Pip , 32 22 21 byte

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

Penggunaan 1untuk falsey dan 0untuk kebenaran , menghemat satu byte. Cobalah online!

Pyth, 29 byte

JezWqezJ=Pz=hZ)K@sh.MsZzZqKsK

Suite uji

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