เขียนฟังก์ชั่นที่สั้นที่สุดเพื่อแปลงจำนวนเต็มให้เป็นตัวเลขที่ได้รับระหว่าง 2 ถึง 62 เช่น:

to_string(351837066319, 31) => "codegolf"

dc - 43 chars

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

เราสามารถย่อให้สั้นลงได้ถ้าเราสมมติว่า stack มีเพียงสองอาร์กิวเมนต์เท่านั้น

[[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ยังใช้งานได้)

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

(ทั้งสองอิงกับโซลูชัน 1.9 ของ Dogbert)

Python - 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 สำหรับเคล็ดลับการนำเข้าสตริง

Python, 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บันทึกฐานใน register r ฟังก์ชั่น recursive [lr~rd0<x]dsxxสลายตัวเลขลงในตัวเลขในฐานTOS register rตัวเลขแรกคือ 0 เสมอลบออกจากสแต็กด้วยk(ตั้งค่าความแม่นยำซึ่งโดยค่าเริ่มต้นคือ 0 ด้วยดังนั้นจึงเท่ากับ nop) จากนั้นฟังก์ชั่นวนซ้ำจะ[48+d57<ad122<banz0<p]dspxส่งออกแต่ละหลักใน ASCII ด้วยความช่วยเหลือของฟังก์ชั่น a ( [39+]sa) และ b ( [58-]sb) IPขึ้นบรรทัดใหม่ ฟังก์ชั่นจะถูกเก็บไว้ในการลงทะเบียนและสามารถเรียกโดยflfx

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

Haskell, 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"  < +"'"   <-":"<

อันดับแรกให้วางจำนวนที่จะแปลงบนสแต็กจากนั้น Radix และเข้าสู่ฟังก์ชันนี้จากมุมบนซ้ายไปทางขวา จะเอาท์พุทสตริงให้คุณ (เนื่องจาก Befunge ไม่รองรับตัวแปรสตริง) และปล่อยจากด้านล่าง$ลง ต้องการ(1,1)เซลล์สำหรับการจัดเก็บ radix

เช่นสำหรับตัวอย่างที่ใส่351837066319ลงในอินพุทและรัน:

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

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

Ruby 1.9 - แต่น่าเสียดายที่ทำงานได้ถึง 36 ฐานเท่านั้น

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

Bash, 79 ตัวอักษร

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

Python 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

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