Напишите самую короткую функцию, чтобы преобразовать целое число в числовое представление с учетом радиуса от 2 до 62. Например:

to_string(351837066319, 31) => "codegolf"

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 Догберта.)

Питон - 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 за уловку импорта строк

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также работает).

Питон, 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. Рекурсивная функция [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выводит новую строку. Функция хранится в регистре fи может быть вызвана с помощью lfx.

Рубин - 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"  < +"'"   <-":"<

Сначала поместите число, которое нужно преобразовать, в стек, затем ось и введите эту функцию слева направо. Выведет строку для вас (поскольку Befunge не поддерживает строковые переменные) и уйдет снизу $вниз. Требуется (1,1)ячейка для хранения радиуса.

Например, для приведенного примера вставьте его 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 / = б) при 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)}

Баш, 79 символов

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