Görev

Boş olmayan bir dizi verilir 0ve 1, çalışmalarının uzunluklarını yarıya indirir 0.

Giriş

Dizisi 0ve 1. Kabul edilebilir biçim:

• Kendi dilinizde gerçek dizi
• -Hat besleme ayrılmış dize 0ve1
• Mücavir dize 0ve1
• Diğer makul biçimler

Örneğin, aşağıdaki üç girişin tümü kabul edilebilir:

• [1, 0, 0, 1]
• "1\n0\n0\n1"( \nhat besleme U + 000A nerede )
• "1001"

Koşmalarının eşit uzunlukta0 olacağını varsayabilirsiniz .

Çıktı

Bir dizi 0ve 1yukarıda kabul edilebilir biçimlerde.

testcases

input ↦ output
[1,0,0,1,0,0,1] ↦ [1,0,1,0,1]
[1,1,0,0,1,1,0,0,1] ↦ [1,1,0,1,1,0,1]
[1,1,0,0,1,1,1,0,0,1,1] ↦ [1,1,0,1,1,1,0,1,1]
[1,1,1] ↦ [1,1,1]
[0,0,1] ↦ [0,1]
[0,0] ↦ [0]
[1,1,1,0,0,0,0,1,1,1,1,0,0,1,0,0,1,1,0,0,1,1,1,1,0,0,1,0,0] ↦ [1,1,1,0,0,1,1,1,1,0,1,0,1,1,0,1,1,1,1,0,1,0]

puanlama

Bu kod golfü . Bayt cinsinden en kısa cevap kazanır.

Standart boşluklar geçerlidir.

Retina , 4 bayt

00
0

Çevrimiçi deneyin!

05AB1E , 5 bayt

00¤.:

Çevrimiçi deneyin!

açıklama

00     # push 00
  ¤    # tail, pushes 0
   .:  # replace

Haskell , 33 bayt

f(0:0:r)=0:f r
f(x:r)=x:f r
f e=e

Çevrimiçi deneyin! Kullanımı: f[1,1,0,0,1,1,0,0,1]. Listeyi yineler ve art arda iki sıfırı bir sıfıra değiştirir.

C (gcc) , 35 bayt

f(char*s){while(*s)putchar(*s),*s++-48?:s++;}

48 '0' kodunun ascii kodudur

Neil tarafından önerilen daha iyi sürüm 43 bayt

f(char*s){while(*s)putchar(*s),s+=2-*s%2;}

Bu sefer başka bir 40 bayt (yine Neil & VisualMelon tarafından önerildiği gibi) :)

f(char*s){for(;*s;s+=50-*s)putchar(*s);}

ve sonra Khaled.K sayesinde 35 bayt

f(char*s){*s&&f(s+50-putchar(*s));}

Çevrimiçi deneyin!

sed , 8 bayt

s/00/0/g

Çevrimiçi deneyin!

Oktav, 22 bayt

@(s)strrep(s,'00','0')

Tüm test senaryolarını burada doğrulayın.

Bu, biçim '1001000011'olarak girdi olarak bir dize alan anonim bir işlevdir ve art arda iki sıfırı tek bir sıfırla değiştirir.

Java, 50 bayt

String f(String s){return s.replaceAll("00","0");}

Çevrimiçi Deneyin

Haskell , 28 bayt

f(h:t)=h:f(drop(1-h)t)
f e=e

Çevrimiçi deneyin!

İlk öğeyi yinelemeli olarak alır, ilk öğe sıfırsa boş olana kadar ikinci öğeyi bırakır. İlk giriş ise h, ilk giriş 1-hkalan kısımdan çıkarılır.

Japt , 7 6 5 bayt

d'0²0

Çevrimiçi deneyin!

Girişteki iki sıfırdan oluşan her çalışmayı bir sıfıra değiştirir. Dize girdisini (yani "1001001") kullanır .

PHP, 26

<?=strtr($argn,["00"=>0]);

Sadece tüm değiştirin 00tarafından 0.

Alice , 13 bayt

/oe00/
@iS0e\

Çevrimiçi deneyin!

açıklama

/.../
@...\

Tamamen Ordinal modda çalışan doğrusal programlar için basit bir şablondur. Birincisi /, IP'yi güney doğuya hareket edecek şekilde yansıtır ve daha sonra aynadaki uçlara kadar kod boyunca çapraz olarak yukarı ve aşağı sıçrar. Bunlar pozisyonu birer birer öteler, böylece IP geri dönüşte kalan hücreleri geçer. Bu zikzak tarzında kodu okumak şöyle olur:

ie00e0So@

Bu basit bir dize ikamesidir:

i   Read all input.
e   Push an empty string.
00  Append two zeros to create the string "00".
e   Push an empty string.
0   Append a zero to create the string "0".
S   Substitute all occurrences of "00" in the input with "0".
o   Output the result.   
@   Terminate the program.

İki dizeyi itmenin birkaç yolu daha var, örneğin, '00'0ya da e000torada 5 baytlık bir şey bulamadım (ve programı kısaltmak için iki bayt tıraş etmem gerekir).

Prolog (SWI) , 42 bayt

[0,0|T]*[0|R]:-T*R.
[H|T]*[H|R]:-T*R.
H*H.

Çevrimiçi deneyin!

Java , 131123 bayt

int[]f(int[]a){int c=0,i=0,l=a.length;for(int x:a)c+=1-x;int[]r=new int[l-c/2];for(c=0;c<l;c+=2-a[c])r[i++]=a[c];return r;}

Çevrimiçi deneyin!

JavaScript (ES6), 26 21 bayt

Girdiyi dize olarak alır ve bir dize döndürür.

s=>s.replace(/00/g,0)

Dene

f=
s=>s.replace(/00/g,0)
i.addEventListener("input",_=>o.innerText=f(i.value))
console.log(f("1001001")) // "10101"
console.log(f("110011001")) // "1101101"
console.log(f("11001110011")) // "110111011"
console.log(f("111")) // "111"
console.log(f("001")) // "01"
console.log(f("00")) // "0"
console.log(f("11100001111001001100111100100")) // "1110011110101101111010"

<input id=i><pre id=o>

Lua, 33 bayt

print((io.read():gsub("00","0")))

Girdi yoluyla bir dize alır ve çift sıfır yoğunlaştırır. Kolay.

Jöle , 8 bayt

ṣ1j1,1m2

Çevrimiçi deneyin!

Muhtemelen .replace()veya benzeri olmayan dillerdeki diğer cevaplar bu hileyi kullanabilir.

açıklama

ṣ1j1,1m2 - (duplicates the 1s, then halves all lengths)
ṣ1       - split by the element 1
  j1,1   - join the elements with the two-element list 1,1
      m2 - get every second element

Alice , 12 10 bayt

Martin Ender sayesinde 2 bayt kurtardı

i.h%.7%$io

Çevrimiçi deneyin!

açıklama

Bu, kardinal modda çalışan 1-B kodudur, bu nedenle akışını takip etmek kolaydır:

i                   Read a byte from input (pushes -1 on EOF)
 .h                 Duplicate it and add 1 to the copy
   %                Compute n%(n+1). This will exit with an error on n==-1
                    and return n for any non-negative n.
    .7%             Duplicate the input again and compute its value modulo 7
                    This returns 6 for '0' (unicode value 48) and 0 for '1'
                    (unicode value 49)
       $i           If this last result was not 0, input another number.
                    This ignores every other '0' in the input
                    and moves to the following number (another '0')
         o          Output the last byte read

                    At the end, wrap back to the beginning of the line

Python (liste G / Ç), 36 bayt

f=lambda l:l and l[:1]+f(l[2-l[0]:])

Çevrimiçi deneyin!

İlk öğeyi özyinelemeli olarak alır, ardından ilk öğeyi sıfırsa kalan öğeyi kaldırır.

38 bayt:

lambda l:eval(`l`.replace('0, 0','0'))

Çevrimiçi deneyin Bu bir Python listesi alır ve dize temsilini değiştirerek bir Python listesi çıkarır. Dize I / O, daha doğrudan ve daha kısa bir çözüme izin verir.

lambda s:s.replace('00','0')

için '1001' formatında.

APL (Dyalog) , 9 bayt

'00'⎕R'0'

Çevrimiçi deneyin!

Perl 5, 7 + 1 (-p bayrağı) = 8 bayt

<>if/0/

Yeni satırla ayrılmış sayılar olarak girdi alır. Sıfır görürse sonraki satırı atlar.

V , 4 bayt

òf0x

Çevrimiçi deneyin!

ò    ' Recursively (until we error)
 f0  ' Go to the next zero (errors when there are no zeros left)
   x ' Delete it

MATL , 5 bayt

FFOZt

Çevrimiçi deneyin!

açıklama

Bu Stewie Griffin'in Octave cevabına benzer :

FF     % Push [0 0]
O      % Push 0
Zt     % Implicitly take input. Replace [0 0] by 0. Implicitly display

8 bayt

vy~f2L)(

Bu, dize / dizi değiştirme yerleşimini önler.

Çevrimiçi deneyin!

açıklama

Girişi [1,0,0,1,0,0,1]örnek olarak düşünün :

v      % Concatenate stack (which is empty): pushes []
       % STACK: []
y      % Implicit input. Duplicate from below
       % STACK: [1,0,0,1,0,0,1], [], [1,0,0,1,0,0,1]
~f     % Negate, find: gives indices of zeros
       % STACK: [1,0,0,1,0,0,1], [], [2,3,5,6]
2L     % Push [2,2,1i]. As an index, this is interpreted as 2:2:end
       % STACK: [1,0,0,1,0,0,1], [], [2,3,5,6], [2,2,1i]
)      % Reference indexing. This selects the even-indexed entries
       % STACK: [1,0,0,1,0,0,1], [], [3,6]
(      % Assignment indexing. This deletes the specified entries
       % (assigns them the empty array). Implicitly display
       % STACK: [1,0,1,0,1]

Brachylog , 10 bayt

ḅ{cẹ|ḍh}ᵐc

Çevrimiçi deneyin!

Bunun optimal olduğundan emin değilim…

açıklama

Bu O böceği sömüren clider olan sıfır başarısız olur tamsayılar bir listede.

ḅ               Blocks; group consecutive equal elements together
 {     }ᵐ       Map on each block:
  c               It is possible to concatenate the block into an int (i.e. it contains 1s)
   ẹ              Split it again into a list of 1s
    |             Else
     ḍh           Dichotomize and take the head
         c      Concatenate the blocks into a single list

C #, 191 bayt

string a(string s){var l=(s+'1').ToCharArray();s="";int b=0;for(int i=0;i<l.Length;i++){if(l[i]=='1'){if(b>0){s+=new string('0',b/2);b=0;}s+=l[i];}else b++;}return s.Substring(0,s.Length-1);}

Çevrimiçi deneyin!

Ne temiz ne de kısa, ama işe yarıyor.

Girdiyi bitişik bir karakter dizesi olarak alır, aynı biçimde çıktılar

Açıklama:

string a(string s){                  //Define method a that takes input string s and returns a string
  var l=(s+'1').ToCharArray();       //Add a 1 to the end of s and split into char array l
  s="";                              //Empty s
  int b=0;                           //Initialize int b with value 0
  for(int i=0;i<l.Length;i++){       //Loop through l
    if(l[i]=='1'){                   //If current char is 1
      if(b>0){                       //If b is not 0
        s+=new string('0',b/2);      //Add half the amount of 0s we've counted to s
        b=0;                         //Reset b
      }                              //End if b is not 0
      s+=l[i];                       //Add current char to s
    }                                //End if current char is 1
    else b++;                        //If current char is not 1, increment b
  }                                  //End loop
  return s.Substring(0,s.Length-1);  //Return string minus last char
}                                    //End method

Not

Evet bunun basit bir şekilde yapılabileceğinin farkındayım s.Replace("00","0"), amacım bariz çözümü kullanmaktan kaçınmaktı. Sonuçta, PPCG'nin asıl amacı eğlenmek, değil mi? ;)

Pyth, 8 bayt

:z"00"\0

Deneyin bağlantısı.

Açıklama:

:z"00"\0 Takes unquoted contiguous 1-line input.
 z       Initialized to unevaluated first input line (Q won't be any shorter)
  "00"   Matching regex pattern /00/g
      \0 Substitution string "0"
:        Regex find-and-replace

Awk - 18 bayt

Öncelikle Awk ile herhangi bir şey yapmayı deneyin, böylece daha fazla golf oynamak mümkün olabilir.

{gsub(00,0);print}

Kullanımı: echo "1001001" | awk '{gsub(00,0);print}'

Yığın, 24 bayt

@set/ps=
@echo %s:00=0%

STDIN üzerine girdi alır. Bir kereliğine biraz rekabetçi.

Ortak Lisp, SBCL, 48 32 bayt

Julian Wolf sayesinde 16 bayt

(format t"~{~[0~*~;1~]~}"(read))

giriş:

(1 0 0 0 0 1 1 1 0 0)

çıktı:

1001110

açıklama

Giriş listesini okuyoruz. Liste formatişlevde kullanılır . O çıkışı aracılığıyla Biz döngü 1elemanı ise 1ve çıkışı 0ve için listenin bir sonraki elemanı atlama 0.

Mathematica, 24 bayt

StringReplace["00"->"0"]

Bir "0"s ve "1"s dizesi bekleyen ve benzer bir dize döndüren bir işlev . Açıklayıcı sözdizimi. Mathematica'da çok sayıda dönüşüm yerleşimi vardır; anahtar, ilgili tüm alt ifadeleri dönüştüren (aksine /.) bir ifadeyi kullanmaktır, ancak ifadeden yalnızca bir kez (farklı olarak //.) geçer.

Jöle , 10 bayt

Œg¹m2$S?€F

Çevrimiçi deneyin!

açıklama

Œg¹m2$S?€F
Œg          - Group runs of equal elements
        €   - To each run...
      S?    - If sum is truthy,
  ¹         -   return the run as it is
   m2$      - Else return every second element of the run.