怎么不记得电视屏幕上出现的6或7位数字电话号码？使用下面描述的特殊技术，您将变成步行式电话簿！

显然，数字402比110010010数字337377更容易记住，数字比数字更容易记住957472。这意味着，存储的数字一方面应包含尽可能少的数字，另一方面，希望该数字包含尽可能多的重复数字。

作为记忆困难的标准，我们将数字位数与不同数字位数的总和。记忆的号码可以写在另一个号码系统中，也许这样会更容易记住。例如，65535十六进制表示法中的数字看起来像FFFF。

任务

您需要编写一个用于选择数字系统基数的程序，以最小化复杂度标准。数字系统的基数必须在2到36的范围内选择，然后数字0-9和英文字母A-Z可以用来表示数字。

输入值

输入包含从1到999999999的十进制整数。

输出量

输出必须包含数字系统的基数（从2到36），以最小化存储复杂性的标准，并且所选数字系统中的数字以一个空格分隔。如果多个基准为标准提供相同的值，则选择其中最小的一个。

笔记

• 字母必须为大写（A-Z）。

测试用例

输入输出

1              2 1

2              3 2

65535       16 FFFF

123          12 A3

Perl 6的，55个 54字节

-1字节感谢Jo King。

{~map({$^b,.base($b)},2..36).min:{@$_+.Set}o*[1].comb}

在线尝试！

Python 2中，150个 149 127 144字节

lambda n:min((len(c(n,b))+len(set(c(n,b))),b,c(n,b))for b in range(2,37))[1:]
c=lambda n,b,s='':n and c(n/b,b,chr(n%b+48+7*(n%b>9))+s)or s or'0'

在线尝试！

Python 3，136字节

lambda n:min((len((*c(n,b),*{*c(n,b)})),b,c(n,b))for b in range(2,37))[1:]
c=lambda n,b,s='':n and c(n//b,b,chr(n%b+48+7*(n%b>9))+s)or s

在线尝试！

Python 3.8（预发布），131字节

lambda n:min((len((*(x:=c(n,b)),*{*x})),b,x)for b in range(2,37))[1:]
c=lambda n,b,s='':n and c(n//b,b,chr(n%b+48+7*(n%b>9))+s)or s

在线尝试！

c 将以10为底的数字转换为以2至6为基的数字，并且第一个（匿名）函数得出的结果最小。

05AB1E，16 14字节

-1字节感谢Kevin Cruijssen

₆LBāøΣнDÙìg}1è

在线尝试！

或在最后添加R）»以完全符合指定的输出格式，但是大多数其他答案都没有打扰。

说明：

₆L          # range 1..36
  B         # convert the input to each of those bases
   āø       # enumerate (pair each element with its 1-based index)
Σ     }     # sort by
     g      # length
 н          # of the first element
    ì       # concatenated to
  DÙ        # itself, uniquified
1è          # take the second entry (first will always be base 1)

JavaScript（ES6）， 87 85  101字节

编辑：+ 16个无用的字节以符合严格的输出格式

n=>(g=m=>--b>2?g(m<(v=new Set(s=n.toString(b)).size+s.length)?m:(o=b+' '+s.toUpperCase(),v)):o)(b=37)

在线尝试！

Japt v2.0a0 -gS，24的23个字节

不漂亮，但能胜任。+2字节是完全不必要的要求，输出为大写。

37o2@sX u ¸iXÃñÈÌiXÌâ)l

尝试一下

37o2@sX u ¸iXÃñÈÌiXÌâ)l     :Implicit input of integer
37o2                        :Range [2,37)
    @                       :Map each X
     sX                     :  Convert the input to a base-X string
        u                   :  Uppercase
          ¸                 :  Split on spaces (there are none, so this returns a singleton array)
           iX               :  Prepend X
             Ã              :End map
              ñ             :Sort by
               È            :Pass each X through the following function
                Ì           :  Last element of X
                 i          :  Prepend
                  XÌâ       :    Last element of X, deduplicated
                     )      :  End prepend
                      l     :  Length
                            :Implicit output of the first sub-array, joined with spaces

PHP，124 119字节

for($i=36;$b=strtoupper(base_convert($argn,10,--$i));$o[strlen($b.count_chars($b,3))]="$i $b");krsort($o);echo end($o);

在线尝试！

遗憾的是，PHP中+12个字节使输出大写...但是...无论如何。

Zsh，85个字节

for b ({36..2})x=$[[#$b]$1]&&x=${x#*\#}&&a[$#x+${#${(us::)x}}]=$b\ $x
a=($a)
<<<$a[1]

对于for循环内的此语句数量，using ...&&...&&...短于{...;...;...;}。

for b ({36..2})                   # order decreasing: smaller bases overwrite larger ones
    x=$[[#$b]$1] && \             # set x to [base]#[num] 
    x=${x#*\#} && \               # strip leading [base]#
    a[$#x+${#${(us::)x}}]=$b\ $x  # use score as index to store "[base] [number]"
#            ${(us::) }           # (s::)plit into characters, take (u)nique
a=($a)                            # remove empty elements from array
<<<$a[1]                          # print out the first element (smallest score)

在线尝试！

这是一个81字节的解决方案，它以表格形式打印[base]#[num]：

for b ({36..2})x=$[[#$b]$1]&&y=${x#*\#}&&a[$#y+${#${(us::)y}}]=$x
a=($a)
<<<$a[1]

在线尝试！

J，67个字节

(];'0123456789ABCDEF'{~b)[:(2+]i.<./)](#+#@~.)@(b=:#.inv~)"+2+i.@35

在线尝试！

木炭，38字节

Ｎθ≔ＥＥ³⁴↨θ⁺²ιＬ⁺ιΦι⁼λ⌕ικη≔⁺²⌕η⌊ηηＩη ↥⍘θη

在线尝试！链接是详细版本的代码。说明：

Ｎθ

输入整数。

≔ＥＥ³⁴↨θ⁺²ι

将其从2转换为36

Ｌ⁺ιΦι⁼λ⌕ικη

...重复数据删除，连接并占用长度。

≔⁺²⌕η⌊ηη

取最小复杂度的索引并加2得出基数。

Ｉη ↥⍘θη

打印基数和以大写形式转换为该基数的整数。

Stax，19 个字节

Ç╛;ⁿY3█↕(╖S♪*ò▌?½╦l

运行并调试

没有花哨的算法，只是简单的蛮力。该程序中约有三分之一需要为精确的输出规则进行格式调整。

奖励计划：[1..1000]的输出

果冻，25个字节

bⱮ36µQL+LN)Mḟ1Ḣ,ị‘ịØBʋ¥⁸K

在线尝试！

以整数为参数并返回所需格式的Jelly字符串的单子链接。如果两个项目的列表是可接受的输出（按照大多数挑战），则可以节省2个字节。如果对于1的边缘情况而言，以1为底是可接受的，则可以再节省2个字节。

Brachylog，44位元组

∧Y≜∧36≥Xℕ₂≜&ḃ↙X Zd,Zl≡Y∧XwṢwZ{-₁₀;Ạụᵗ∋₍|}ᵐwᵐ

在线尝试！

这样写有点痛。

Perl 5，161个字节

sub f{$X=99;for$b(2..36){$_=c($_[0],$b);$x=uniq(/./g)+y///c;($X,$B,$C)=($x,$b,$_)if$x<$X}$B,$C}
sub c{my($n,$b)=@_;$n?c(int$n/$b,$b).chr(48+$n%$b+7*($n%$b>9)):''}

在线尝试！

Python 2，140个 135字节

lambda n:min([(b,g(n,b))for b in range(2,36)],key=lambda(b,s):len(s)+len(set(s)))
g=lambda n,b:n and g(n/b,b)+chr(n%b+48+7*(n%b>9))or''

在线尝试！

Perl 5中 -Minteger -MList::Util=uniq,first -ap，123个 112字节

$"=$,;map{@r=();$t="@F";do{unshift@r,(0..9,A..Z)[$t%$_]}while$t/=$_;$a[@r+uniq@r]||="$_ @r"}2..36;$_=first{$_}@a

在线尝试！

Wolfram语言（Mathematica），109111字节

Print[a=OrderingBy[#~IntegerDigits~Range@36,Tr[1^#]+Tr[1^Union@#]&,1][[1]]," ",ToUpperCase[#~IntegerString~a]]&

+2：固定。感谢@Roman的收获

OrderingBy 是在Mathematica 12.0中引入的，TIO似乎尚未更新。

C（clang），165个字节

n,i=2,j,p=99,r,m,x;char*g,*_,b[74][37];t(n){for(;g=b[i],i<37;r=j<p?_=g,p=j,i:r,++i)for(j=0,m=n;m;m/=i,*--g=x+=x>9?87:48)j+=b[i+36][x=m%i]++?1:2;printf("%i,%s",r,_);}

在线尝试！

n //输入

，i = 2 //迭代器从2到36

，j //当前复杂度

，p = 99 //最佳复杂度

，r // result =迭代器

，m // n的临时副本

，x; // m％i

char * g //当前字符串ptr

，* _ //最佳str ptr

，b [74] [37]; //缓冲区

/ * [37 + 37] = [获得的字符串+测试使用过的字符] * /

t（n）{

for（; g = b [i]，//移动点

   i<37 ; 
   r=j<p?_=g,p=j,i:r, // save best solution

   ++i){//for every base

for（j = 0，m = n; m; m / = i，//提取数字

   *--g=x+=x>9?87:48)
   // move ptr backward for printf use and transform to ascii value

j + = b [i + 36] [x = m％i] ++？1：2; //相对于字符的增量字节

//如果为0，则将使用的新字符的j值以2：1递增，以1的位数计数

//否则只增加数字计数+移动指针

// printf（“％s-”，g）; //测试

// printf（“ r％ip％ij％i \ n”，r，p，j）; //测试

}

printf（“％i，％s”，r，_）; //输出

}

Japt v2.0a0，31 个字节

2o37 ñ@sX Ê+UsX â ÊÃÎ
+S+NÎsU u

尝试一下