Inilah tantangan mudah yang menyenangkan:

Diberikan string yang merepresentasikan angka dalam basis yang tidak diketahui, tentukan basis terendah yang mungkin dimiliki nomor tersebut. String hanya akan berisi 0-9, a-z. Jika suka, Anda dapat memilih untuk mengambil huruf besar alih-alih huruf kecil, tetapi harap tentukan ini. Anda harus mengeluarkan basis serendah mungkin ini dalam desimal.

Ini adalah contoh yang lebih konkret. Jika string input adalah "01234", angka ini tidak mungkin berada dalam biner, karena 2, 3, dan 4 semuanya tidak terdefinisi dalam biner. Demikian pula, angka ini tidak boleh di basis 3, atau basis 4. Oleh karena itu, angka ini harus di basis-5, atau basis yang lebih tinggi, jadi Anda harus menampilkan '5'.

Kode Anda harus berfungsi untuk basis apa pun antara basis 1 (unary, semua '0's) dan basis 36 (' 0-9 'dan' a-z ').

Anda dapat mengambil input dan memberikan output dalam format apa pun yang masuk akal. Basis-konversi bawaan diizinkan. Seperti biasa, celah standar berlaku, dan jawaban terpendek dalam byte adalah pemenangnya!

Tes IO:

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

Jelly , 4 byte

ṀØBi

Membutuhkan huruf besar. Cobalah online! atau verifikasi semua kasus uji .

Bagaimana itu bekerja

ṀØ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.

Python, 27 22 byte

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

Ini membutuhkan input untuk menjadi bytestring (Python 3) atau bytearray (Python 2 dan 3).

Terima kasih kepada @AleksiTorhamo untuk bermain golf 5 byte!

Uji di Ideone .

Bagaimana itu bekerja

Kami mulai dengan mengambil string maksimal. Ini titik kode huruf lebih tinggi dari titik kode angka, karakter maksimal ini juga basis maksimal 36 digit.

Titik kode '0' - '9' adalah 48 - 57 , jadi kita harus mengurangi 48 dari titik kode mereka untuk menghitung angka yang sesuai, atau 47 untuk menghitung basis serendah mungkin. Demikian pula, titik kode huruf 'a' - 'z' adalah 97 - 122 . Karena 'a' mewakili digit dengan nilai 10 , kita harus mengurangi 87 dari titik kode mereka untuk menghitung angka yang sesuai, atau 86 untuk menghitung basis serendah mungkin. Salah satu cara untuk mencapai ini adalah sebagai berikut.

Perbedaan antara 97 dan 58 ( ':' , karakter setelah '9' ) adalah 39 , jadi mengambil poin kode modulo 39 dapat mencapai pengurangan. Karena 48% 39 = 9 , dan hasil yang diinginkan untuk karakter '0' adalah 1 , pertama-tama kita kurangi 8 sebelum mengambil hasil modulo 39 . Pengurangan pertama diperlukan karena jika tidak '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

Python, 25 byte

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

Mendefinisikan lambda yang mengambil string x. Menemukan digit terbesar dalam string (diurutkan dengan huruf di atas angka, menurut standar python), dan mengonversi ke basis 36. Menambahkan 1, karena 8tidak ada di basis 8.

Haskell, 34 byte

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

Menggunakan mod(ord(c)-8,39)ide dari Dennis.

41 byte

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

45 byte:

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

Output seperti Just 3.

Cheddar , 34 29 21 byte

Disimpan 8 byte berkat Dennis !!!

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

Menggunakan huruf kecil

Cobalah online

Penjelasan

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

05AB1E , 6 byte

{¤36ö>

Mengambil huruf dalam huruf besar.

Penjelasan

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

Cobalah online

Sebenarnya , 6 byte

M6²@¿u

Cobalah online!

Julia, 22 byte

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

Ada karakter BS (0x08) antara tanda kutip. Cobalah online!

JavaScript (ES6), 41 37 byte

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

Sunting: Disimpan 4 byte berkat @ edc65.

Haskell, 55 40 byte

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

Terima kasih @Dennis atas pendekatannya. (ambil itu, @xnor;))

Perl 6: 18 byte

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

Mendefinisikan lambda yang mengambil argumen string tunggal, dan mengembalikan integer. Ini membagi string menjadi karakter, menemukan yang "tertinggi", mengubahnya menjadi basis 36, menambahkan 1.

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

Yang ini menggunakan pendekatan modulo dari Dennis. Sama panjang.

Retina , 28 byte

O`.
.\B

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

Cobalah online! (Baris pertama memungkinkan suite tes yang dipisahkan dengan linefeed.)

Penjelasan

O`.

Ini memilah karakter input.

.\B

Ini menghapus semua karakter kecuali yang terakhir, sehingga dua tahap pertama menemukan karakter maksimum.

{2`
$`
}T01`dl`_o

Ini adalah dua tahap yang membentuk lingkaran. Yang pertama menduplikasi karakter pertama dan yang kedua "decrements" (menggantikan misalnya xdengan w, adengan 9dan 1dengan 0). Tahap terakhir menemukan nol sebagai karakter pertama, ia menghilangkannya sebagai gantinya. Ini adalah teknik standar untuk menghasilkan serangkaian karakter, mengingat ujung atas. Karenanya, ini menghasilkan semua "digit" dari 0ke digit maksimum.

.

Akhirnya, kita cukup menghitung jumlah digit, yang memberi kita basis.

R, 99 89 85 byte

Lihat! Kurang dari 100 byte!
Lihat! Off 10 byte!
Lihat! Off 4 byte!

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

Tidak Disatukan:

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.

Seperti sering, jawaban ini memanfaatkan ifelsefungsi:ifelse(Condition, WhatToDoIfTrue, WhatToDoElse)

PHP, 51 38 byte

(Dari Dennis) ^^

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

Proposal lain tanpa trik Dennis

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

• Mengambil input sebagai argumen $ argv [1];
• Ambil nilai karakter maksimum (menggunakan ASCII)
• Jika itu adalah angka (lebih rendah dari nilai ascii <'a') maka nomor keluaran +1
• Output lain nilai ascii -86 (97 untuk 'a' di ascii, -11 untuk 'a' adalah base-digit ke-11)

Oktaf, 20 byte

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

Pyke, 6 byte

Seb36h

Coba di sini!

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

Java 7, 67 61 byte

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

(m-8)%39berkat @Dennis jawaban menakjubkan ' .

Tidak digabungkan & kode uji:

Coba di sini.

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

Keluaran:

1
7
16
9
5
25
36

C89, 55 53 52 50 byte

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

-8%39 tanpa malu-malu dicuri dari Dennis

Uji

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

Keluaran

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

Disimpan 2 byte berkat Toby Speight

Disimpan 2 byte berkat Kevin Cruijssen

C, 55 byte

Jawaban ini mengasumsikan bahwa input dalam ASCII (atau identik dalam angka dan huruf, misalnya ISO-8859 atau UTF-8):

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

Kami hanya mengulang di sepanjang string, mengingat nilai terbesar yang terlihat, kemudian menggunakan konversi modulo-39 yang terkenal dari basis- {11..36}.

Program uji

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

Hasil tes

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

Mathematica, 34 32 byte

2 byte disimpan berkat Martin Ender

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

Saya memutuskan metode yang berbeda pantas mendapat jawaban baru.

_{Metode yang dicuri terinspirasi oleh solusi Dennis}

Mathematica, 34 32 byte

disimpan 2 byte berkat Martin Ender

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

Mendefinisikan fungsi murni yang mengambil string sebagai input.

Pisahkan input menjadi karakter, ubah menjadi basis 36 angka, dan kembalikan +1 maksimum.

C # REPL, 17 byte

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

Baru saja mengirim jawaban @ Dennis ke C #.

CJam, 10 byte

Terima kasih kepada Martin Ender karena telah menyelamatkan saya beberapa byte!

Menggunakan formula Dennis

q:e>8-i39%

Cobalah online

CJam, 18 16 btyes

Solusi alternatif:

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

Cobalah online

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

Scala, 25 byte

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

Jalankan seperti:

$ scala whatbase.scala 0123456789abcdefghijklmnopqrstuvwxyz

R, 62 54 byte

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

Tidak Disatukan:

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

Pembaruan: dicukur 8 byte karena redundansi na.rm=T bawah asumsi validitas input.

Peningkatan 39% dalam ukuran dibandingkan dengan jawaban Frédéric . Selain itu, ia menjalankan sedikit lebih cepat: 0,86 detik untuk 100000 replikasi dibandingkan 1,09 detik untuk jawaban yang bersaing. Jadi salah satu tambang saya lebih kecil dan lebih efisien.

Dyalog APL , 10 byte

Anjuran untuk input huruf besar.

⌈/⍞⍳⍨⎕D,⎕A

⌈/ maksimum

⍞ karakter input

⍳⍨ 1 diindeks menjadi

⎕D, semua digit diikuti oleh

⎕A semua karakter

TryAPL online!

BASH 70

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

Input huruf adalah huruf kecil.

JavaScript, 57 50 48 byte

7 byte disimpan thnks ke @ kamaroso97 2 byte disimpan berkat @Neil

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

Jawaban asli:

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

Perl, 30 27 byte

Termasuk +1 untuk -p

Jalankan dengan input pada STDIN, mis

base.pl <<< codegolf

base.pl:

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

LiveScript, 32 byte

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

Port jawaban ini dalam bahasa favorit saya yang mengkompilasi ke JavaScript. Jika base~numberoperator bekerja dengan variabel saya bisa menulis ->1+36~(it/'')sort!pop!(23 byte), tetapi bertentangan dengan fungsi bind operator: /