자신이 원하는 숫자를 원하는 형식을 사용하여 자신의 숫자 기반으로 신속하게 변환 할 수있는 기능.

입력

프로그램은 3 개의 매개 변수를 승인해야합니다.

1. 숫자 : 변환 할 문자열 번호
2. InputFormat : 숫자가 현재있는 기본 문자열
3. OutputFormat : 숫자를 변환 할 기본 문자열입니다.

산출

프로그램은 Number이전 숫자베이스 InputFormat에서 새로운 숫자베이스 로 변환해야합니다OutputFormat

예

("1","0123456789","9876543210") = "8"
("985724","9876543210","0123456789ABCDEF") = "37C3"
("FF","0123456789ABCDEF","0123456789") = "255"
("FF","0123456789ABCDEF","01234567") = "377"
("18457184548971248772157", "0123456789","Aa0Bb1Cc2Dd3Ee4Ff5Gg6Hh7Ii8Jj9Kk,Ll.Mm[Nn]Oo@Pp#Qq}Rr{Ss-Tt+Uu=Vv_Ww!Xx%Yy*Zz") = ",sekYFg_fdXb"

추가

새로운 기본 77 테스트는 작동하는 경우 소품이 필요하지 않습니다.

1. 먼저 숫자로 변환해야하고 32 비트 내에 잠겨있는 언어라면 건너 뛸 수 있습니다.
2. 추가 테스트이므로

모든 예제는 다음 코드 (vars mins이지만 코드 형식)를 사용하여 bcmath 확장명을 가진 PHP 7.2에서 생성되었습니다. 아마도 이것이 내가 이것을 위해 필요한 시스템을 위해 생각해 낸 방법 일 것입니다 더 짧은 방법이있을 것입니다 누군가가 더 짧은 버전을 생각 해낼 수 있다면 좋을 것입니다.

PHP 7.2 (bcmath-확장) 614 바이트

<?php
function f($a, $b, $c)
{
    $d= str_split($b,1);
    $e= str_split($c,1);
    $f= str_split($a,1);
    $g=strlen($b);
    $h=strlen($c);
    $k=strlen($a);
    $r='';
    if ($c== '0123456789')
    {
        $r=0;
        for ($i = 1;$i <= $k; $i++)
            $retval = bcadd($retval, bcmul(array_search($f[$i-1], $d),bcpow($g,$k-$i)));
        return $r;
    }
    if ($b!= '0123456789')
        $l=f($a, $b, '0123456789');
    else
        $l= $a;
    if ($l<strlen($c))
        return $e[$l];
    while($l!= '0')
    {
        $r= $e[bcmod($l,$h)].$r;
        $l= bcdiv($l,$h,0);
    }
    return $r;
}

온라인으로 사용해보십시오

채점

이것은 코드 골프입니다. 가장 짧은 코드가 승리합니다. 표준 허점이 적용됩니다.

MATL , 2 바이트

Za

온라인으로 사용해보십시오!
모든 테스트 사례.

를 들어 ZA 주 !

R , 124 바이트

function(n,s,t,T=L(t),N=(match(!n,!s)-1)%*%L(s)^(L(n):1-1))intToUtf8((!t)[N%/%T^rev(0:log(N,T))%%T+1])
"!"=utf8ToInt
L=nchar

온라인으로 사용해보십시오!

어이, 이것은 멍청한 짓이었습니다. R에는 일반적인 기본 변환 트릭을 ​​사용하지만 R의 문자열 조작은 여전히 ​​엉망입니다!

APL (Dyalog Unicode) , 22 바이트

익명의 람다. InputFormat왼쪽 인수와 OutputFormat오른쪽 인수로 취하고 Numberstdin에서 프롬프트합니다 . ⎕IO( i ndex O rigin)을 0많은 시스템에서 기본값 이라고 가정 합니다.

{⍵[(≢⍵)⊥⍣¯1⊢(≢⍺)⊥⍺⍳⎕]}

온라인으로 사용해보십시오!

{… } "dfn"; ⍺왼쪽 인수, ⍵오른쪽 인수
 ^{(니모닉 : 그리스 알파벳의 왼쪽 및 오른쪽 끝)}

 ⍵[… ] 다음을 사용하여 출력 형식을 색인화하십시오.

  ⎕ 입력 프롬프트

  ⍺⍳ format 입력 형식의 문자들

  (… )⊥ 다음과 같은 기준으로 평가합니다.

   ≢⍺ 입력 형식의 길이

  ⊢ 그 수율 (분리형 ¯1에서 (≢⍺))

  (… )⊥⍣¯1 다음 기준으로 변환하십시오.

  ≢⍺ 출력 형식의 길이

apt, 5 바이트

2 주 휴식 후 골프로 돌아 오기

nV sW

시도 해봐

설명

           :Implicit input of U=Number, V=InputFormat & W=OutputFormat
 nV        :Convert U from base V to decimal
    sW     :Convert to base W string

C (gcc), 79 + 46 = 125 바이트

char*O;l,n;g(n){n/l&&g(n/l);write(1,O+n%l,1);}

이것으로 컴파일해야합니다

-Df(s,i,o)=for(n=l=0;n=n*strlen(i)+index(i,s[l])-i,s[++l];);l=strlen(O=o);g(n)

깃발. (예, 이것은 엄청나게 스케치하기 때문에 이전 답변을 아래에 유지하는 이유입니다.) 이것은 fSTDOUT에 답변을 출력 하는 매크로 를 정의합니다 .

온라인으로 사용해보십시오!

C (gcc), 133131 바이트

char*O;l;g(n){n/l&&g(n/l);write(1,O+n%l,1);}f(s,i,o,n)char*s,*i,*o;{for(n=0,l=strlen(O=o);n=n*strlen(i)+index(i,*s)-i,*++s;);g(n);}

온라인으로 사용해보십시오!

fSTDOUT에 대한 답변을 출력 하는 함수 를 정의합니다 .

char*O;           // declare variable to store output charset
l;                // will be set to length of O
g(n){             // helper function to print the result
  n/l&&g(n/l);    // recursively calls itself if there are more digits
  write(1,        // output to stdout...
   O+n%l,1);      // the byte at (n mod output base) in O
}
f(s,i,o,n)        // main function
char*s,*i,*o;{    // declare string inputs
for(n=0,          // initialize n to 0
l=strlen(O=o);    // assign output charset so we don't have to pass it to g
n=n*strlen(i)     // repeatedly multiply n by input base...
+index(i,*s)-i,   // ... add the index of the digit in input charset...
*++s;);           // and move to the next digit until there's none left
g(n);             // call the helper function on the resulting integer
}

05AB1E , 5 바이트

ÅβIÅв

온라인으로 사용해보십시오!

기존 버전의 05AB1E 에서는 작동 하지 않습니다 . 새 버전 인 Elixir 재 작성에서만 작동합니다.

작동 원리

ÅβIÅв – 전체 프로그램.
Åβ – 커스텀베이스에서 10 진수로 변환합니다.
  I – 세 번째 입력을 누릅니다.
   Åв – 10 진수에서 커스텀베이스로 변환합니다. 

MATL , 5 바이트

sundar는 이것을하기 위해 실제 내장을 발견했습니다! 내 멍청한 사람 대신 그 대답을 찬성해라 :-(

ZAwYA

온라인으로 사용해보십시오!

          % implicit input N, the number, and S, the digits of the Source base
ZA        % base2dec, convert string N using S as digits into a base 10 integer
w         % swap stack elements, with implicit input T, the digits of the Target base
YA        % dec2base, reverse the ZA operation with digits coming from T instead.

숯 , 5 바이트

⍘⍘ＳＳＳ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

  Ｓ     Input the "number"
   Ｓ    Input the input format
 ⍘      Convert to number using that format
    Ｓ   Input the output format
⍘       Convert to string using that format
        Implicitly print

이 BaseString함수는 첫 번째 매개 변수의 유형에 따라 숫자와 문자열을 자동으로 변환합니다.

파이썬 (2) , 132 (129) 122 121 바이트

lambda n,a,b:g(sum(len(a)**i*a.find(j)for i,j in enumerate(n[::-1])),b)
g=lambda n,c:c[n:n+1]or g(n/len(c),c)+c[n%len(c)]

온라인으로 사용해보십시오!

익명의 함수 ( Erik the Outgolfer ! 덕분에 )는 원래 숫자를 기본 10 정수로 변환 한 다음 정수와 새 기본 문자열을 함수 g ()로 전달하여 새 기본으로 재귀 적으로 변환합니다. 이제 OutputFormat의 길이를 매개 변수로 g ()에 전달합니다.

더 낮은 바이트 수를 위해 g ()가 업데이트되었습니다. (감사합니다, 데니스 !)

index ()를 find ()로 대체했습니다. (감사합니다, Xcoder 씨 !)

풀리지 않은 설명 :

def f(n, a, b):
    # reverse the string to that the least significant place is leftmost
    # Ex: 985724 -> 427589
    n = n[::-1]
    # get the value of each place, which is its index in the InputFormat, times the base to the power of the place
    # Ex: 427589, 9876543210 -> 5*10^0, 7*10^1, 2*10^2, 4*10^3, 1*10^4, 0*10^5 -> [5,70,200,4000,10000,0]
    n = [a.find(j)*len(a)**i for i,j in enumerate(n)]
    # add all of the values together to bet the value in base 10
    # Ex: (5 + 70 + 200 + 4000 + 10000 + 0) = 14275
    n = sum(n)

    # call the convert to base function
    return g(n, b)

def g(n, c):
    # string slice, which will return an empty string if n:n+1 is not in range
    # an empty string is falsey
    if c[n:n+1]:
        return c[n:n+1]
    else:
        # get current least significant digit
        rem = c[n%len(c)]
        # get the rest of the integer
        div = n/len(c)

        # get the converted string for the rest of the integer, append the calculated least significant digit
        return g(div,c)+rem

젤리 , 11 바이트

iⱮ’ḅL{ṃ⁵ṙ1¤

온라인으로 사용해보십시오!

인수 순서 : InputFormat, Number, OutputFormat. 적절한 이스케이프를 사용하여 인수를 인용하십시오!

Pyth, 21 바이트

s@LeQjimx@Q1dhQl@Q1le

테스트 스위트

s@LeQjimx@Q1dhQl@Q1le  | Code
s@LeQjimx@Q1dhQl@Q1leQ |  with implicit variables
       m               | Map the function
        x   d          |   index of d in
         @Q1           |    the second string in the input
             hQ        |  over the first string in the input
      i                | Convert the resulting list to int from base
               l@Q1    |  length of the second string in the input
     j                 | Convert the int into a list in base
                   leQ |  length of the last string in the input
 @LeQ                  | Turn each number in the list into the character from the numbers index in the last string in the input
s                      | Concatenate the strings in to one string
                       | Implicit print

하스켈 , 119 바이트

n!f=init.((foldl((+).(l f*))0[i|c<-n,(i,d)<-zip[0..]f,d==c],0)#)
(0,d)#b=[b!!d]
(r,d)#b=r`divMod`l b#b++[b!!d]
l=length

온라인으로 사용해보십시오!

펄 6 , 100 97 바이트

{$^c.comb[(":"~$^b.chars~[$^a.comb>>.&{index $b,$_}].perl).EVAL.polymod($c.chars xx*)].join.flip}

온라인으로 사용해보십시오!

순서대로 3 개의 문자열, 입력, 입력 형식 및 출력 형식을 취한 다음 문자열을 반환하는 익명 코드 블록

설명:

{  # Anonymous code block
  $^c.comb[  # Split the output format into characters
           (":"~$^b.chars~[$^a.comb>>.&{index $b,$_}].perl) # The radix syntax in a string e.g ":3[1,2,3]"
           .EVAL  # Eval'ed to produce the base 10 version
           .polymod($c.chars xx*)  # Converted to a list in the output base (reversed)
          ] # Convert the list into indexes of the output format
           .join  # Join the characters to a string
           .flip  # And unreversed
}

VBA, 182 바이트

n언어로 입력 을 받아 언어 y로 프로젝트를 선언하는 선언 된 서브 루틴 z.

Sub f(n,y,z)
l=Len(n)
For i=-l To-1
v=v+(InStr(1,y,Mid(n,-i,1))-1)*Len(y)^(l+i)
Next
l=Len(z)
While v
v=v-1
d=v Mod l+1
v=v\l
If d<0Then v=v+1:d=d-l
o=Mid(z,d+1,1)&o
Wend
n=o
End Sub

자바 스크립트 (ES6), 90 86 바이트

다음과 같이 입력을받습니다. (input_format)(output_format)(number) 받습니다.

s=>d=>g=([c,...n],k=0)=>c?g(n,k*s.length+s.search(c)):k?g(n,k/(l=d.length)|0)+d[k%l]:n

온라인으로 사용해보십시오!

C (GCC) , 130 (129) 바이트

v;c(r,i,s,t)char*r,*i,*t;{for(r[1]=v=0;*i;v=v*strlen(s)+index(s,*i++)-s);for(s=strlen(t),i=1;*r=t[v%s],v/=s;memmove(r+1,r,++i));}

온라인으로 사용해보십시오!

index대신에 -1 바이트 사용strchr .

이것은 sizeof(int) == sizeof(char *)바이트를 절약하기 위해 일부 변수를 재사용 하여 TIO에서 남용하는 간단한 반복적 접근 방식 입니다.

입력:

• i 입력 번호
• s 소스 기본 문자
• t 대상 기본 문자

산출:

• r 결과 번호 (버퍼에 대한 포인터)

설명:

v;                                        // value of number
c(r,i,s,t)char*r,*i,*t;{
    for(r[1]=v=0;                         // initialize value and second
                                          // character of output to 0
        *i;                               // loop while not at the end of
                                          // input string
         v=v*strlen(s)+index(s,*i++)-s);  // multiply value with source base
                                          // and add the value of the current
                                          // digit (position in the base string)
    for(s=strlen(t),i=1;                  // initialize s to the length of the
                                          // target base string, length of
                                          // result to 1
        *r=t[v%s],v/=s;                   // add character for current digit
                                          // (value modulo target base) and
                                          // divide value by target base until
                                          // 0 is reached
        memmove(r+1,r,++i));              // move result string one place to
                                          // the right
}

파이썬 2 , 97 95 바이트

-2 바이트의 Chas Brown에게 감사합니다.

n,s,t=input()
k=0;w='';x=len(t)
for d in n:k=len(s)*k+s.find(d)
while k:w=t[k%x]+w;k/=x
print w

온라인으로 사용해보십시오!

자바 10, 131 바이트

매개 변수를 문자열로 받아 문자열을 반환하는 람다.

(i,f,o)->{int n=0,b=o.length();var r="";for(var c:i.split(r))n=n*f.length()+f.indexOf(c);for(;n>0;n/=b)r=o.charAt(n%b)+r;return r;}

온라인으로 사용해보십시오

언 골프

(i, f, o) -> {
    int n = 0, b = o.length();
    var r = "";
    for (var c : i.split(r))
        n = n * f.length() + f.indexOf(c);
    for (; n > 0; n /= b)
        r = o.charAt(n % b) + r;
    return r;
}