Một số dễ chịu (theo định nghĩa này) là một số có thể được chuyển qua quy trình sau (hãy sử dụng 41802000 làm ví dụ):

• Phân tách các số giống hệt nhau ( 41802000 => [41802, 000])
• Sắp xếp nửa đầu của các chữ số và lấy tối đa ([41802, 000] => [8, 000] )
• Lấy chiều dài của phần tử cuối cùng. Gọi các phần tử kết quả A và B ([8, 000] => A=8, B=3 )
• N ^B = A có phải là số nguyên Nkhông? ( Truetrong ví dụ này; 2 ³ = 8)

Nếu kết quả đầu vào trong Truequá trình sau đây, nó được coi là làm hài lòng.

Nhiệm vụ của bạn là lấy một số nguyên xvà xuất ra cho dù đó xlà một số dễ chịu. Bạn có thể xuất bất kỳ hai giá trị riêng biệt nào cho sự thật và chim ưng, nhưng vui lòng cho biết những gì bạn đang sử dụng trong câu trả lời của mình. xđược đảm bảo có ít nhất hai chữ số riêng biệt (ví dụ: 111đầu vào không hợp lệ). Như với hầu hết các thử thách, bạn có thể lấy xmột chuỗi hoặc một danh sách các chữ số.

Đây là một mã golf để mã ngắn nhất tính bằng byte thắng.

Các trường hợp thử nghiệm

          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=/⌽⍵}

Hãy thử trực tuyến!

Làm sao?

Gần như một bài thơ.

⌽⍵ - đảo ngược đầu vào một lần,

1,2=/ - có được danh sách khác biệt.

⌊\ - chỉ giữ lại nhóm đầu tiên

⌽ - và lật nó để hoàn thành.

o←- gán cho o,

~o - chuyển đổi những cái và số không,

⍵/⍨ - lọc đầu vào với nó,

⍎¨ - biến kết quả thành danh sách của mỗi chữ số,

• ⌈/- và nhận được tối đa. (đó là một)

⍵/⍨o- lọc đầu vào với ounalt (ered),

≢ - và lấy chiều dài, đó sẽ là B.

÷ - được chia cho kết quả này,

* - và đưa A đến quyền lực đó.

⊢≡⌊ - số nguyên?

05AB1E , 11 byte

γRćgUZXzm.ï

Hãy thử trực tuyến!

Giải trình

RćgUZXzm.ï ~ Chương trình đầy đủ.

~ Chia thành các chữ số.
 R ~ Đảo ngược.
  ć ~ Đẩy a [1:], a [0] vào ngăn xếp.
   g ~ Chiều dài (của một [0]).
    U ~ Gán điều này cho biến số nguyên X.
     ZX ~ Nhận tối đa, không bật và đẩy X.
       ZM ~ A 1 / B .
         .ï ~ Có phải là số nguyên không?

Emigna đã lưu 1 byte.

Dựa vào thực tế là nếu A là số nguyên dương N được nâng lên lũy thừa của B , thì N = A ^{1 / B} , do đó nó phải là số nguyên.

Haskell , 85 75 72 71 byte

Chỉnh sửa : -10 byte bằng cách lấy danh sách các chữ số thay vì chuỗi. Cảm ơn WhatToDo đã chỉ ra rằng điều này được cho phép. -3 byte nhờ giải pháp của chúng tôi trong Clean . -1 byte nhờ người dùng28667 .

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

Hãy thử trực tuyến! Lấy đầu vào là một danh sách các chữ số. Ví dụ sử dụng: f [4,1,8,0,2,0,0,0]sản lượng True.

Giải trình:

Đưa ra một đầu vào s=[4,1,8,0,2,0,0,0], chúng tôi reverseliệt kê danh sách và phân tách các yếu tố hàng đầu với span(==last s): ([0,0,0],[2,0,8,1,4]). Các mô hình phù hợp trên (b,a)sản lượng b=[0,0,0]và a=[2,0,8,1,4].

Việc hiểu danh sách or[n^length b==maximum a|n<-[1..a]]kiểm tra xem có bất kỳ số nguyên nào ntrong phạm vi từ 1đến 9thỏa mãn hay không n^length b==maximum a, đó là n^3=8.

Haskell , 104 89 byte

@Laikoni tìm thấy một giải pháp ngắn hơn , nhưng đây là cách tốt nhất tôi có thể làm. Cảm ơn @Laikoni đã cho tôi biết rằng chúng tôi cũng có thể chấp nhận danh sách các chữ số làm đầu vào.

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

Giải trình:

Hãy thử trực tuyến!

R , 80 byte

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

Hãy thử trực tuyến!

Sử dụng utf8ToInt - 48để chia số thành chữ số. Điều này đưa ra một cảnh báo từ chuyển đổi thành một chuỗi.

Sử dụng rle có được số lượng các chữ số ở cuối và giá trị tối đa của các chữ số đầu tiên. Trả về true nếu bất kỳ giá trị nào trong phạm vi từ 0 đến tối đa với sức mạnh của số đếm bằng với giá trị tối đa.

Tôi nghĩ rằng có nhiều cơ hội chơi gôn hơn, nhưng điều đó có thể đợi đến ngày mai.

Thạch , 11 byte

ŒgµṪL9*€fṀL

Lấy đầu vào là một danh sách các chữ số.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

Œ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

Câu trả lời này ít nhiều là một hỗn hợp các câu trả lời của MickyT và NofP , và theo yêu cầu của họ, đây là:

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

Nó lấy x là một chuỗi.

> 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

Lấy đầu vào là một chuỗi hoặc một mảng các ký tự. Trả về một boolean.

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

Các trường hợp thử nghiệm

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

Sạch , 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]]

Xác định hàm @, lấy danh sách các chữ số nguyên.

Hãy thử trực tuyến!

Python 2 , 95 78 byte

• Đã lưu mười bảy byte nhờ Rod .

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

Hãy thử trực tuyến!

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}

Hãy thử trực tuyến!

Mã này lấy một số nguyên làm đầu vào và trả về SAI nếu số đó được làm hài lòng và TRUE nếu không.

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

Ung dung:

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

• Đối số đầu vào dự kiến ​​là một chuỗi chữ số
• Kết quả là một trong hai Truehoặc False.
• Tương tự như được phát triển độc lập với câu trả lời của Halvard nhưng sử dụng số học dấu phẩy động theo cách không bị lỗi làm tròn cho đến khi a ** (1 / b)tắt ít nhất 0,5 từ ^b √a, yêu cầu giá trị trên 2 ⁵³ (hoặc bất kỳ giá trị dấu phẩy động và mantissa nào chiều dài Python xảy ra để sử dụng, xem sys.float_info).
• Có thể được sửa đổi một cách tầm thường để vẫn hoạt động với các cơ sở số tùy ý trong khoảng từ 2 đến 36.

C (gcc) , 144 126 117 byte

• Đã lưu mười tám byte nhờ Dennis .
• Đã lưu chín byte nhờ trần .

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

Hãy thử trực tuyến!

Ruby , 64 byte

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

Nhập dưới dạng chuỗi, trả về true nếu:

• B == 1 (không cần kiểm tra A)
• A == 4 và B == 2
• A == 9 và B == 2
• A == 8 và B == 3

Hãy thử trực tuyến!

Perl 6 , 55 byte

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

Hãy thử trực tuyến!

Sau khi đánh giá regex ban đầu - chỉ có thể thành công nếu đầu vào là số nguyên dương-- $0chứa phần đầu của số và $1chứa các chữ số lặp lại theo sau.

Các combphương pháp không có đối số, áp dụng cho một chuỗi, trả về một danh sách các nhân vật, mà trong đánh giá lại bối cảnh số với độ dài của danh sách. Vì thế$0.comb.max là số lớn nhất trong các chữ số trong tiền tố và$1.comb là độ dài của hậu tố.

Sau đó, chúng tôi kiểm tra xem any(^10)(tức là, hoặc điểm nối của các số từ 0-9), khi được nâng lên sức mạnh của độ dài của hậu tố, có bằng chữ số lớn nhất trong tiền tố hay không. Các solực lượng đánh giá boolean của ngã ba kết quả, nếu không thì nó sẽ tự nó tốt như một giá trị trung thực, nhưng thách thức đòi hỏi chỉ có hai giá trị riêng biệt được trả về.

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

Đầu ra: đúng / sai

Hãy thử trực tuyến!

Thêm ++ , 21 byte

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

Hãy thử trực tuyến!

Đã 3 tháng rưỡi, tôi hy vọng tôi không phải là bất cứ ai.

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

Hãy thử trực tuyến!

Lời cảm ơn

-12 byte nhờ @KevinCruijssen

Khói

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

Hãy thử trực tuyến!

Lấy đầu vào dưới dạng chuỗi, trả về 1 cho các số dễ chịu,0 nếu không.

Giải thích ngắn gọn:

ó¶

Lấy đầu vào đầu tiên và chia nó theo các giá trị (x,y) => x===ylà đúng. Ví dụ '41802000'để ['4','1','8','0','2','000'].

o l

Lấy mảng từ bước đầu tiên, loại bỏ các yếu tố cuối cùng và có được chiều dài của nó, năng suất B .

ñ o n qV v1

Tìm phần tử lớn nhất trong mảng còn lại, thu được A , đưa nó tới lũy thừa 1/Bvà sau đó trả về nếu kết quả chia hết cho một.

Lần đầu tiên làm việc với Japt, rất cởi mở với bất kỳ khuyến nghị nào.
Cạo sạch 8 byte nhờ vào ETHproductions .

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

Hãy thử trực tuyến!

Than , 33 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Xuất ra một số -cho vừa lòng. Giải trình:

≔ＥＳιθ

Chia đầu qvào thành các ký tự.

⊞υ⊟θ

Xóa ký tự cuối cùng khỏi qvà đẩy nó tới u(được xác định trước vào một danh sách trống).

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

Lặp lại bật và đẩy trong khi ký tự cuối cùng qlà ký tự đầu tiên của u.

¬﹪ＸＩ⌈θ∕¹Ｌυ¹

Lấy chữ số tối đa của qvà nâng nó lên lũy thừa của độ dài của độ dài u, sau đó kiểm tra xem kết quả có phải là số nguyên hay không.

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

Hãy thử trực tuyến!

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

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

Hãy thử trực tuyến!

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

Cổng câu trả lời C # .NET của @ Ayb4btu .

Hãy thử trực tuyến.

Giải trình:

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

Sử dụng 1cho falsey và 0cho sự thật , tiết kiệm một byte. Hãy thử trực tuyến!

Bình thường, 29 byte

JezWqezJ=Pz=hZ)K@sh.MsZzZqKsK

Bộ kiểm tra

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