"Số phù hợp"

Sam có một ý tưởng "tuyệt vời" để nén! Bạn có thể giúp?

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

Bây giờ thay thế bất kỳ nhóm nào của một hoặc nhiều số không bằng một số không. Điều này là do số lượng đã nhận được gầy hơn. Chuỗi nhị phân của bạn bây giờ sẽ trông như thế này.

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

Bây giờ bạn chuyển đổi chuỗi nhị phân trở lại đại diện cơ sở 10 và xuất nó ở bất kỳ định dạng nào được chấp nhận. Dưới đây là trường hợp thử nghiệm của bạn. Số nguyên đầu tiên đại diện cho một đầu vào và số nguyên cuối cùng đại diện cho một đầu ra. Lưu ý rằng một số số không thay đổi và do đó có thể được gọi là "phù hợp"

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 byte

b00¬:C

Giải trình

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

Dùng thử trực tuyến

Đã lưu 2 byte nhờ Adnan

Tiện ích Bash + GNU, 27

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

Đầu vào đọc từ STDIN.

JavaScript (ES6), 41 byte

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

Sứa , 20 byte

p
d
# S
,1
*
\dbi
 2

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

Giải trình

• i là đầu vào.
• b chuyển đổi nó thành nhị phân (danh sách các chữ số)
• \dvới các đối số 2và danh sách chữ số được áp dụng d(chữ số nhị phân cho số) cho mỗi chuỗi con dài 2 của danh sách chữ số.
• * lấy dấu của kết quả: 00 chuyển về 0, mọi thứ khác là 1.
• ,1 xử lý 1 đến cuối, vì vậy chữ số cuối cùng không bị mất.
• # Schọn từ bicác chữ số có 1 trong danh sách được tính ở trên: những chữ số không phải là nửa bên trái của 00.
• dchuyển đổi trở lại số và pin kết quả.

Python 2, 36 byte

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

Việc thực hiện đệ quy trực tiếp không có các hoạt động xây dựng chuỗi hoặc chuỗi chuyển đổi cơ sở. Ít chơi gôn hơn:

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

Khi nlà bội số của 4, nó kết thúc bằng hai 0 ở dạng nhị phân, vì vậy chúng tôi cắt một bằng cách chia sàn cho 2. Nếu không, chúng tôi chia nthành (n%2) + 2*(n/2), để lại chữ số nhị phân cuối cùng n%2và lặp lại trên các chữ số khác n/2.

Bash (sed + bc), 60 55 43 byte

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

chỉnh sửa:

1. thay đổi sed -E 's/0+để sed 's/00*và thay đổi echo và ống sử dụng để vượt qua các giá trị cho bc với <<<.
2. Gợi ý rực rỡ của @Digital Trauma!

thí dụ:

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

Perl 6 ,  31  27 byte

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

Giải trình:

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

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

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

Thí dụ:

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 byte

BFFOZtXB

Phiên bản này chỉ hoạt động trong MATLAB vì strreptrong MATLAB có thể xử lý các đầu vào logic. Đây là một phiên bản sẽ hoạt động trong Octave (9 byte) (và do đó, trình thông dịch trực tuyến) sẽ đưa ra các đầu vào logic để gõ double.

Dùng thử trực tuyến

Giải trình

    % 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 byte.

Đã lưu 4 byte nhờ Sp3000.

Giải pháp khá đơn giản.

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

Javascript (ES6), 40 byte

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

Trên thực tế, 14 byte (không cạnh tranh)

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

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

Nội dung gửi này không cạnh tranh vì một lỗi Æđã được thực hiện sau khi thử thách này được đăng.

Giải trình:

├`'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

Ruby, 35 31 byte

-2 byte nhờ @Doorknob

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

Xem nó trên repl.it: https://repl.it/CnnQ/2

Thạch , 13 7 byte

6 byte nhờ Zgarb cho thuật toán của mình .

Bµg ERL * x @ Ḣ € € FḄ
BgḄBFḄ

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

PHP, 53 51 byte

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

Đưa ra một đối số từ bàn điều khiển.

Nhờ vào:

@manatwork thay "0" bằng 0

Perl, 38 + 1 ( -p) = 39 byte

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

Cần -pcờ để chạy (Tôi đã thêm -lcờ để dễ đọc hơn, nhưng không cần thiết khác):

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

Lưu ý nhiều điều để nói về mã: nó chuyển đổi số thành nhị phân ( sprintf"%b"), sau đó thay thế các khối số không chỉ bằng một số 0 và chuyển đổi kết quả thành số thập phân ( oct"0b".).

C #, 112 91 byte

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

-8 byte nhờ TuukkaX

Java, 75

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

Chương trình kiểm tra:

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 byte

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

PowerShell v2 +, 69 byte

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

( yêu cầu tính năng Một cách ngắn hơn để chuyển đổi sang / từ nhị phân trong PowerShell )

Đưa đầu vào $args[0], sử dụng .NET tích hợp [convert]::ToString(int,base)để chuyển đổi số nguyên đầu vào thành chuỗi cơ sở nhị phân. Điều đó được lọc qua -replaceđể loại bỏ bất kỳ hoạt động nào của một hoặc nhiều số không thành 0. Chuỗi kết quả đó được gửi trở lại qua hướng khác thông qua [convert]::ToInt32(string,base)để biến nhị phân trở lại thành một số nguyên. Số nguyên đó được để lại trên đường ống và đầu ra là ẩn.

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

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

Tham chiếu thực hiện trong SILOS "chỉ" 417 byte

Chơi gôn

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

Dưới đây là tham chiếu thực hiện đầy đủ vô căn cứ. Là một tính năng thưởng, nó đưa ra các bước cần thiết để đi đến câu trả lời.

/**
*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

Theo yêu cầu, sự dịch chuyển đã bị xóa. Vui lòng xem lịch sử chỉnh sửa để khôi phục nó, nếu không hãy đến repo này để có thông dịch viên.

Sản lượng mẫu cho 65000

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

Bình 12 tháng 12

i:.BQ"0+"\02

Trực tuyến.

  .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

Võng mạc , 30 byte

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

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

Và ở đây tôi nghĩ Retina sẽ là một trong những câu trả lời đầu tiên ...

Java, 152 143 138 byte

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

• 9 byte ít hơn nhờ @RohanJhunjhunwala. Tôi thích giữ nó như một chương trình hoạt động đầy đủ với chính và tương tự. Tuy nhiên, tất nhiên nó có thể được chơi golf nhiều hơn nếu không.
• Giảm 5 byte nhờ các đề xuất của @ LeakyNun.

APL Dyalog , 19 byte

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

Dùng thử trực tuyến!

Chức năng này thực sự là một "đỉnh" của hai chức năng, chức năng đầu tiên là:

2∘⊥⍣¯1các nghịch đảo của binary- để chuyển đổi -decimal, tức là binary- từ -decimal chuyển đổi
 hai 2 là ràng buộc ∘ để -to-thập phân ⊥
 lặp lại các hoạt động ⍣ trong những tiêu cực thời gian ¯1(ví dụ một lần, nhưng đảo ngược)

Trong hàm thứ hai, kết quả nhị phân ở trên được biểu thị bằng ⍵:

{2⊥⍵/⍨~0 0⍷⍵}
 0 0⍷⍵Boolean cho nơi {0, 0} bắt đầu trong neg Phủ
 ~định Boolean, vì vậy bây giờ chúng ta có ở mọi nơi nhưng ở các số không đầu tiên trong các lần chạy 0
 ⍵/⍨sử dụng để lọc ⍵, do đó, việc này sẽ loại bỏ các số không mong muốn của chúng ta
 2⊥chuyển đổi nhị phân thành số thập phân

TSQL, 143 byte

Không sử dụng bản dựng để chuyển đổi từ và sang nhị phân.

Chơi gôn

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

Ung dung:

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

Vĩ cầm

CJam, 16

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

Dùng thử trực tuyến

Nó khá dài do thiếu regex.

Giải trình:

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 byte

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

Chương trình kiểm tra

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 byte

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

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

Giải trình

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

Ruby, 37 35 byte

Lưu hai byte nhờ manatwork.

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

Cách tiếp cận ngây thơ. (

C, 37 byte

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