Đây là một thử thách dễ dàng:

Cho một chuỗi đại diện cho một số trong một cơ sở không xác định, xác định cơ sở thấp nhất có thể mà số đó có thể nằm trong. Chuỗi sẽ chỉ chứa 0-9, a-z. Nếu bạn thích, bạn có thể chọn lấy chữ hoa thay vì chữ thường, nhưng vui lòng chỉ định điều này. Bạn phải xuất ra cơ sở thấp nhất có thể trong thập phân.

Dưới đây là một ví dụ cụ thể hơn. Nếu chuỗi đầu vào là "01234", thì số này không thể ở dạng nhị phân, vì 2, 3 và 4 đều không được xác định trong nhị phân. Tương tự, số này không thể ở cơ sở 3 hoặc cơ sở 4. Do đó, số này phải ở cơ sở 5 hoặc cơ sở cao hơn, vì vậy bạn nên xuất '5'.

Mã của bạn phải hoạt động cho bất kỳ cơ sở nào giữa cơ sở 1 (đơn nguyên, tất cả '0') và cơ sở 36 ('0-9' và 'a-z').

Bạn có thể lấy đầu vào và cung cấp đầu ra ở bất kỳ định dạng hợp lý. Nội dung chuyển đổi cơ sở được cho phép. Như thường lệ, các sơ hở tiêu chuẩn được áp dụng và câu trả lời ngắn nhất tính theo byte là người chiến thắng!

Kiểm tra IO:

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

Thạch , 4 byte

ṀØBi

Yêu cầu chữ hoa. Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

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

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

Điều này đòi hỏi đầu vào phải là một bytestring (Python 3) hoặc bytearray (Python 2 và 3).

Cảm ơn @AleksiTorhamo vì đã chơi golf 5 byte!

Kiểm tra nó trên Ideone .

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

Chúng tôi bắt đầu bằng cách lấy tối đa của chuỗi. Đây là điểm mã của các chữ cái cao hơn điểm mã của các chữ số, ký tự tối đa này cũng là cơ sở tối đa 36 chữ số.

Điểm mã của '0' - '9' là 48 - 57 , vì vậy chúng ta phải trừ 48 từ điểm mã của chúng để tính các chữ số tương ứng hoặc 47 để tính toán cơ sở thấp nhất có thể. Tương tự, các điểm mã của các chữ cái 'a' - 'z' là 97 - 122 . Vì 'a' đại diện cho chữ số có giá trị 10 , chúng ta phải trừ 87 từ các điểm mã của chúng để tính các chữ số tương ứng hoặc 86 để tính toán cơ sở thấp nhất có thể. Một cách để đạt được điều này là như sau.

Chênh lệch giữa 97 và 58 ( ':' , ký tự sau '9' ) là 39 , do đó, lấy điểm mã modulo 39 có thể đạt được phép trừ. Vì 48% 39 = 9 và kết quả mong muốn cho ký tự '0' là 1 , trước tiên chúng tôi trừ 8 trước khi lấy kết quả modulo 39 . Trừ đi trước là cần thiết vì nếu không '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

Xác định một lambda có chuỗi x. Tìm chữ số lớn nhất trong chuỗi (được sắp xếp với các chữ cái ở trên các chữ số, theo mặc định của python) và chuyển đổi sang cơ sở 36. Thêm 1, vì 8không nằm trong cơ sở 8.

Haskell, 34 byte

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

Sử dụng mod(ord(c)-8,39)ý tưởng từ Dennis.

41 byte

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

45 byte:

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

Đầu ra như thế nào Just 3.

Cheddar , 34 29 21 byte

Đã lưu 8 byte nhờ Dennis !!!

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

Sử dụng chữ thường

Dùng thử trực tuyến

Giải trình

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

05AB1E , 6 byte

{¤36ö>

Có chữ in hoa

Giải trình

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

Dùng thử trực tuyến

Trên thực tế , 6 byte

M6²@¿u

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

Julia, 22 byte

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

Có một ký tự BS (0x08) giữa các dấu ngoặc kép. Hãy thử trực tuyến!

JavaScript (ES6), 41 37 byte

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

Chỉnh sửa: Đã lưu 4 byte nhờ @ edc65.

Haskell, 55 40 byte

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

Cảm ơn @Dennis vì cách tiếp cận của anh ấy. (lấy đó, @xnor;))

Perl 6: 18 byte

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

Xác định một lambda có một đối số chuỗi đơn và trả về một số nguyên. Nó chia chuỗi thành các ký tự, tìm chuỗi "cao nhất", chuyển đổi nó thành cơ sở 36, thêm 1.

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

Cái này sử dụng phương pháp modulo từ Dennis. Cùng chiều dài.

Võng mạc , 28 byte

O`.
.\B

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

Hãy thử trực tuyến! (Dòng đầu tiên cho phép bộ kiểm tra được phân tách bằng nguồn cấp.)

Giải trình

O`.

Điều này sắp xếp các ký tự của đầu vào.

.\B

Điều này loại bỏ tất cả các ký tự ngoại trừ cuối cùng, vì vậy hai giai đoạn đầu tiên tìm thấy ký tự tối đa.

{2`
$`
}T01`dl`_o

Đây là hai giai đoạn tạo thành một vòng lặp. Cái đầu tiên nhân đôi ký tự đầu tiên và ký tự thứ hai "giảm" nó (thay thế xbằng w, abằng 9và 1với 0). Giai đoạn sau gặp số 0 là ký tự đầu tiên, thay vào đó, nó loại bỏ nó. Đây là một kỹ thuật tiêu chuẩn để tạo ra một loạt các ký tự, được đưa ra ở cấp trên. Do đó, điều này tạo ra tất cả "chữ số" từ 0đến chữ số tối đa.

.

Cuối cùng, chúng ta chỉ cần đếm số chữ số, cung cấp cho chúng ta cơ sở.

R, 99 89 85 byte

Nhìn ! Ít hơn 100 byte!
Nhìn ! Giảm 10 byte!
Nhìn ! Tắt 4 byte!

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

Ung dung:

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.

Như thường lệ, câu trả lời này sử dụng ifelsechức năng:ifelse(Condition, WhatToDoIfTrue, WhatToDoElse)

PHP, 51 38 byte

(Từ Dennis) ^^

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

Đề xuất khác mà không có lừa của Dennis

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

• Lấy đầu vào là đối số $ argv [1];
• Lấy giá trị ký tự tối đa (sử dụng ASCII)
• Nếu đó là một số (thấp hơn giá trị <'a' ascii) thì số đầu ra + 1
• Khác giá trị đầu ra ascii -86 (97 cho 'a' trong ascii, -11 cho 'a' là chữ số cơ sở thứ 11)

Octave, 20 byte

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

Pyke, 6 byte

Seb36h

Hãy thử nó ở đây!

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)%39là nhờ câu trả lời tuyệt vời của @Dennis .

Mã thử nghiệm & mã hóa:

Hãy thử nó ở đây.

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

Đầu ra:

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 bị đánh cắp một cách đáng xấu hổ từ Dennis

Kiểm tra

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

Đầu ra

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

Đã lưu 2 byte nhờ Toby Speight

Đã lưu 2 byte nhờ Kevin Cruijssen

C, 55 byte

Câu trả lời này giả định rằng đầu vào là ASCII (hoặc giống hệt nhau về số và chữ, ví dụ: ISO-8859 hoặc UTF-8):

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

Chúng tôi chỉ đơn giản lặp lại dọc theo chuỗi, ghi nhớ giá trị lớn nhất đã thấy, sau đó sử dụng chuyển đổi modulo-39 nổi tiếng từ cơ sở- {11..36}.

Chương trình kiểm tra

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

Kết quả kiểm tra

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

Toán học, 34 32 byte

Lưu 2 byte nhờ Martin Ender

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

Tôi quyết định phương pháp khác nhau xứng đáng có một câu trả lời mới.

_{phương pháp bị đánh cắp lấy cảm hứng từ giải pháp của Dennis}

Toán học, 34 32 byte

đã lưu 2 byte nhờ Martin Ender

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

Xác định một hàm thuần túy lấy một chuỗi làm đầu vào.

Chia đầu vào thành các ký tự, chuyển đổi chúng thành 36 số cơ bản và trả về +1 tối đa.

C # REPL, 17 byte

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

Chỉ cần chuyển câu trả lời của @ Dennis cho C #.

CJam, 10 byte

Cảm ơn Martin Ender đã tiết kiệm cho tôi một vài byte!

Sử dụng công thức của Dennis

q:e>8-i39%

Dùng thử trực tuyến

CJam, 18 16 btyes

Giải pháp thay thế:

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

Dùng thử trực tuyến

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)

Chạy nó như:

$ scala whatbase.scala 0123456789abcdefghijklmnopqrstuvwxyz

R, 62 54 byte

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

Ung dung:

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

Cập nhật: loại bỏ 8 byte do sự dư thừa na.rm=Ttheo giả định về tính hợp lệ của đầu vào.

Cải thiện 39% về kích thước so với câu trả lời của Frédéric . Bên cạnh đó, nó chạy nhanh hơn một chút: 0,86 giây cho 100000 lần lặp so với 1,09 giây cho câu trả lời cạnh tranh. Vì vậy, một trong những của tôi là nhỏ hơn và hiệu quả hơn.

APL Dyalog , 10 byte

Nhắc nhở cho đầu vào chữ hoa.

⌈/⍞⍳⍨⎕D,⎕A

⌈/ tối đa

⍞ ký tự đầu vào

⍳⍨ 1 chỉ mục vào

⎕D, tất cả các chữ số theo sau

⎕A tất cả nhân vật

Dùng thử trực tuyến!

TIỀN 70

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

Chữ cái đầu vào là chữ thường.

JavaScript, 57 50 48 byte

7 byte đã lưu thnks vào @ kamaroso97 2 byte được lưu nhờ @Neil

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

Câu trả lời gốc:

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

Perl, 30 27 byte

Bao gồm +1 cho -p

Chạy với đầu vào trên STDIN, vd

base.pl <<< codegolf

base.pl:

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

LiveScript, 32 byte

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

Một cổng của câu trả lời này bằng ngôn ngữ yêu thích của tôi biên dịch thành JavaScript. Nếu base~numbertoán tử làm việc với các biến tôi có thể viết ->1+36~(it/'')sort!pop!(23 byte), nhưng nó xung đột với toán tử liên kết hàm: /