쉬운 도전이 있습니다.

알 수없는 염기의 숫자를 나타내는 문자열이 주어지면 해당 숫자가 포함될 수있는 가장 낮은 염기를 결정하십시오. 문자열에는 만 포함 0-9, a-z됩니다. 원하는 경우 소문자 대신 대문자를 사용하도록 선택할 수 있지만이를 지정하십시오. 이 최저 가능한 밑을 10 진수로 출력해야합니다.

보다 구체적인 예는 다음과 같습니다. 입력 문자열이 "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)이어야합니다.

5 바이트를 골라 낸 @AleksiTorhamo에게 감사합니다!

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으로 변환합니다 8. 기수 8이 아니므로 1을 더합니다 .

하스켈, 34 바이트

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

사용 mod(ord(c)-8,39)Dennis 아이디어를 .

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 바이트

Dennis 덕분에 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)가 있습니다. 온라인으로 사용해보십시오!

자바 스크립트 (ES6), 41 37 바이트

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

편집 : @ edc65 덕분에 4 바이트가 절약되었습니다.

하스켈, 55 40 바이트

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

그의 접근에 대해 @Dennis에게 감사드립니다. (그것을 @xnor;)

펄 6:18 바이트

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

단일 문자열 인수를 사용하고 정수를 반환하는 람다를 정의합니다. 문자열을 문자로 나누고 "가장 높은"문자열을 찾은 다음 밑줄 36으로 변환하고 1을 더합니다.

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

이것은 Dennis의 모듈 방식을 사용합니다. 같은 길이입니다.

레티 나 , 28 바이트

O`.
.\B

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

온라인으로 사용해보십시오! 첫 번째 줄은 줄 바꿈으로 구분 된 테스트 스위트를 활성화합니다.

설명

O`.

입력 문자를 정렬합니다.

.\B

이렇게하면 마지막 문자를 제외한 모든 문자가 제거되므로 처음 두 단계는 최대 문자를 찾습니다.

{2`
$`
}T01`dl`_o

이들은 루프를 형성하는 두 단계입니다. 첫 번째 문자는 첫 번째 문자를 복제하고 두 번째 문자는 문자를 "감소"합니다 (예 : xwith w, awith 9및 1with 0). 후자는 첫 번째 문자로 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;

Dennis의 속임수가없는 다른 제안

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

• 인수로 입력을받습니다 $ argv [1];
• ASCII를 사용하여 최대 문자 수
• 숫자 (< 'a'ASCII 값보다 열등한 경우)이면 number + 1을 출력합니다
• 다른 출력 ASCII 값 -86 (아스키의 'a'의 경우 97, 'a'의 -11은 11 번째 기본 자릿수)

옥타브, 20 바이트

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

파이크, 6 바이트

Seb36h

여기 사용해보십시오!

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

자바 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

Toby Speight 덕분에 2 바이트 절약

Kevin Cruijssen 덕분에 2 바이트 절약

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

우리는 단순히 가장 큰 값을 기억하면서 문자열을 따라 반복 한 다음 base- {11..36}에서 잘 알려진 modulo-39 변환을 사용합니다.

테스트 프로그램

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

Mathematica, 34 32 바이트

Martin Ender 덕분에 2 바이트 절약

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

다른 방법으로 새로운 답을 얻을 가치가 있다고 결정했습니다.

_{방법 도난당한 데니스 '솔루션에 의해 영감을}

Mathematica, 34 32 바이트

Martin Ender 덕분에 2 바이트 절약

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

문자열을 입력으로 사용하는 순수한 함수를 정의합니다.

입력을 문자로 나누고 기본 36 숫자로 변환 한 후 최대 +1을 반환합니다.

C # REPL, 17 바이트

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

@Dennis의 답변을 C #으로 이식했습니다.

CJam, 10 바이트

몇 바이트를 절약 해 준 Martin Ender에게 감사합니다!

Dennis의 공식을 사용합니다

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

업데이트 : na.rm=T입력 유효성 가정 하에서 중복으로 인해 8 바이트가 줄었습니다 .

Frédéric의 답변 과 비교하여 크기가 39 % 개선되었습니다 . 그 외에도 100000 복제의 경우 0.86 초, 경쟁 답변의 경우 1.09 초의 빠른 속도로 실행됩니다. 그래서 내 것 중 하나는 작고 효율적입니다.

Dyalog APL , 10 바이트

대문자 입력을 요구합니다.

⌈/⍞⍳⍨⎕D,⎕A

⌈/ 최고

⍞ 입력 문자

⍳⍨ 1- 인덱싱

⎕D, 모든 숫자 다음에

⎕A 모든 캐릭터

TryAPL 온라인!

배쉬 70

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

입력 문자는 소문자입니다.

자바 스크립트, 57 50 48 바이트

@ kamaroso97에 7 바이트 저장 됨 @Neil 덕분에 2 바이트 저장 됨

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

펄, 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 바이트) 함수 bind 연산자와 충돌합니다.