Ось приємний простий виклик:

З огляду на рядок, що представляє число в невідомої базі, визначити мінімально можливу базу , що число може бути в. Рядок буде містити тільки 0-9, a-z. Якщо вам подобається, ви можете взяти великі літери замість малих, але вкажіть це. Ви повинні виводити цю найменшу можливу основу у десятковій частині.

Ось більш конкретний приклад. Якщо вхідний рядок був "01234", неможливо, щоб це число було двійковим, оскільки 2, 3 і 4 не визначені у двійковій формі. Аналогічно, це число не може бути в базі 3 або в базі 4. Отже, це число повинно бути в базі-5 або на більш високій базі, тож слід вивести "5".

Ваш код повинен працювати для будь-якої бази між базовою 1 (одинарною, всі '0') і базовою 36 ('0-9' та 'a-z').

Ви можете взяти вклад та надати вихід у будь-якому розумному форматі. Вбудовані базові перетворення дозволяються. Як завжди, застосовуються стандартні лазівки, а найкоротша відповідь у байтах - переможець!

IO тесту:

#Input          #Output
00000       --> 1
123456      --> 7
ff          --> 16
4815162342  --> 9
42          --> 5
codegolf    --> 25
0123456789abcdefghijklmnopqrstuvwxyz    --> 36

Желе , 4 байти

ṀØBi

Потрібна велика літера. Спробуйте в Інтернеті! або перевірити всі тестові випадки .

Як це працює

ṀØBi  Main link. Arguments: s (string)

Ṁ     Yield the maximum of s.
 ØB   Yield "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".
   i  Find the 1-based index of the maximum in that string.

Пітон, 27 22 байти

lambda s:(max(s)-8)%39

Для цього потрібно, щоб вхід був тестуванням (Python 3) або байтовим масивом (Python 2 і 3).

Дякуємо @AleksiTorhamo за те, що ти граєш на 5 байт!

Перевірте це на Ideone .

Як це працює

Почнемо з взяття максимуму рядка. Це кодові точки літер вище, ніж кодові точки цифр, цей максимальний символ також є максимальною базовою 36 цифрою.

Точки коду '0' - '9' - це 48 - 57 , тому ми повинні відняти 48 з їхніх кодових точок для обчислення відповідних цифр або 47 для обчислення найменшої можливої ​​бази. Аналогічно, кодові точки букв 'a' - 'z' - 97 - 122 . Оскільки 'a' позначає цифру зі значенням 10 , ми повинні відняти 87 з їхніх кодових точок для обчислення відповідних цифр, або 86 для обчислення найменшої можливої ​​бази. Один із способів досягти цього полягає в наступному.

Різниця між 97 і 58 ( ':' , символ після '9' ) становить 39 , тому, взявши кодові точки за модулем 39, можна досягти віднімання. Оскільки 48% 39 = 9 , а бажаний результат для символу '0' дорівнює 1 , ми спочатку віднімаємо 8, перш ніж брати результат модуля 39 . Віднімання першого необхідно, оскільки в іншому випадку 'u'% 39 = 117% 39 = 0 .

c    n    n-8    (n-8)%39
0    48    40     1
1    49    41     2
2    50    42     3
3    51    43     4
4    52    44     5
5    53    45     6
6    54    46     7
7    55    47     8
8    56    48     9
9    57    49    10
a    97    89    11
b    98    90    12
c    99    91    13
d   100    92    14
e   101    93    15
f   102    94    16
g   103    95    17
h   104    96    18
i   105    97    19
j   106    98    20
k   107    99    21
l   108   100    22
m   109   101    23
n   110   102    24
o   111   103    25
p   112   104    26
q   113   105    27
r   114   106    28
s   115   107    29
t   116   108    30
u   117   109    31
v   118   110    32
w   119   111    33
x   120   112    34
y   121   113    35
z   122   114    36

Пітон, 25 байт

lambda x:int(max(x),36)+1

Визначає лямбда, яка приймає рядок x. Знаходить найбільшу цифру в рядку (відсортовано за літерами вище цифр, за замовчуванням python) та перетворює на базу 36. Додає 1, оскільки 8її немає в базі 8.

Хаскелл, 34 байти

f s=length['\t'..maximum s]`mod`39

Використовує mod(ord(c)-8,39)ідею від Денніса.

41 байт

g '0'=1
g 'W'=1
g x=1+g(pred x)
g.maximum

45 байт:

(`elemIndex`(['/'..'9']++['a'..'z'])).maximum

Виходи, як Just 3.

Чеддар , 34 29 21 байт

Збережено 8 байт завдяки Деннісу !!!

s->(s.bytes.max-8)%39

Використовується малі літери

Спробуйте в Інтернеті

Пояснення

s -> (      // Input is `s`
  s.bytes    // Returns array of char codes
   .max      // Get maximum item in array
) % 39      // Modulus 39

05AB1E , 6 байт

{¤36ö>

Бере букви у великому регістрі.

Пояснення

{       # sort
 ¤      # take last
  36ö   # convert from base 36 to base 10
     >  # increment

Спробуйте в Інтернеті

Власне , 6 байт

M6²@¿u

Спробуйте в Інтернеті!

Джулія, 22 байти

!s=(maximum(s)-'')%39

Між цитатами є символ BS (0x08). Спробуйте в Інтернеті!

JavaScript (ES6), 41 37 байт

s=>parseInt([...s].sort().pop(),36)+1

Редагувати: збережено 4 байти завдяки @ edc65.

Хаскелл, 55 40 байт

f=(\y->mod(y-8)39).Data.Char.ord.maximum

Дякуємо @Dennis за його підхід. (візьміть це, @xnor;))

Perl 6: 18 байт

{:36(.comb.max)+1}

Визначає лямбда, який бере аргумент одного рядка і повертає ціле число. Він розбиває рядок на символи, знаходить "найвищий", перетворює його в базу 36, додає 1.

{(.ords.max-8)%39}

У цьому використовується модульний підхід від Денніса. Однакової довжини.

Сітківка , 28 байт

O`.
.\B

{2`
$`
}T01`dl`_o
.

Спробуйте в Інтернеті!(Перший рядок включає тестовий набір, відокремлений виведенням ліній.)

Пояснення

O`.

Це сортує символи вводу.

.\B

При цьому видаляються всі символи, крім останнього, тому перші два етапи знаходять максимальний символ.

{2`
$`
}T01`dl`_o

Це два етапи, які утворюють петлю. Перший дублює перший символ, а другий "зменшує" його (замінюючи, наприклад, xна w, aз 9і 1на 0). Останній етап зустрічається з нулем як перший символ, він замість цього видаляє. Це стандартний прийом для генерування діапазону символів з урахуванням верхнього кінця. Отже, це генерує всі "цифри" від 0максимальної цифри.

.

Нарешті, ми просто підраховуємо кількість цифр, що дає нам базу.

R, 99 89 85 байт

Подивіться! Менше 100 байт!
Подивіться! 10 байт!
Подивіться! 4 байти!

ifelse((m=max(strsplit(scan(,''),"")[[1]]))%in%(l=letters),match(m,l)+10,strtoi(m)+1)

Безумовно:

l=letters                  #R's built-in vector of lowercase letters

n=scan(what=characters())  #Takes an input from STDIN and convert it to characters

m=max(strsplit(n,"")[[1]]) #Splits the input and takes to max. 
                           #`letters` are considered > to numbers (i.e. a>1)


ifelse(m%in%l,match(m,l)+10,strtoi(m)+1) #If the max is in `letters`,
                                             #outputs the matching position of `m`in `letters` + 10 (because of [0-9]). 
                                             #Else, outputs `m` (as a number) + 1.

Як часто ця відповідь використовує ifelseфункцію:ifelse(Condition, WhatToDoIfTrue, WhatToDoElse)

PHP, 51 38 байт

(Від Денніса) ^^

<?=(ord(max(str_split($argv[1])))-8)%39;

Інша пропозиція без хитрості Денніса

<?=($a=max(str_split($argv[1])))<a?$a+1:ord($a)-86;

• Бере введення як аргумент $ argv [1];
• Візьміть максимальні значення символів (використовуючи ASCII)
• Якщо це число (поступається <'a' значенню ascii), то вихідне число + 1
• Інше значення виходу ascii -86 (97 для 'a' в ascii, -11 для 'a' - 11-й базовий розряд)

Октава, 20 байт

@(a)mod(max(a)-8,39)

Пайк, 6 байт

Seb36h

Спробуйте тут!

Se     -   sorted(input)[-1]
  b36  -  base(^, 36)
     h - ^ + 1

Java 7, 67 61 байт

int c(char[]i){int m=0;for(int c:i)m=m>c?m:c;return(m-8)%39;}

(m-8)%39завдяки чудовій відповіді @Dennis .

Невикористаний і тестовий код:

Спробуйте тут.

class Main{
  static int c(char[] i){
    int m = 0;
    for(int c : i){
      m = m > c
           ? m
           : c;
    }
    return (m-8) % 39;
  }

  public static void main(String[] a){
    System.out.println(c("00000".toCharArray()));
    System.out.println(c("123456".toCharArray()));
    System.out.println(c("ff".toCharArray()));
    System.out.println(c("4815162342".toCharArray()));
    System.out.println(c("42".toCharArray()));
    System.out.println(c("codegolf".toCharArray()));
    System.out.println(c("0123456789abcdefghijklmnopqrstuvwxyz".toCharArray()));
  }
}

Вихід:

1
7
16
9
5
25
36

C89, 55 53 52 50 байт

f(s,b)char*s;{return*s?f(s+1,*s>b?*s:b):(b-8)%39;}

-8%39 безсоромно вкрадено у Денніса

Тест

test(const char* input)
{
    printf("%36s -> %u\n", input, f((char*)input,0));
}

main()
{
    test("00000");
    test("123456");
    test("ff");
    test("4815162342");
    test("42");
    test("codegolf");
    test("0123456789abcdefghijklmnopqrstuvwxyz");
}

Вихідні дані

                               00000 -> 1
                              123456 -> 7
                                  ff -> 16
                          4815162342 -> 9
                                  42 -> 5
                            codegolf -> 25
0123456789abcdefghijklmnopqrstuvwxyz -> 36

Збережено 2 байти завдяки Toby Speight

Збережено 2 байти завдяки Kevin Cruijssen

C, 55 байт

Ця відповідь передбачає, що вхід знаходиться в ASCII (або однаковий в цифрах і літерах, наприклад, ISO-8859 або UTF-8):

m;f(char*s){for(m=0;*s;++s)m=m>*s?m:*s;return(m-8)%39;}

Ми просто перебираємо по рядку, запам'ятовуючи найбільше значення, що бачимо, а потім використовуємо відоме перетворення по модулю-39 з базової {{11..36}.

Тестова програма

int printf(char*,...);
int main(int c,char **v){while(*++v)printf("%s -> ",*v),printf("%d\n",f(*v));}

Результати тесту

00000 -> 1
123456 -> 7
ff -> 16
4815162342 -> 9
42 -> 5
codegolf -> 25
0123456789abcdefghijklmnopqrstuvwxyz -> 36

Математика, 34 32 байти

2 байти збережено завдяки Мартіну Ендеру

Max@Mod[ToCharacterCode@#-8,39]&

Я вирішив, що інший метод заслужив нову відповідь.

_{Метод крадений натхненне рішенням Денніса}

Математика, 34 32 байти

врятував 2 байти завдяки Мартіну Ендеру

Max@BaseForm[Characters@#,36]+1&

Визначає чисту функцію, яка приймає рядок як вхідний.

Розбиває вхід на символи, перетворює їх на базові 36 чисел і повертає максимальний +1.

C # REPL, 17 байт

x=>(x.Max()-8)%39

Щойно переніс відповідь Денніса на C #.

CJam, 10 байт

Дякую Мартіну Ендеру, що врятував мені кілька байт!

Використовує формулу Денніса

q:e>8-i39%

Спробуйте в Інтернеті

CJam, 18 16 btyes

Альтернативне рішення:

A,s'{,97>+q:e>#)

Спробуйте в Інтернеті

A,s'{,97>+       e# Push the string "0123456789abcdefghijklmnopqrstuvwxyz"
          q      e# Get the input
           :e>   e# Find the highest character in the input
              #  e# Find the index of that character in the string
               ) e# Increment

Скала, 25 байт

print((args(0).max-8)%39)

Виконайте це так:

$ scala whatbase.scala 0123456789abcdefghijklmnopqrstuvwxyz

R, 62 54 байти

max(match(strsplit(scan(,''),"")[[1]],c(0:9,letters)))

Безголовки:

max(
  match( # 2: Finds the respective positions of these characters
    strsplit(scan(,''),"")[[1]], # 1: Breaks the input into characters
                                c(0:9,letters)) # 3: In the vector "0123...yz"
                                                )

Оновлення: відголили 8 байт через надмірність na.rm=Tза припущенням про вхідність.

Покращення розміру на 39% порівняно з відповіддю Фредерика . Крім того, він працює біг трохи швидше: 0,86 секунди для 100000 повторень проти 1,09 секунди для конкуруючої відповіді. Отже, одна з моїх є і меншою, і ефективнішою.

Діалог APL , 10 байт

Підказки для введення великих літер

⌈/⍞⍳⍨⎕D,⎕A

⌈/ максимум

⍞ символи введення

⍳⍨ 1-індексовано в

⎕D, всі цифри, за якими слідує

⎕A всіх персонажів

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

БАШ 70

grep -o .|sort -r|head -c1|od -An -tuC|sed s/$/-86/|bc|sed s/-/39-/|bc

Введення літер - малі.

JavaScript, 57 50 48 байт

7 байтів зберегло приємність до @ kamaroso97 2 байти збережено завдяки @Neil

n=>Math.max(...[...n].map(a=>parseInt(a,36))+1)

Оригінальна відповідь:

n=>n.split``.map(a=>parseInt(a,36)).sort((a,b)=>b-a)[0]+1

Perl, 30 27 байт

Включає +1 для -p

Запустити з введенням STDIN, наприклад

base.pl <<< codegolf

base.pl:

#!/usr/bin/perl -p
\@F[unpack"W*"];$_=@F%39-9

LiveScript, 32 байти

->1+parseInt (it/'')sort!pop!,36

Порт цієї відповіді моєю улюбленою мовою, який збирають у JavaScript. Якщо base~numberоператор працював зі змінними, я міг би записати ->1+36~(it/'')sort!pop!(23 байти), але це суперечить функції оператора прив'язки: /