Thử thách

Cho cơ sở và chỉ số , thuật ngữ đầu ra , được xác định như sau:$1 < b < 10$$t \ge 1$$x_t$

• $x_1 = 11_{10}$
• $x_{i+1}$ có được bằng cách chuyển sang cơ sở và sau đó diễn giải lại các chữ số của nó trong cơ sở$x_i$$b$$10$
• Đầu ra phải ở cơ sở$10$

Đi bộ qua cơ sở 5, học kỳ 5 sẽ là:

• $x_1 = 11_{10}$ .
• $11_{10} = 21_{5}$ nên .$x_2 = 21_{10}$
• $21_{10} = 41_{5}$ nên .$x_3 = 41_{10}$
• $41_{10} = 131_{5}$ nên .$x_4 = 131_{10}$
• $131_{10} = 1011_{5}$ nên .$x_5 = 1011_{10}$
• Chúng tôi xuất chuỗi "1011"hoặc số nguyên 1011.

Các trường hợp thử nghiệm

Lưu ý: đây là một chỉ mục

base 2, term 5 --> 1100100111110011010011100010101000011000101001000100011011011010001111011100010000001000010011100011
base 9, term 70 --> 1202167480887
base 8, term 30 --> 4752456545
base 4, term 13 --> 2123103032103331200023103133211223233322200311320011300320320100312133201303003031113021311200322222332322220300332231220022313031200030333132302313012110123012123010113230200132021023101313232010013102221103203031121232122020233303303303211132313213012222331020133

Ghi chú

• Sơ hở tiêu chuẩn không được phép
• Mọi phương thức I / O mặc định đều được cho phép
• Bạn có thể sử dụng các chỉ mục khác nhau (chẳng hạn như 0 chỉ mục, 1 chỉ mục, 2 chỉ mục, v.v.) cho$t$
• Bạn có thể xuất các điều khoản đầu tiên .$t$
• Vì đây là môn đánh gôn , mã ngắn nhất sẽ thắng cho ngôn ngữ đó

JavaScript (Node.js) , 40 byte

Cảm ơn @Neil vì đã lưu 5 byte trên phiên bản này và 2 byte trên phiên bản BigInt

Lấy đầu vào là (t)(base), trong đó $t$ là 1 chỉ mục.

n=>g=(b,x=11)=>--n?g(b,+x.toString(b)):x

Hãy thử trực tuyến!

JavaScript (Node.js) , 48 byte (phiên bản BigInt)

Lấy đầu vào là (t)(base), trong đó $t$ là 1 chỉ mục. Trả về một BigInt.

n=>g=(b,x=11n)=>--n?g(b,BigInt(x.toString(b))):x

Hãy thử trực tuyến!

05AB1E , 5 byte

>IF¹B

Hãy thử trực tuyến!

Giải trình

>       # increment <base>
 IF     # <term> times do:
   ¹B   # convert from base-10 to base-<base>

Lưu ý rằng không cần phải bắt đầu trình tự rõ ràng ở 11 .
Bắt đầu tại base+1và thực hiện một lần lặp thêm sẽ dẫn đến lần lặp đầu tiên cho 11 .

Japt , 9 byte

ÆB=sV n
B

Thử nó

(Two inputs, U and V)
Æ            Range [0..U)
 B=          For each, set B (B is preinitialized to 11) to 
   sV          B's previous value converted to base-V
   n           and back to base-10
B            Print out B's final value

Ngôn ngữ Wolfram (Mathicala) , 46 byte

bNest[FromDigits[#~IntegerDigits~b]&,11,#]&

Hãy thử trực tuyến!

Gọi với f[base][t]. Chỉ số 0.

Võng mạc , 67 byte

.+,(\d+)
11,$1*
"$+"{`^\d+
*
)+`(?=_.*,(_+))(\1)*(_*)
$#2*_$.3
,_+

Hãy thử trực tuyến! Có các đầu vào được phân tách bằng dấu phẩy $t$ (được lập chỉ mục 0) và $b$ . Có phải tất cả các tính toán của nó trong unary vì vậy lần ra cho số lượng lớn. Giải trình:

.+,(\d+)
11,$1*

$x_0=11$$b$

"$+"{`

$t$

^\d+
*

$x_i$

)+`(?=_.*,(_+))(\1)*(_*)
$#2*_$.3

$b$

,_+

$b$

Python 2 , 71 byte

def f(b,n):h=lambda x:x and x%b+10*h(x/b);return n and h(f(b,n-1))or 11

Hãy thử trực tuyến!

Chỉ số 0.

Clojure , 109 byte

Tín dụng cho MilkyWay90 để xóa 10 byte bằng cách phát hiện các khoảng trắng không cần thiết Tín dụng để thể hiện sự thiếu hiểu biết cho một byte khác từ một không gian không cần thiết khác

Chơi gôn

(defn f([b t](f b t 11))([b t v](if(= t 1)v(f b(dec t)(read-string(.(new BigInteger(str v))(toString b)))))))

Ung dung

(defn f
  ([base term] (f base term 11))
  ([base term value] (if (= term 1)
                      value
                      (f base (dec term) (read-string (. (new BigInteger (str value)) (toString base)))))))

Tôi nghĩ rằng các byte vị trí chính có thể được lưu là biểu thức cho ... chạy lại? bất cứ điều gì sẽ được gọi là. Đặc biệt:

(read-string (. (new BigInteger (str value)) (toString base)))

Perl 6 , 28 byte

{(11,+*.base($^b)...*)[$^t]}

Hãy thử trực tuyến!

Chỉ số vào chuỗi là không dựa trên.

Thạch , 8 7 byte

‘b³Ḍ$⁴¡

Hãy thử trực tuyến!

$b$$t$$b + 1$

Giải trình

‘b³Ḍ$⁴¡ | Main link: first argument b, second argument t
‘       | b + 1
    $⁴¡ | Repeat the following t times
 b³     | Convert to base b
   Ḍ    | Convert back from decimal to integer

K (ngn / k) , 13 byte

{y(10/x\)/11}

Hãy thử trực tuyến!

Bình thường , 8 byte

uijGQTEh

Hãy thử trực tuyến!

C # (Trình biên dịch tương tác Visual C #) , 87 byte

n=>m=>{int g=11;for(var s="";m-->0;g=int.Parse(s),s="")for(;g>0;g/=n)s=g%n+s;return g;}

Đã lưu 5 byte nhờ @KevinCruijssen

Hãy thử trực tuyến!

Brainfuck , 270 byte

++<<++<,+++<-[----->-<]<,,[<-----[->++++++++++<]++>[-<+>],]<[>>>>>>[<<<[->>+<<]>>>>>]<<[[>+<-]>>[-[<++++++++++>-]>+>]<[<<]>>[-<<+>>>+<]>>[-[<-[>>+>>]>>[+[-<<+>>]>[-<]<[>]>++>>>]<<<<<-]+>[-<+<+>>]<<[->>+<<]>>>]<[-]<[[-<+>]<<]<]<[->>+<<]<-]>>>>[>>]<<[>-[-----<+>]<----.<<]

Hãy thử trực tuyến!

Chỉ số 0. Số lần lặp được giả định là tối đa 255.

Giải trình

Các băng được đặt ra như sau:

num_iterations 0 0 base digit0 0 digit1 0 digit2 ...

Mỗi chữ số thực sự được lưu dưới dạng chữ số đó cộng với 1, với 0 được dành riêng cho "không có thêm chữ số". Trong quá trình chuyển đổi cơ sở, các chữ số hiện đang được làm việc được di chuyển một ô sang bên phải và cơ sở được di chuyển sang bên trái của khu vực làm việc hiện tại.

++<<++              Initialize initial value 11
<,+++<-[----->-<]   Get single digit as base and subtract 48 to get actual number
<,,[<-----[->++++++++++<]++>[-<+>],]   Read multiple digits as number of iterations
<                   Go to cell containing number of iterations

[                   For each iteration:
  >>>>>>              Go to tens digit cell
  [<<<[->>+<<]>>>>>]  Move base to just before most significant digit
  <<                  Return to most significant digit

  [                   For each digit in number starting at the left (right on tape):
    [>+<-]            Move digit one cell to right (to tell where current digit is later)
    >>[-[<++++++++++>-]>+>]  Multiply each other digit by 10 and move left
    <[<<]>>           Return to base
    [-<<+>>>+<]       Copy base to just before digit (again) and just before next digit to right (left on tape)
    >>[               For each digit at least as significant as this digit:

      -[<-[>>+>>]>>[+[-<<+>>]  Compute "digit" divmod base
      >[-<]<[>]>++    While computing this: add quotient to next digit; initialize digit to "1" (0) first if "0" (null)
      >>>]<<<<<-]     End of divmod routine

      +>[-<+<+>>]     Leave modulo as current digit and restore base
      <<[->>+<<]      Move base to next position
      >>>
    ]

    <[-]<             Delete (now useless) copy of base
    [[-<+>]<<]<       Move digits back to original cells
  ]                   Repeat entire routine for each digit

  <[->>+<<]           Move base to original position
  <-                  Decrement iteration count
]

>>>>[>>]<<[>-[-----<+>]<----.<<]  Output by adding 47 to each cell containing a digit

Than , 14 byte

≔11ζＦＮ≔⍘ＩζＩηζζ

$t$$b$

≔11ζ

$x_0=11$

ＦＮ

$b$

≔⍘ＩζＩηζ

$x_i$

ζ

$x_t$

Pari / GP , 50 byte

(b,n)->x=11;for(i=2,n,x=fromdigits(digits(x,b)));x

Hãy thử trực tuyến!

C (gcc) , 59 byte

f(t,b){t=t?c(f(t-1,b),b):11;}c(n,b){n=n?c(n/b,b)*10+n%b:0;}

Hãy thử trực tuyến!

Groovy , 45 byte

a,b,c=11->a--?f(a,b,a.toString(c as int,b)):c

Hãy thử trực tuyến!

Câu trả lời của cảng @ Arnauld

PHP , 83 75 byte

function c($b,$t,$v=11){return $t==1?$v:c($b,$t-1,base_convert($v,10,$b));}

Hãy thử trực tuyến!

Công cụ này sẽ chỉ hoạt động với các số "nhỏ" (ví dụ: không phải trường hợp kiểm tra 1 và 4)

Japt , 10 byte

Chỉ số 0. Lấy tlàm đầu vào đầu tiên, bnhư đầu vào thứ hai.

_ìV ì}gBìC

Thử nó

Gaia , 8 byte

Bd
11@↑ₓ

Hãy thử trực tuyến!

Đưa 0 dựa trên iterationssau đó base.

Bd		| helper function: convert to Base b (implicit) then convert to base 10
		| main function:
11		| push 11
  @		| push # of iterations
   ↑ₓ		| do the above function (helper function) that many times as a monad

Ruby , 39 byte

Không có chỉ mục.

->b,n,x=11{n.times{x=x.to_s(b).to_i};x}

Hãy thử trực tuyến!

Perl 5 -Mbigint -pa , 65 byte

$\=11;map{$p=$\;$\%=0+"@F";$\=($p%"@F").$\while$p/=0+"@F"}2..<>}{

Hãy thử trực tuyến!