ท้าทาย

รับฐาน$1 < b < 10$และดัชนี$t \ge 1$ , คำที่ส่งออก$x_t$ , กำหนดดังนี้:

• $x_1 = 11_{10}$
• $x_{i+1}$ได้มาจากการแปลง$x_i$เป็นฐาน$b$จากนั้นแปลค่าตัวเลขอีกครั้งในฐาน$10$
• ผลลัพธ์ควรอยู่ในฐาน$10$

เดินผ่านสำหรับฐาน 5 คำ 5 จะเป็น:

• $x_1 = 11_{10}$ 10
• $11_{10} = 21_{5}$ดังนั้น$x_2 = 21_{10}$ 10
• $21_{10} = 41_{5}$ดังนั้น$x_3 = 41_{10}$ 10
• $41_{10} = 131_{5}$ดังนั้น$x_4 = 131_{10}$ 10
• $131_{10} = 1011_{5}$ดังนั้น$x_5 = 1011_{10}$ 10
• เราส่งออกสตริงหรือจำนวนเต็ม"1011"1011

กรณีทดสอบ

หมายเหตุ: สิ่งเหล่านี้เป็นหนึ่งดัชนี

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

หมายเหตุ

• ไม่อนุญาตช่องโหว่มาตรฐาน
• อนุญาตให้ใช้วิธี I / O เริ่มต้นใด ๆ
• คุณสามารถใช้ดัชนีที่แตกต่างกัน (เช่น 0-indexed, 1-indexed, 2-indexed, ฯลฯ ) สำหรับ$t$
• คุณอาจจะส่งออกเป็นครั้งแรก$t$แง่
• เช่นนี้เป็นรหัสกอล์ฟ , ที่สั้นที่สุดชนะรหัสสำหรับภาษานั้น

JavaScript (Node.js)ขนาด 40 ไบต์

ขอบคุณ @Neil สำหรับการบันทึก 5 ไบต์ในรุ่นนี้และ 2 ไบต์สำหรับรุ่น BigInt

รับอินพุตเป็น(t)(base)โดยที่$t$ถูกทำดัชนี 1 รายการ

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

ลองออนไลน์!

JavaScript (Node.js) , 48 ไบต์ (รุ่น BigInt)

รับอินพุตเป็น(t)(base)โดยที่$t$ถูกทำดัชนี 1 รายการ ส่งคืน BigInt

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

ลองออนไลน์!

05AB1E , 5 ไบต์

>IF¹B

ลองออนไลน์!

คำอธิบาย

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

โปรดทราบว่าไม่มีความจำเป็นที่จะเริ่มต้นอย่างชัดเจนลำดับที่11
เริ่มต้นที่base+1และการทำซ้ำเป็นพิเศษจะมีผลในการย้ำแรกให้11

Japt , 9 ไบต์

ÆB=sV n
B

ลองมัน

(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

ภาษา Wolfram (Mathematica)ขนาด 46 ไบต์

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

ลองออนไลน์!

f[base][t]โทรหา 0 การจัดทำดัชนี

เรติน่า 67 ไบต์

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

$t$$b$

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

$x_0=11$$b$

"$+"{`

$t$

^\d+
*

$x_i$

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

$b$

,_+

$b$

Python 2 , 71 ไบต์

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

ลองออนไลน์!

0 การจัดทำดัชนี

Clojure , 109 ไบต์

มอบเครดิตให้กับ MilkyWay90 สำหรับการลบ 10 ไบต์โดยการค้นหาพื้นที่ที่ไม่จำเป็น เครดิตเพื่อศูนย์รวมของความไม่รู้สำหรับไบต์อื่นจากพื้นที่ที่ไม่จำเป็นอื่น

แข็งแรงเล่นกอล์ฟ

(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)))))))

Ungolfed

(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)))))))

ฉันคิดว่าไบต์หลักจะถูกบันทึกไว้คือการแสดงออกสำหรับ ... reradixing? สิ่งที่จะเรียกว่า โดยเฉพาะ:

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

Perl 6 , 28 ไบต์

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

ลองออนไลน์!

ดัชนีในลำดับนั้นเป็นศูนย์

เยลลี่ , 8 7 ไบต์

‘b³Ḍ$⁴¡

ลองออนไลน์!

$b$$t$$b + 1$ 1

คำอธิบาย

‘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 ไบต์

{y(10/x\)/11}

ลองออนไลน์!

Pyth , 8 ไบต์

uijGQTEh

ลองออนไลน์!

C # (Visual C # Interactive Compiler) , 87 ไบต์

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

บันทึก 5 ไบต์ด้วย @KevinCruijssen

ลองออนไลน์!

brainfuck , 270 ไบต์

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

ลองออนไลน์!

0 การจัดทำดัชนี จำนวนการวนซ้ำจะมากที่สุด 255

คำอธิบาย

เทปวางออกดังนี้:

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

จริง ๆ แล้วแต่ละหลักจะถูกเก็บไว้เป็นตัวเลขนั้นบวกกับ 1 โดยที่ 0 สงวนไว้สำหรับ "ไม่มีตัวเลข" ในระหว่างการแปลงฐานตัวเลขที่กำลังทำงานอยู่จะถูกย้ายหนึ่งเซลล์ไปทางขวาและฐานจะถูกย้ายไปทางซ้ายของพื้นที่ทำงานปัจจุบัน

++<<++              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

ถ่าน 14 ไบต์

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

$t$$b$

≔11ζ

$x_0=11$

ＦＮ

$b$

≔⍘ＩζＩηζ

$x_i$

ζ

$x_t$

Pari / GP , 50 ไบต์

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

ลองออนไลน์!

C (gcc) , 59 ไบต์

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

ลองออนไลน์!

Groovyขนาด 45 ไบต์

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

ลองออนไลน์!

คำตอบของพอร์ต @ Arnauld

PHP , 83 75 ไบต์

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

ลองออนไลน์!

อันนี้จะใช้ได้กับหมายเลข "เล็ก" เท่านั้น (เช่นไม่ใช่กรณีทดสอบ 1 และ 4)

Japt , 10 ไบต์

0 การจัดทำดัชนี ใช้tเป็นอินพุตแรกbเป็นครั้งที่สอง

_ìV ì}gBìC

ลองมัน

Gaiaขนาด 8 ไบต์

Bd
11@↑ₓ

ลองออนไลน์!

ใช้เวลา 0 ตามแล้วiterationsbase

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 ไบต์

ศูนย์การจัดทำดัชนี

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

ลองออนไลน์!

Perl 5 -Mbigint -pa , 65 ไบต์

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

ลองออนไลน์!