"พอดีตัวเลข"

แซมมีแนวคิด "ยอดเยี่ยม" สำหรับการบีบอัด! คุณช่วยได้ไหม

1 -> 1
9 -> 1001
15 -> 1111
13 -> 1101
16 -> 10,000
17 -> 1,0001
65535 -> 111111111111111

ตอนนี้แทนที่กลุ่มใด ๆ หนึ่งศูนย์หรือมากกว่าด้วยศูนย์เดียว นี่เป็นเพราะจำนวนนั้นผอมลง ตอนนี้สตริงไบนารีของคุณจะเป็นแบบนี้

1 -> 1 -> 1
9 -> 1001 -> 101
15 -> 1111 -> 1111
13 -> 1101 -> 1101
16 -> 10000 -> 10
17 -> 1,0001 -> 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 -> 1,0001 -> 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

ลองออนไลน์

บันทึก 2 ไบต์ต้องขอบคุณAdnan

ยูทิลิตี 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 ของรายการหลัก
• * ใช้ signum ของผลลัพธ์: 00 ไปที่ 0 ทุกอย่างเป็น 1
• ,1 tacks 1 ถึงจุดสิ้นสุดดังนั้นตัวเลขสุดท้ายจะไม่สูญหาย
• # S เลือกจาก biตัวเลขเหล่านั้นที่มี 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]

เมื่อnมีหลายที่ 4 มันจะจบในสอง 0 ในไบนารีดังนั้นเราจึงตัดหนึ่งโดยพื้นหารด้วย 2. มิฉะนั้นเราแยกnเข้า(n%2) + 2*(n/2)ออกหลักสุดท้ายไบนารีn%2คนเดียวและ recurse n/2ในตัวเลขอื่น

Bash (sed + bc), 60 55 43 ไบต์

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

แก้ไข:

1. เปลี่ยน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

รุ่นนี้ใช้งานได้ใน MATLAB เท่านั้นเนื่องจากstrrepใน MATLAB สามารถจัดการอินพุตแบบลอจิคัล นี่คือรุ่นที่จะใช้งานใน Octave (9 bytes) (และล่ามออนไลน์) ซึ่งจะทำการปลดลอจิคัลอินพุตเพื่อพิมพ์อย่างชัดเจน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 ไบต์

บันทึกแล้ว 4 ไบต์ด้วย Sp3000

ทางออกที่ตรงไปตรงมาสวย

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

Ruby, 35 31 ไบต์

-2 ไบต์ขอบคุณ @Doorknob

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

ดูได้ที่ repl.it: https://repl.it/CnnQ/2

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

6 ไบต์ขอบคุณที่ Zgarb สำหรับขั้นตอนวิธีการของเขา

BŒgμL * x @ Ḣμ€ FB
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") แล้วแทนที่ blocs ของศูนย์เพียงหนึ่งศูนย์และแปลงผลลัพธ์เป็นทศนิยม ( oct"0b".)

C #, 112 91 ไบต์

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

-8 ไบต์ขอบคุณ TuukkaX

Java, 75

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

Test program:

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 bytes

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

PowerShell v2+, 69 bytes

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

(feature-requestA shorter way to convert to/from binary in PowerShell)

Takes input $args[0], uses the .NET built-in [convert]::ToString(int,base) to convert the input integer into a binary base string. That's filtered through the -replace to strip out any runs of one-or-more-zeros to just 0. That resultant string is sent back through the other direction via [convert]::ToInt32(string,base) to turn the binary back into an integer. That integer is left on the pipeline and output is implicit.

Test Cases

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

Reference Implementation in S.I.L.O.S "only" 417 bytes

Golfed

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

Here is the reference implementation fully ungolfed. As a bonus feature it outputs the steps needed to come to an answer.

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

By request the transpilation has been deleted. Feel free to view the edit history to recover it, otherwise go to this repo for an interpreter.

Sample output for 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

Online.

  .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

Retina, 30 bytes

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

Try it online!

And here I thought Retina would be amongst the first answers...

Java, 152 143 138 bytes

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 bytes less thanks to @RohanJhunjhunwala. I prefer to keep it as a fully functioning program with main and the like. However, of course it can be golfed more otherwise.
• 5 bytes less thanks to @LeakyNun's suggestions.

Dyalog APL, 19 bytes

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

TryAPL online!

This function is really an "atop" of two functions, the first function is:

2∘⊥⍣¯1 the inverse of binary-to-decimal conversion, i.e. binary-from-decimal conversion
 two 2 is bound ∘ to -to-decimal ⊥
 repeat the operation ⍣ negative one time ¯1 (i.e. once, but inverted)

In the second function, the above's binary result is represented by ⍵:

{2⊥⍵/⍨~0 0⍷⍵}
 0 0⍷⍵ Boolean for where {0, 0} begins in ⍵
 ~ Boolean negation, so now we have ᴛʀᴜᴇ everywhere but at non-first zeros in zero-runs
 ⍵/⍨ use that to filter ⍵, so this removes our unwanted zeros
 2⊥ convert binary-to-decimal

TSQL, 143 bytes

Not using build ins to convert from and to binary.

Golfed:

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

Ungolfed:

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

Fiddle

CJam, 16

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

Try it online

It's quite long due to lack of regex.

Explanation:

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 bytes

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

Test Program

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 bytes

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

Try it online!

Explanation

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 bytes

Saved two bytes thanks to manatwork.

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

The naive approach. (:

C, 37 bytes

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