Приятное число (согласно этому определению) - это число, которое можно передать через следующий процесс (давайте использовать 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является ли число приятным. Вы можете вывести любые два разных значения для truey и falsey, но, пожалуйста, укажите, что вы используете в своем ответе. 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 - переключать нули и нули,

⍵/⍨ - фильтруйте вход с ним,

⍎¨ - превратить результат в список каждой цифры,

• ⌈/- и получите максимум. (это)

⍵/⍨o- отфильтруйте вход с помощью ounalt (ered),

≢ - и возьми длину, это было бы B.

÷ - разделить на один результат,

* - и возьми себе эту власть.

⊢≡⌊ - целое число?

05AB1E , 11 байт

γRćgUZXzm.ï

Попробуйте онлайн!

объяснение

γRćgUZXzm.ï ~ Полная программа.

γ ~ Разделить на серии цифр.
 Реверс.
  ~ Вставьте [1:], [0] в стек.
   g ~ длина (из [0]).
    U ~ Присвойте это целочисленной переменной X.
     ZX ~ Получите максимум, не хлопая, и нажмите X.
       ZM ~ A 1 / В .
         .i ~ Это целое число?

Эминья спасла 1 байт.

Полагается на тот факт, что если A является положительным целым числом N, возведенным в степень B , то N = A ^{1 / B} , следовательно, оно должно быть целым числом.

Haskell , 85 75 72 71 байт

Изменить : -10 байт, взяв список цифр вместо строки. Спасибо WhatToDo за указание, что это разрешено. -3 байта благодаря решению Ourous в Clean . -1 байт благодаря пользователю 28667 .

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]доходность 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.

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 получите количество завершающих цифр и максимальное значение первых цифр. Верните true, если любое значение из диапазона от 0 до максимального значения до степени конечного счетчика равно максимальному значению.

Я думаю, что есть еще возможности для игры в гольф, но это может подождать до завтра.

Желе , 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

Он принимает х в виде строки.

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

Определяет функцию @, беря список целых цифр.

Попробуйте онлайн!

Python 2 , 95 78 байт

• Сэкономили семнадцать байтов благодаря Роду .

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

Ungolfed:

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 .
• Подобно тому, что было разработано независимо от ответа Халварда, но использует арифметику с плавающей запятой таким образом, что не страдает от ошибок округления до тех пор, пока не a ** (1 / b)будет по меньшей мере 0,5 от ^b √a, для которого требуется значение выше 2 ⁵³ (или любого другого значения, основанного на осях с плавающей точкой и мантиссе длина Python случается использовать, смотрите sys.float_info).
• Может быть изменен тривиально, чтобы по-прежнему работать с произвольными числами от 2 до 36.

C (gcc) , 144 126 117 байт

• Сохранено восемнадцать байтов благодаря Деннису .
• Сохранено девять байтов благодаря функциюcatcat .

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

Попробуйте онлайн!

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, но проблема требует только два различных значений , которые будут возвращены.

Котлин , 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 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;}

Попробуйте онлайн!

Подтверждения

-12 байт благодаря @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 байт

ó¶
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и затем верните, если результат делится на один.

Впервые работая с Japt, очень открыт для любых рекомендаций.
Срезано на 8 байт благодаря ETHproductions .

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 , затем проверьте, является ли результат целым числом.

Python 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для фальси и 0для правды , сохраняя байт. Попробуйте онлайн!

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