정수를 2에서 62 사이의 기수로 주어진 숫자 표현으로 변환하는 가장 짧은 함수를 작성하십시오. 예 :

to_string(351837066319, 31) => "codegolf"

dc-43 자

[sb[58-]s_[lb~dZ39*+dB3<_9+rd0<xrP]dsxxk]sf

스택에 두 개의 인수 만 포함되어 있다고 가정하면 이것을 약간 줄일 수 있습니다.

[[58-]s_dSb~dZ39*+dB3<_9+SadLbr0<fLaPc]sf

독립형 프로그램으로서 37 자만 필요합니다 :

?o[58-]s_[O~dZ39*+dB3<_9+rd0<xrP]dsxx

을 사용하는 대신 [39+]sz9<z간단히을 사용 Z39*+하여 한 자리 숫자에 39를, 두 자리 숫자에 78을 추가합니다. 대신에 113우리는 B3( AD또한 작동합니다)를 사용합니다.

루비 1.8-75 자, 재귀

f=proc{|n,b|(n<b ? "":f[n/b,b])+([*'0'..'9']+[*'a'..'z']+[*'A'..'Z'])[n%b]}

재귀없이

f=proc{|n,b|d=[*'0'..'9']+[*'a'..'z']+[*'A'..'Z'];s=d[n%b];s=d[n%b]+s while(n/=b)>0;s}

(둘 다 Dogbert의 1.9 솔루션을 기반으로합니다.)

파이썬-86

from string import*
def t(n,r,s=''):
 while n:s=printable[n%r]+s;n/=r
 return s or'0'

문자열 임포트 트릭에 대한 Hoa Long Tam의 크레딧

파이썬, 93 99

from string import *
d=digits+letters
def t(n,b):
 s=''
 while n>0:s=d[n%b]+s;n/=b
 return s or '0'

편집 : 빈 문자열 경우 "또는 '0'"추가

dc, 61 자

[sr[lr~rd0<x]dsxxk[39+]sa[58-]sb[d9<ad78<b48+anz0<p]dspxIP]sf

다음으로 실행 :

dc -e'[sr[lr~rd0<x]dsxxk[39+]sa[58-]sb[d9<ad78<b48+anz0<p]dspxIP]sf' -e'351837066319 31 lfx'

또는:

dc -f base.dc -e '351837066319 31 lfx'

설명 : 우리는 숫자와 스택을 기준으로합니다. sr베이스를 레지스터 r에 저장합니다. 재귀 함수 는 숫자를 base의 숫자로 [lr~rd0<x]dsxx분해합니다 . 첫 번째 숫자는 항상 0이며 스택에서 제거됩니다 (기본적으로 0도 설정되므로 nop와 같습니다). 그런 다음 재귀 함수 는 함수 a ( ) 및 b ( )를 사용하여 각 숫자를 ASCII로 출력합니다 . 개행을 출력합니다. 이 함수는 register에 저장되며에 의해 호출 될 수 있습니다 .TOSregister rk[48+d57<ad122<banz0<p]dspx[39+]sa[58-]sbIPflfx

루비 -72 70 59 자

f=->n,b{(n<b ? "":f[n/b,b])+[*?0..?9,*?a..?z,*?A..?Z][n%b]}

재귀없이 70 자

f=->n,b{d=*?0..?9,*?a..?z,*?A..?Z;s=d[n%b];s=d[n%b]+s while(n/=b)>0;s}

테스트

irb(main):080:0> f[351837066319, 31]
=> "codegolf"
irb(main):081:0> f[0, 31]
=> "0"

하스켈, 109 자

m=divMod
d(0,x)b=[f x]
d(r,x)b=f x:d(m r b)b
f=(!!)$['0'..'9']++['a'..'z']++['A'..'Z']
s x b=reverse$d(m x b)b

Befunge-53 x 2 = 106 자

또는 프로그램의 다른 부분을 왼쪽 하단을 통해 라우팅하려는 경우 53 + 46 = 99 자입니다.

11p01-\>:11g%\11g/:#v_$>:1+!#v_:45+`!#v_:75*`!#v_   v
       ^            <  ^,    $# +"0"  < +"'"   <-":"<

먼저 스택에 변환 할 숫자를 배치 한 다음 기수를 놓고 왼쪽 상단부터 오른쪽으로이 함수를 입력하십시오. Befunge는 문자열 변수를 지원하지 않기 때문에 문자열을 출력하고 $아래 에서 아래 로 내려갑니다. (1,1)기수 저장을 위해 셀이 필요합니다 .

예를 들어 주어진 예를 들어 351837066319입력에 넣고 실행하십시오.

&56*1+    11p01-\>:11g%\11g/:#v_$>:1+!#v_:45+`!#v_:75*`!#v_   v
                 ^            <  ^,    $# +"0"  < +"'"   <-":"<
                                       @

골프 스크립트-32 자

{base{.9>39*+.74>58*48--}%''+}:f

루비 1.9 - 80 74 68

t =-> n, b {d = ? 0 ..? 9 ,? a ..? z, *? A ..? Z; s = ''; (s = d [n % b] + s; n / = b) n> 0; s} 동안

빈 문자열의 경우 '0', 95 89 82 자 :

t=->n,b,s=''{d=*?0..?9,*?a..?z,*?A..?Z;(s=d[n%b]+s;n/=b)while n>0;s.empty?? ?0: s}

루비 1.9-불행히도 기본 36까지만 작동합니다.

t=->n,b{n.to_s(b)}

배쉬, 79 자

f(){
dc<<<$2o$1p|perl -pe"y/A-Z/a-z/;s/ \d+/chr$&+($&<10?48:$&<36?87:29)/ge"
}

파이썬 2 , 66 바이트

from string import*
f=lambda n,b:n and f(n/b,b)+printable[n%b]or''

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

해 학적 인 , 4 바이트

peB!

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

운좋게 내장 된 Burlesque

pe # Parse and push
B! # Convert base

펄 5 -Minteger -ap , 52 바이트

do{$\=(0..9,a..z,A..Z)[$_%$F[1]].$\}while$_/=$F[1]}{

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

자바 스크립트 170 바이트

function f1(ni,nr){
let s1='0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
let s2='';
while(ni>0){
s2=s1[ni%nr]+s2;
ni=Math.floor(ni/nr);
}
return s2;
}