「フィット番号」

サムには、圧縮に関する「素晴らしい」アイデアがあります。手伝ってくれますか？

1-> 1
9-> 1001
15-> 1111
13-> 1101
16-> 10000
17-> 10001
65535-> 111111111111111

1つ以上のゼロのグループを単一のゼロに置き換えます。これは、数値がスリムになったためです。バイナリ文字列は次のようになります。

1-> 1-> 1
9-> 1001-> 101
15-> 1111-> 1111
13-> 1101-> 1101
16-> 10000-> 10
17-> 10001-> 101
65535-> 111111111111111-> 111111111111111

ここで、バイナリ文字列をベース10表現に変換し、受け入れ可能な形式で出力します。テストケースは次のとおりです。最初の整数は入力を表し、最後の整数は出力を表します。一部の数値は変わらないため、「適合」と呼ぶことができることに注意してください

1-> 1-> 1-> 1
9-> 1001-> 101-> 5
15-> 1111-> 1111-> 15
13-> 1101-> 1101-> 13
16-> 10000-> 10-> 2
17-> 10001-> 101-> 5
65535-> 1111111111111111-> 1111111111111111-> 65535
65000-> 1111110111101000-> 11111101111010-> 16250

05AB1E、8 6バイト

b00¬:C

説明

b        # convert input to binary
 00¬:    # replace 00 with 0 while possible
     C   # convert to int

オンラインで試す

Adnanのおかげで2バイト節約

Bash + GNUユーティリティ、27

dc -e2o?p|tr -s 0|dc -e2i?p

STDINから読み取った入力。

JavaScript（ES6）、41バイト

n=>+`0b${n.toString(2).replace(/0+/g,0)}`

クラゲ、20バイト

p
d
# S
,1
*
\dbi
 2

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

説明

• i 入力されます。
• b バイナリ（数字のリスト）に変換します
• \d引数2と数字リストは、数字リストのdすべての長さ2の部分文字列に適用されます（2進数から数字へ）。
• * 結果の符号を取ります：00は0になり、その他はすべて1になります。
• ,1 最後に1を付けるため、最後の数字は失われません。
• # Sbi上記で計算されたリストに1がある数字から選択します：00の左半分ではない数字。
• d数値に変換しp、結果を出力します。

Python 2、36バイト

f=lambda n:n and f(n/2)<<(n%4>0)|n%2

基本変換ビルトインまたは文字列操作のない直接再帰実装。少ないゴルフ：

f=lambda n:n and[f(n/2),n%2+2*f(n/2)][n%4>0]

場合はn4の倍数である、それはバイナリで2つの0年代に終了し、我々はそれ以外の2により床分割ずつカットして、我々は分割nに(n%2) + 2*(n/2)最後の二進数字を残し、n%2一人であり、他の数字に再帰n/2。

Bash（sed + bc）、60 55 43バイト

echo $[2#`bc<<<obase=2\;$1|sed s/00\*/0/g`]

編集：

1. bcに値を渡すために使用されるエコーとパイプに変更さsed -E 's/0+れsed 's/00*、変更されました<<<。
2. @Digital Traumaによる素晴らしい提案！

例：

$ bash script.sh 65000
16250
$ bash script.sh 15
15
$ bash script.sh 9
5

Perl 6の、 31の  27バイト

{:2(.base(2).subst(:g,/0+/,0))}
{:2(.base(2)~~{S:g/0+/0/})}

説明：

-> $_ {
  # convert from base 2
  :2(

    # convert to base 2
    $_.base(2)

    # substitute
    .subst(
      :global,
      / 0+ /,  # all substrings made of 0s
      '0'      # with one 0
    )
  )
}

例：

my &fit-compress = {:2(.base(2)~~{S:g/0+/0/})}
say fit-compress 1;     # 1
say fit-compress 9;     # 5
say fit-compress 15;    # 15
say fit-compress 13;    # 13
say fit-compress 16;    # 2
say fit-compress 17;    # 5
say fit-compress 65535; # 65535
say fit-compress 65000; # 16250

# number created with ｢:2( [~] <0 1>.roll: 256 )｣
say fit-compress 80794946326210692074631955353531749442835289622757526957697718534769445507500
# 4240335298301026395935723255481812004519990428936918

MATL、11 9 8バイト

BFFOZtXB

strrepMATLABでは論理入力を処理できるため、このバージョンはMATLABでのみ機能します。論理入力を明示的にtypeにキャストするOctave（9バイト）（したがってオンラインインタープリター）で動作するバージョンを次に示しますdouble。

オンラインで試す

説明

    % Implicitly grab input
B   % Convert decimal to binary
FF  % Create the array [0 0]
O   % Number literal
Zt  % Replaces all [0 0] with [0] (will replace any number of 0's with 0)
XB  % Convert binary to decimal
    % Implicitly display

Pythonの3、55、50バイト。

Sp3000のおかげで4バイト節約されました。

非常に簡単なソリューション。

import re
f=lambda x:eval(re.sub('0+','0',bin(x)))

Javascript（ES6）、40バイト

n=>'0b'+n.toString(2).replace(/0+/g,0)-0

実際には、14バイト（非競合）

├`'0;;+(Æ`Y2@¿

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

この課題の投稿Æ後にバグ修正が行われたため、この提出物は競合しません。

説明：

├`'0;;+(Æ`Y2@¿
├               bin(input) (automatically discards leading zeroes)
 `'0;;+(Æ`Y     call this function until the output stops changing:
  '0;;+           push "0", "00"
       (Æ         replace "00" with "0" in binary string
           2@¿  convert from binary to decimal

ルビー、35 31バイト

@Doorknobのおかげで-2バイト

->n{eval ("0b%b"%n).squeeze ?0}

repl.itでご覧ください：https ://repl.it/CnnQ/2

ゼリー、13 7バイト

Zgarb のアルゴリズムのおかげで6バイト。

BŒgµL * x @ Ḣµ€FḄ
BŒgḄBFḄ

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

PHP、53 51バイト

<?=bindec(preg_replace("/0+/",0,decbin($argv[1])));

コンソールから引数を取ります。

おかげで：

@manatwork "0"を0に置き換えます

Perl、38 + 1（-p）= 39バイト

$_=oct"0b".sprintf("%b",$_)=~s/0+/0/gr

ニーズ-p（私は追加のフラグを実行するために-l、それを読みやすくするためのフラグを、それがそうでない場合は必要ありませんです）：

perl -plE '$_=oct"0b".sprintf("%b",$_)=~s/0+/0/gr' <<< "1
9
15
13
16
17
65535
65000"

コードについて言うことに注意してください：数値をバイナリ（sprintf"%b"）に変換し、ゼロのブロックを1つのゼロに置き換え、結果を10進数（oct"0b".）に変換します。

C＃、112 91バイト

int x(int x)=>Convert.ToInt32(Rege‌​x.Replace(Convert.ToS‌​tring(x,2),"0+","0"),2);

TuukkaXのおかげで-8バイト

Java、75

int f(Integer x){return x.valueOf(x.toString(x,2).replaceAll("0+","0"),2);}

テストプログラム：

public class Fit {
    int f(Integer x){return x.valueOf(x.toString(x,2).replaceAll("0+","0"),2);}

    public static void main(final String... args) {
        final Fit x = new Fit();
        System.out.println(x.f(65000));
    }
}

PARI / GP、54 43バイト

n->fold((a,b)->a+if(b,a+1,a%2,a),binary(n))

PowerShell v2 +、69バイト

[convert]::ToInt32(([convert]::ToString($args[0],2)-replace'0+',0),2)

（feature-request PowerShellでバイナリとの間で変換するより短い方法）

入力を受け取り$args[0]、.NETビルトイン[convert]::ToString(int,base)を使用して、入力整数をバイナリベース文字列に変換します。を介してフィルター処理され、-replace1つ以上のゼロの実行をすべて削除します0。その結果の文字列は[convert]::ToInt32(string,base)、バイナリを整数に戻すために経由で他の方向に送り返されます。その整数はパイプラインに残り、出力は暗黙的です。

テストケース

PS C:\Tools\Scripts\golfing> 1,9,15,13,16,17,65535,65000|%{"$_ -> " +(.\output-fit-number.ps1 $_)}
1 -> 1
9 -> 5
15 -> 15
13 -> 13
16 -> 2
17 -> 5
65535 -> 65535
65000 -> 16250

SILOSのリファレンス実装「のみ」417バイト

ゴルフ

readIO :
i + 1
I = i
z = 1 
n = 32
b = n
z = 1
n = b
lbla
n - 1
GOSUB p
j = i
j - p
if j b
if z c
z = 1
GOTO e
lblc
b - 1
if n a
GOTO f
lblb
z = 0
A = a
A + 1000
set A 1
i - p
lble
a + 1
if n a
lblf
q = 1000
e = q
e + b
i = 0
lbl>
d = q
d - e
if d ?
n = b
n - i
GOSUB p
g = get q
g * p
o + g
i + 1
q + 1
GOTO >
lbl?
o / 2
printInt o
GOTO z
funcp
p = 1
Z = n
lblQ
if Z C
GOTO D
lblC
Z - 1
p * 2
GOTO Q
lblD
return
lblz

完全に未使用のリファレンス実装を以下に示します。ボーナス機能として、答えを得るために必要な手順を出力します。

/**
*Reference Implementation in the high quality S.I.L.O.S language.
*/
readIO Enter a number to "compress"
//some declarations
i + 1
I = i
z = 1 
//the above is a flag which shows whether or not a zero was last outputted
n = 32
b = n
//maximum number of input bits
printLine Original Binary



lblbinLoop
n - 1
GOSUB pow
j = I
j - p
if j printOne
if z ENDLOOP
print 0
GOTO ENDLOOP
lblprintOne
z = 0
print 1
I - p
lblENDLOOP
if n binLoop




printLine  
printLine Binary "Compressed"


z = 1
n = b


lbltopA
n - 1
GOSUB pow
j = i
j - p
if j printAOne
if z DontPrint
z = 1
print 0
GOTO ENDLOOPA
lblDontPrint
b - 1
if n topA
GOTO endOfBin
lblprintAOne
z = 0
print 1
A = a
A + 1000
set A 1
i - p
lblENDLOOPA
a + 1
if n topA

lblendOfBin

printLine  
printLine -----------
printLine Base 10 Output
print Out Bits:
printInt b

q = 1000
e = q
e + b
i = 0
lblOutputDec
d = q
d - e
if d DONE
n = b
n - i
GOSUB pow
g = get q
g * p
o + g
i + 1
q + 1
GOTO OutputDec
lblDONE
printLine
printLine ---------
o / 2
printInt o

GOTO funcs
//function declarations must be wrapped in gotoes to avoid the interpreter from complaining (breaking)

/**
*This will store the nth power of two in the "p" variable
*/
funcpow
p = 1
Z = n
lbltop
if Z continue
GOTO end
lblcontinue
Z - 1
p * 2
GOTO top
lblend
return

lblfuncs

リクエストにより、翻訳が削除されました。編集履歴を表示して自由に復元してください。それ以外の場合は、このレポでインタープリターをご覧ください。

65000のサンプル出力

Enter a number to "compress"
65000
Original Binary
1111110111101000 
Binary "Compressed"
11111101111010 
-----------
Base 10 Output
Out Bits:14
---------
16250

Pyth、12

i:.BQ"0+"\02

オンライン。

  .BQ            # Convert input from base 10 to base 2
 :   "0+"\0      # Replace multiple zeroes with single zero
i          2     # Convert back from base 2 to base 10

網膜、30バイト

.+
$*1;
+`(1+)\1
$1;
1;
1
;+
0

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

ここで、Retinaが最初の答えの1つになると思いました...

Java、152 143 138バイト

interface C{static void main(String[]b){Integer i=0;System.out.print(i.parseInt(i.toString(i.parseInt(b[0]),2).replaceAll("0+","0"),2));}}

• @RohanJhunjhunwalaのおかげで9バイト少なくなりました。mainなどで完全に機能するプログラムとして保持することを好みます。ただし、それ以外の場合はもちろんゴルフをすることができます。
• @LeakyNunの提案のおかげで5バイト少なくなりました。

Dyalog APL、19 バイト

{2⊥⍵/⍨~0 0⍷⍵}2∘⊥⍣¯1

TryAPLオンライン！

この関数は実際には2つの関数の「上」にあり、最初の関数は次のとおりです。

2∘⊥⍣¯1逆バイナリレベルのに -decimal変換、すなわち、バイナリレベルから -decimal変換
 二つが 2 結合している ∘に-to-小数 ⊥
 リピート動作⍣ 負の1の時間に¯1（すなわち一度、しかし反転）

2番目の関数では、上記のバイナリ結果は次のように表され ⍵ます。

{2⊥⍵/⍨~0 0⍷⍵}
 0 0⍷⍵{0、0}がneg
 ~ブール否定で始まる場所のブール値なので、今ではどこでもhaveがありますが、ゼロランの最初でないゼロでは
 ⍵/⍨それを使用してfilterをフィルタリングするため、不要なゼロを削除して
 2⊥バイナリから10進数に変換します

TSQL、143バイト

ビルドインとバイナリの変換にビルドインを使用していません。

ゴルフ：

DECLARE @i INT=65000

,@ CHAR(99)=''WHILE @i>0SELECT @=REPLACE(LEFT(@i%2,1)+@,'00',0),@i/=2WHILE @>''SELECT @i+=LEFT(@,1)*POWER(2,LEN(@)-1),@=STUFF(@,1,1,'')PRINT @i

ゴルフをしていない：

DECLARE @i INT=65000

,@ CHAR(99)=''
WHILE @i>0
  SELECT @=REPLACE(LEFT(@i%2,1)+@,'00',0),@i/=2

WHILE @>''
  SELECT @i+=LEFT(@,1)*POWER(2,LEN(@)-1),@=STUFF(@,1,1,'')

PRINT @i

フィドル

CJam、16

q~2b1+0a%0a*);2b

オンラインで試す

正規表現がないため、かなり長いです。

説明：

q~     read and evaluate the input number
2b     convert to base 2 (array of 1s and 0s)
1+     append a 1 to deal with trailing zeros
0a%    split by [0], dropping empty pieces; only chunks of 1s are left
0a*    join by [0]
);     discard the 1 we appended before
2b     convert back from base 2

Java、64バイト

i->{return i.parseInt(i.toString(i,2).replaceAll("0+","0"),2);};

テストプログラム

public static void main(String[] args) {
    Function<Integer, Integer> function = i -> {
        return i.parseInt(i.toString(i, 2).replaceAll("0+", "0"), 2);
    };

    System.out.println(function.apply(1)); // 1
    System.out.println(function.apply(9)); // 5
    System.out.println(function.apply(15)); // 15
    System.out.println(function.apply(13)); // 13
    System.out.println(function.apply(16)); // 2
    System.out.println(function.apply(17)); // 5
    System.out.println(function.apply(65535)); // 65535
}

CJam、23バイト

ri2be`{_:g:>{:g}&}%e~2b

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

説明

ri          e# Read input as an integer
2b          e# Convert to binary
e`          e# Run-length encoding. Gives a nested (2D) array with run-lengths 
            e# and binary digits
{           e# This block is mapped over the outer array, i.e. is applied to
            e# each inner array
   _        e#   Duplicate the inner array
  :g        e#   Signum of each element of inner array
  :>        e#   This gives true if second element (digit) is false and first
            e#   element (run-length) is not zero. If so, we need to set that
            e#   run-length to 1
  {:g}&     e#   If that's the case, apply signum to original copy of inner
            e#   array, to make run-length 1
}%          e# End block which is mapped over the outer array
e~          e# Run-length decoding
2b          e# Convert from binary. Implicitly display

ルビー、37 35バイト

manatworkのおかげで2バイト節約されました。

->a{a.to_s(2).gsub(/0+/,?0).to_i 2}

素朴なアプローチ。（：

C、37バイト

f(x){return x?f(x/2)<<!!(x%4)|x&1:0;}