"Fit Numaraları"

Sam'in sıkıştırma için "mükemmel" bir fikri var! Yardım edebilir misin?

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

Şimdi bir veya daha fazla sıfırdan oluşan herhangi bir grubu tek bir sıfırla değiştirin. Bunun sebebi sayının azalmasıdır. İkili dizginiz şimdi böyle görünecek.

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

Şimdi ikili dizgiyi tekrar 10 taban göstergesine dönüştürüyorsunuz ve kabul edilebilir herhangi bir biçimde çıkarıyorsunuz. İşte test durumların. İlk tamsayı bir girişi temsil eder ve son tamsayı bir çıkışı temsil eder. Bazı numaraların değişmediğini ve bu nedenle "uygun" olarak adlandırılabileceğini unutmayın.

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 bayt

b00¬:C

açıklama

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

Çevrimiçi deneyin

Adnan sayesinde 2 bayt kaydedildi

Bash + GNU yardımcı programları, 27

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

Giriş STDIN'den okunur.

JavaScript (ES6), 41 bayt

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

Denizanası , 20 bayt

p
d
# S
,1
*
\dbi
 2

Çevrimiçi deneyin!

açıklama

• i giriş.
• b onu ikiliye dönüştürür (basamak listesi)
• \dArgümanlar 2ve sayı listesi, sayı listesinin dher uzunluğu-2 alt dizesine (sayıya ikili sayı) uygulanır .
• * sonuçların önemini alır: 00 0'a, her şey 1'e gider.
• ,1 1'e sonuna kadar dokunduğundan, son rakam kaybolmaz.
• # Sbiyukarıda hesaplanan listede 1 olan hanelerden birini seçer : 00'ın sol yarısı olmayanlar.
• dsayıya geri döner ve psonucu yazdırır.

Python 2,36 bayt

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

Temel dönüştürme yerleşikleri veya dizge işlemleri olmadan doğrudan özyinelemeli uygulama. Daha az golf oynadı:

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

n4'ün katı olduğunda , ikilik 0'da ikili olarak sona erer, bu yüzden birini 2'ye bölerek böleriz. Aksi halde nayrılır (n%2) + 2*(n/2), son ikili basamağı n%2tek başına bırakırız ve diğer basamaklarda tekrar ederiz n/2.

Bash (sed + bc), 60 55 43 bayt

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

Düzenle:

1. değiştirildi sed -E 's/0+için sed 's/00*ve değiştirilmiş yankı ve boru ile bc değer geçirmek için kullanılır <<<.
2. @Digital Trauma tarafından mükemmel öneri!

örnek:

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

Perl 6 ,  31  27 bayt

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

Açıklama:

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

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

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

Örnek:

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 bayt

BFFOZtXB

Bu sürüm sadece MATLAB'de çalışır çünkü strrepMATLAB'de mantıksal girdiler kullanılabilir. Burada, açıkça yazmak için mantıksal girdileri yayınlayan Octave (9 bayt) (ve böylece çevrimiçi tercüman) çalışacak bir versiyonudur double.

Çevrimiçi deneyin

açıklama

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

Sp3000 sayesinde 4 bayt kurtardı.

Oldukça basit bir çözüm.

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

Javascript (ES6), 40 bayt

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

Aslında, 14 bayt (rekabet etmeyen)

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

Çevrimiçi deneyin!

Bu gönderi rakip değil çünkü Æ bu zorluğun yayınlanmasından sonra .

Açıklama:

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

@Doorknob sayesinde -2 bayt

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

Repl.it üzerinde bakın: https://repl.it/CnnQ/2

Jöle , 13 7 bayt

Zgarb'a algoritması için 6 bayt teşekkürler .

BŒgμL * x @ Ḣμ € FB
BŒgḄBFḄ

Çevrimiçi deneyin!

PHP, 53 51 Bayt

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

Konsoldan bir argüman alır.

Sayesinde:

@ manatwork "0" yerine 0

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

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

İhtiyaçları -p(Eklediğim vadede bayrağı -ldaha okunabilir hale getirmek için bayrak, ancak aksi gerekmedikçe):

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

Kod hakkında söylenecek çok şey var: sayıyı binary ( sprintf"%b") değerine dönüştürür, ardından sıfır bloklarını yalnızca bir sıfır ile değiştirir ve sonucu ondalık ( oct"0b".) değerine dönüştürür .

C #, 112 91 bayt

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

TuukkaX sayesinde -8 bayt

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 bayt

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

PowerShell v2 +, 69 bayt

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

( feature-request PowerShell'de ikiliye dönüştürmek için daha kısa bir yol )

Girdi alır $args[0], [convert]::ToString(int,base)girdi tamsayısını ikili temel dizgeye dönüştürmek için .NET'in yerleşikini kullanır . Bu -replace, bir veya daha fazla sıfırın herhangi bir işlemini tam olarak sıyrılmak için filtreden geçirilir 0. Bu sonuçtaki dize, [convert]::ToInt32(string,base)ikiliyi bir tamsayıya dönüştürmek için diğer yöne geri gönderilir . Bu tamsayı boru hattında bırakılır ve çıktı gizlidir.

Test Kılıfları

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’ta "Yalnızca" 417 baytta başvuru

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

İşte referans uygulaması tamamen ungolfed. Bonus bir özellik olarak, bir cevaba ulaşmak için gereken adımları verir.

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

İsteğe bağlı olarak aktarım silindi. Düzenlemek için düzenleme geçmişini görüntülemek için çekinmeyin, aksi takdirde bu repo'ya gidin. bir tercüman .

65000 için örnek çıktı

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

İnternet üzerinden.

  .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 bayt

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

Çevrimiçi deneyin!

Ve burada Retina'nın ilk cevaplar arasında olacağını düşündüm ...

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