次のプロセスを検討してください。

N.整数非負撮影
などを27。
それを整数に分割N - floor(N/2)しfloor(N/2)（「大きい」と「小さい」半分）、その順序で書き込みます。
例えばに27なり14 13ます。
スペースを削除して、整数をより大きな整数に結合します。
例えばに14 13なり1413ます。
手順2と3を必要な回数繰り返します。
例えば1413→ 707 706→ 707706→ 353853 353853→ 353853353853→...

この課題は、まさにこれを行うことですが、必ずしも10進ではありません。

チャレンジ

B、N、Sの3つの数字を取り込むプログラムを作成します。

Bは2〜10の整数で、Nの基数（2進数から10進数）です。
Nは、分割-再結合プロセスを適用する非負の整数です。ユーザー入力を容易にするために、整数ではなくベースBの文字列として指定されます。
Sは、分割と再結合のプロセスを繰り返す回数である負でない整数です。

プログラムの出力は、S分割-結合プロシージャの後のベースBのNの文字列表現です。

Sがの0場合、分割は行われないため、出力は常にNです。

Nがの場合0、すべての分割はフォーム0 0を持ち、0再び縮小されるため、出力は常に0です。

例

B = 10, N = 27, S = 1 → 1413
B = 10, N = 27, S = 2 → 707706
B = 9, N = 27, S = 1 → 1413
B = 9, N = 27, S = 2 → 652651
B = anything, N = anything, S = 0 → N
B = anything, N = 0, S = anything → 0

N = 1S = 0toのすべてのBの表7：

B       S=0     S=1     S=2     S=3         S=4             S=5                 S=6                                 S=7
2       1       10      11      101         1110            111111              10000011111                         10000100001000001111
3       1       10      21      1110        202201          101101101100        1201201201212012012011              212100212102121002121212100212102121002120
4       1       10      22      1111        223222          111311111311        2232222232322322222322              11131111131311311111311113111113131131111131
5       1       10      32      1413        432431          213441213440        104220331443104220331442            2433241322130211014044424332413221302110140443
6       1       10      33      1514        535535          245550245545        122553122553122553122552            4125434125434125434125441254341254341254341254
7       1       10      43      2221        11111110        40404044040403      2020202202020220202022020201        10101011010101101010110101011010101101010110101011010100
8       1       10      44      2222        11111111        44444454444444      2222222622222222222226222222        11111113111111111111131111111111111311111111111113111111
9       1       10      54      2726        13581357        62851746285173      3142536758708231425367587081        15212633743485606571782880411521263374348560657178288040
10      1       10      55      2827        14141413        70707077070706      3535353853535335353538535353        17676769267676676767692676771767676926767667676769267676

S = 0toのランダムNを持つすべてのBの表3：

B       S=0     S=1         S=2                 S=3
2       11011   11101101    11101111110110      11101111110111110111111011
3       2210    11021101    20102012010200      1001212100121210012121001211
4       1113    230223      112112112111        2302302302323023023022
5       101     2323        11341134            31430423143042
6       120     4040        20202020            1010101010101010
7       134     5252        24612461            1230456412304564
8       22      1111        445444              222622222622
9       4       22          1111                505505
10      92      4646        23232323            1161616211616161

詳細

stdinまたはコマンドラインを使用して入力します。stdoutへの出力。
プログラムの代わりに、B、N、およびSを取り、結果を通常どおりに印刷するか、結果を（文字列として）返す関数を作成できます。
B、N、およびSは任意の順序で使用できます。
10進値が2 ³²未満の出力を生成するすべての入力が機能するはずです。
Nは通常の方法で表されます。すなわち最初に最も重要なケタと書かれたゼロ自体を除いて先行ゼロがありません0。（00代わりに出力すること0は無効です。）
バイト単位の最短コードが優先されます。

^{IFFあなたは私の挑戦を楽しみ、与えることを検討ブロックビルボット群れを！いくつかの愛：）}

— カルビンの趣味
ソース

回答のリーダーボードが本当に必要かどうかはわかりません。

— orlp

5

@orlpおそらくない。回答がたくさんある場合は、削除して元に戻します。私と自分のOptimizer Stack Snippet shenanigansを披露したかっただけです。

— カルバンの趣味

5

Pyth、21 19バイト

vujksmjldQc2UiGQvwz

形式で入力を取りますN\nB\nS。オンラインで試す：デモンストレーションまたはテストハーネス

説明

                      implicit: z = 1st input (N)
                                Q = 2nd input evaluated (B)
 u              vwz   reduce z (evaluated 3rd input) times by:
             iGQ         convert string from base Q to base 10
            U            create a range [0, 1, ..., ^-1]
          c2             split into 2 lists (lengths are N-[N/2] and [N/2])
     m                   map each list d to:
       ld                   their length
      j  Q                  in base Q
    s                    join both lists
  jk                     join the numbers by ""
v                     convert string to int (getting rid of leading zeros)

— ジャクベ
ソース

5

Pyth、29 21バイト

jku+j-JiGQK/J2QjKQvwz

本当に簡単な実装。

次の形式で標準入力に入力します。

N
B
S

— orlp
ソース

これは間違って出力できます00のためにN=0。

— ジャクベ

5

Mathematica、101バイト

Nest[a~Function~(b=FromDigits)[Through@((c=IntegerString)@*Ceiling<>c@*Floor)[a/2],#],#2~b~#,#3]~c~#&

いくつかのThroughトリックを使用して、天井と床の両方の機能を適用します。エラーを無視してください。

— LegionMammal978
ソース

5

CJam、24バイト

q~:B;{:~Bb_)\]2f/Bfbs}*i

ここでテストしてください。入力をとして受け取ります"N" S B。

説明

q~                       e# Read an eval input.
  :B;                    e# Store the base in B and discard it.
     {               }*  e# Repeat S times.
      :~                 e# Turn the string N into an array of digits.
        Bb               e# Interpret as base B.
          _)\            e# Duplicate and increment. Swap order.
             ]2f/        e# Wrap them in an array and (integer-)divide both by 2.
                 Bfb     e# Convert both to base B.
                    s    e# Flatten into a single string.
                       i e# Convert to an integer to fix the N = 0 case.

— マーティン・エンダー
ソース

"0" 1 9出力された00。私はそれをゴルフしようとしました：がq~:B;{:~Bb,2/z:,Bfbs}*、代わりに空の文字列を出力したため無効です。

— jimmy23013

i最後には、の世話をするでしょう00。あなたは置き換えることにより、バイトを取り戻すことができ2/:I-I]てを)\]2f/。

— デニス

3

JavaScript（ES6）78 79

再帰関数。スニペットを実行してテストする（Firefoxのみ）

1バイト保存されたthx @DocMaxを編集

F=(b,n,s,S=x=>x.toString(b),m=parseInt(n,b))=>m*s?F(b,S(-~m>>1)+S(m>>1),s-1):n

// Ungolfed

U=(b,n,s)=>
{
  var S=x=>x.toString(b) // function to convert in base b
  var m=parseInt(n,b) // string in base b to integer
  if (m==0 || s==0)
    return n
  else  
    return F(b,S((m+1)>>1) + S( m>>1 ),s-1)
}

// Test
test=[
  {B: 10, N: '0', S:3, K: '0' }, {B: 10, N: '27', S: 1, K: '1413' }, {B: 10, N: '27', S: 2, K: '707706' }, {B: 9, N: '27', S: 1, K: '1413' }, {B: 9, N: '27', S: 2, K: '652651' }
];

test2=[[2, '11011', '11101101', '11101111110110', '11101111110111110111111011'],[3, '2210', '11021101', '20102012010200', '1001212100121210012121001211'],[4, '1113', '230223', '112112112111', '2302302302323023023022'],[5, '101', '2323', '11341134', '31430423143042' ]  ,[6, '120', '4040', '20202020', '1010101010101010'],[7, '134', '5252', '24612461', '1230456412304564'],[8, '22', '1111', '445444', '222622222622'],[9, '4', '22', '1111', '505505'],[10, '92', '4646', '23232323', '1161616211616161' ]
]
test2.forEach(r=>test.push(
  {B:r[0],N:r[1],S:1,K:r[2]}, {B:r[0],N:r[1],S:2,K:r[3]}, {B:r[0],N:r[1],S:3,K:r[4]}
))  

test.forEach(t => (
  r=F(t.B, t.N, t.S), 
  B.innerHTML += '<tr><th>'+(r==t.K?'Ok':'Failed')
      +'</th><td>'+t.B +'</td><td>'+t.N
      +'</td><td>'+t.S +'</td><td>'+r +'</td><td>'+t.K +'</td></tr>'
))

th,td { font-size: 12px; padding: 4px; font-family: helvetica }

<table><thead><tr>
  <th>Test<th>B<th>N<th>S<th>Result<th>Check
  </tr></thead>
  <tbody id=B></tbody>
</table>

スニペットを展開

— edc65
ソース

私はあなたの成功の証拠がどれほど精巧であるかを本当に愛しています。また、あなたは置き換えることにより、1を保存することができm&&sてm*s。

— DocMax

1

@DocMaxは、実際の便利な単体テストです。ゴルフ中にすべてを壊すのは簡単すぎます。

— edc65

1

ECMAScript 6、90バイト

var f=(B,N,S)=>((n,s)=>S?f(B,s(n+1>>1)+s(n>>1),S-1):s(n))(parseInt(N,B),x=>x.toString(B))

変数を使用して再帰関数を定義するのは本当に良いスタイルではありませんが、ECMAScript 6で思いつく最短のコードです。

コーナーケースを"00" => "0"正しく取得すると、3バイトが無駄になります（s(n)単純にではなくN）。

試してみるには、BabelのREPLを使用できます。コードをコピーして貼り付け、呼び出し結果の例を次のように出力しますconsole.log(f(9, "27", 2))。

— YetAnotherFrank
ソース

1

Common Lisp-113文字

(lambda(b n s)(dotimes(i s)(setf n(format ()"~vR~vR"b (- #1=(parse-integer n :radix b)#2=(floor #1# 2))b #2#)))n)

非ゴルフ

(lambda(b n s)
  (dotimes(i s)
    (setf n (format () "~vR~vR" b (- #1=(parse-integer n :radix b)
                                     #2=(floor #1# 2))
                                b #2#)))
  n)

~vRベース内のフォーマット指令出力整数v、v引数として提供されますformat。
parse-integer:radix指定されたベースから変換するための引数を受け入れます。

#1=および#1#（それぞれ割り当ておよび使用）は、共通の部分式を共有できるようにするリーダー変数です。展開すると、次のコードが表示されます。

(lambda (b n s)
  (dotimes (i s)
    (setf n
            (format nil "~vr~vr" b
                    (- (parse-integer n :radix b)
                       (floor (parse-integer n :radix b) 2))
                    b (floor (parse-integer n :radix b) 2))))
  n)

— コアダンプ
ソース

0

ピップ、27バイト

Lcb:+J[(bFB:a)%2i]+b//2TBab

コマンドライン引数として、ベース、整数、および繰り返し回数を取ります。アルゴリズムは簡単ですが、いくつかの興味深い言語機能を使用します。

                             a, b, c initialized from cmdline args, and i = 0 (implicit)
Lc                           Do c times:
        bFB:a                Convert b from base a to decimal and assign back to b
      [(     )%2i]           Construct a list containing b%2 and 0 (using i to avoid
                               scanning difficulties)
                  +b//2      Add floor(b/2) to both elements of list; the list now contains
                               b-b//2 and b//2
                       TBa   Convert elements of list back to base a
     J                       Join list
    +                        Coerce to number (necessary to turn 00 into plain 0)
  b:                         Assign back to b
                          b  Print b at the end

ここでは、数値と文字列の両方を表すPipのスカラー型が便利です。リストに対する項目ごとの操作も同様です。残念ながら、括弧と2文字のオペレーターFB、TBと//否定任意の利点。

代替ソリューション、中間割り当てなしで、まだ27バイト：

Lcb:+J[bFBa%2i]+bFBa//2TBab

— DLosc
ソース

0

C、245バイト

int b,z,n,f,r;c(char*t,n){return n?((z=c(t,n/b)),z+sprintf(t+z,"%d",n%b)):0;}main(){char t[99],*p;gets(t);b=atoi(t);f=n=strtol(p=strchr(t,32)+1,0,b);if(!(r=atoi(strchr(p,32)+1)))f=0;while(r--)n=strtol(t+c(t+c(t,n-n/2),n/2)*0,0,b);puts(f?t:"0");}

これは何も勝ちませんが、作るのは楽しかったです！

— kirbyfan64sos
ソース

0

PHP、115 112バイト

function($b,$n,$s){while($s--)$n=($c=base_convert)(ceil($n=$c($n,$b,10)/2),10,$b).$c(floor($n),10,$b);return$n;}

オンラインでお試しください！

ゴルフをしていない：

function split_join_repeat( $b, $n, $s ) {
    // repeat S times
    for( $x=0; $x < $s; $x++ ) {
        // convert N from base B to base 10 for arithmetic
        $n = base_convert( $n, $b, 10 );
        // divide and split in base 10, convert back to base B and join
        $n = base_convert( ceil( $n / 2 ), 10, $b ) .
            base_convert( floor( $n / 2 ), 10, $b );
    }
    return $n;
}

出力

B = 10, N = 27, S = 1   1413
B = 10, N = 27, S = 2   707706
B = 9, N = 27, S = 1    1413
B = 9, N = 27, S = 2    652651

2   1   10  11  101 1110    111111  10000011111 10000100001000001111    
3   1   10  21  1110    202201  101101101100    1201201201212012012011  212100212102121002121212100212102121002120  
4   1   10  22  1111    223222  111311111311    2232222232322322222322  11131111131311311111311113111113131131111131    
5   1   10  32  1413    432431  213441213440    104220331443104220331442    12141204110401030043301214120411040103004330    
6   1   10  33  1514    535535  245550245545    122553122553122553122552    131022143412311313533131022143412311313533  
7   1   10  43  2221    11111110    40404044040403  2020202202020220202022020201    40556522600645213204055652260064521320  
8   1   10  44  2222    11111111    44444454444444  2222222622222222222226222222    76650460747555347665046074755534    
9   1   10  54  2726    13581357    62851746285173  3142536758708231425367587081    4861155667688600048611556676886000  
10  1   10  55  2827    14141413    70707077070706  3535353853535335353538535353    17676769267677271767676926767727

— 640KB
ソース

0

Japt、17バイト

_nW o ó ®ÊsWÃq}gV

オンラインでお試しください！

S、N、Bの順に入力し、Nをシングルトンリストとします。シングルトンリストなしでNを受け入れると、2バイトかかります。

説明：

_             }g     #Get the Sth item generated by this function...
                V    #...Starting with N as the 0th item:
 nW                  # Evaluate the previous item as a base B number
    o                # Create a list with that length
      ó              # Divide it into two lists as evenly as possible
        ®   Ã        # For each of those lists:
         Ê           #  Get the length
          sW         #  Convert it to base B
             q       # Join the two strings together

— カミル・ドラカリ
ソース

0

Forth（gforth）、105バイト

: f base ! 0 ?do 0. 2swap >number nip 2drop 2 /mod >r i + r> 0 tuck <# #s 2drop #s #> loop type decimal ;

オンラインでお試しください！

説明

ベースをBに変更してから、S回実行されるループで：

文字列を数値に変換します
数値を2等分します（奇数の場合は一方が他方より大きくなります）
2つの数値を結合して文字列に戻します

終了時に文字列を出力し、ベースを10に戻します（したがって、連続して複数回実行できます）

コードの説明

:f                    \ start a new word definition
  base !              \ set the base to B
  0 ?do               \ loop from 0 to S-1 (runs S times)
    0. 2swap          \ places a double-length 0 on the stack behind the string
    >number           \ converts the string to a number in the current base
    nip 2drop         \ get rid of string remainder and second part of double
    2 /mod            \ get the quotient and remainder of dividing by 2
    >r                \ throw the quotient on the return stack
    i                 \ get a copy of the quotient from the return stack
    +                 \ add quotient and remainder
    r>                \ move quotient from return stack to stack
    0 tuck            \ convert both to double-length numbers
    <#                \ start a pictured numeric output
      #s              \ add entire number to output
      2drop           \ drop empty number
      #s              \ add second number to output
    #>                \ convert output to a string and drop number from stack
  loop                \ end loop
  type                \ print output string
  decimal             \ set base back to 10
;                     \ end word definition

— reffu
ソース

数値として分割、文字列として結合、繰り返し

チャレンジ

例

詳細

Pyth、21 19バイト

説明

Pyth、29 21バイト

Mathematica、101バイト

CJam、24バイト

説明

JavaScript（ES6）78 79

ECMAScript 6、90バイト

Common Lisp-113文字

非ゴルフ

ピップ、27バイト

C、245バイト

PHP、115 112バイト

Japt、17バイト

Forth（gforth）、105バイト

説明

コードの説明