Halbiere die Falses

19

Aufgabe

Bei einem nicht leeren Array von 0und 1halbieren Sie die Länge der Läufe von 0.

Eingang

Eine Reihe von 0und 1. Akzeptables Format:

  • Reales Array in Ihrer Sprache
  • Durch Zeilenvorschub getrennte Zeichenfolge von 0und1
  • Fortlaufende Zeichenfolge von 0und1
  • Jedes andere vernünftige Format

Beispielsweise sind die folgenden drei Eingaben zulässig:

  • [1, 0, 0, 1]
  • "1\n0\n0\n1"(wo \nist ein Zeilenvorschub U + 000A)
  • "1001"

Sie können davon ausgehen , dass die Läufe 0haben sogar Länge .

Ausgabe

Ein Array von 0und 1in den oben angegebenen akzeptablen Formaten.

Testfälle

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]

Wertung

Das ist Code-Golf . Kürzeste Antwort in Bytes gewinnt.

Es gelten Standardlücken .

code-golf  array-manipulation 
— Undichte Nonne
quelle
Haben im letzten Testfall die Nulldurchläufe nicht eine gerade Länge?
— OldBunny2800
@ OldBunny2800 Testfall sorgfältig lesen; Die 0-Runs haben die Längen 4, 2, 2, 2, 2 und 2.
— HyperNeutrino
Können wir trueund falsestatt 1und nehmen 0?
— Cyoce
@Cyoce welche Sprache?
— Undichte Nonne
@LeakyNun Ruby, der als 0wahr erachtet wird.
— Cyoce

Antworten:

11

05AB1E , 5 Bytes

00¤.:

Probieren Sie es online!

Erläuterung

00     # push 00
  ¤    # tail, pushes 0
   .:  # replace
— Emigna
quelle
2
Das war einfach; Warum habe ich nicht daran gedacht?
— Undichte Nonne
00ist seltsames Verhalten ...
— Erik der Outgolfer
@EriktheOutgolfer: Sequentielle Ziffern werden zu einer Zahl verkettet, also sind 11es elf und nicht elf 1,1. Ein Nebeneffekt davon ist , dass 00wird 00statt 0,0:)
— Emigna
@Emigna Ich hätte erwartet, dass es wird 0oder 0 0stattdessen, aber was auch immer.
— Erik der Outgolfer
7

C (gcc) , 35 Bytes

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

48 ist der ASCII-Code von '0'

bessere Version 43 Bytes, wie von Neil vorgeschlagen

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

ein weiteres 40 Byte dieses Mal (wieder wie von Neil & VisualMelon vorgeschlagen) :)

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

und dann 35 Bytes dank Khaled.K 

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

Probieren Sie es online!

— Alkano
quelle
1
Würde s+=2-*s%2funktionieren
— Neil
1
Wenn ich richtig gezählt habe denke ich, for(;*s;s+=2-*s%2)putchar(*s);spart ein weiteres Byte.
— Neil
1
Was wäre falsch daran s+=50-*s?
— Wird
1
Wenn Sie sich die putcharDokumente ansehen, können Sie das tun f(char*s){for(;*s;s+=50-putchar(*s));}?
— VisualMelon
3
Sie können 5 Bytes sparen, indem Sie es rekursiv machenf(char*s){*s&&f(s+50-putchar(*s));}
— Khaled.K
6

Java, 50 Bytes

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

Versuchen Sie es online

— Khaled.K
quelle
1
Eine sehr gute Eingabewahl! By the way, wenn Sie interessiert sind , um ein Java 8+ Lösung in Schalen, könnten Sie ein Lambda benutzen s->s.replaceAll("00","0").
— Jakob
Noch besser, verwenden Sie replaceanstelle von replaceAll3 Bytes zu speichern
— Benjamin Urquhart
@BenjaminUrquhart ersetzt replacenur das erste Vorkommen
— Khaled.K
@ Khaled.K in Javascript, ja. In Java ersetzt es alle Vorkommen
— Benjamin Urquhart
5

Haskell , 28 Bytes

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

Probieren Sie es online!

Nimmt rekursiv das erste Element und löscht das zweite, wenn das erste Null ist, bis die Liste leer ist. Wenn der erste Eintrag ist h, werden die ersten 1-haus dem Rest gelöscht.

— xnor
quelle
5

Japt , 7 6 5 Bytes

d'0²0

Probieren Sie es online!

Ersetzt einfach jeden Lauf mit zwei Nullen in der Eingabe durch eine Null. Verwendet die Zeichenketteneingabe (dh "1001001").

— Luke
quelle
1
Nett! Sie brauchen nicht einmal die 'ich denke
— ETHproductions
Ooh, können Sie ein anderes Byte speichern durch Ersetzen "00"mit '0²:-)
— ETHproductions
Nun, das ist komisch. Trotzdem danke!
— Luke
4

PHP, 26

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

Ersetzen Sie einfach alle 00durch 0.

— Christoph
quelle
4

Alice , 13 Bytes

/oe00/
@iS0e\

Probieren Sie es online!

Erläuterung

/.../
@...\

Dies ist eine einfache Vorlage für lineare Programme, die vollständig im Ordinalmodus arbeiten. Die Initiale /spiegelt die IP wider, die sich nach Südosten bewegt, und springt dann diagonal durch den Code auf und ab, bis die Spiegel am Ende sind. Diese versetzen die Position einfach um eins, so dass die IP auf dem Rückweg die verbleibenden Zellen durchquert. Das Lesen des Codes in dieser Zick-Zack-Weise wird zu:

ie00e0So@

Dies ist eine einfache Zeichenfolgensubstitution:

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.

Es gibt ein paar andere Möglichkeiten, die beiden Zeichenfolgen zu verschieben, z. B. '00'0oder e000t, aber ich habe dort nichts gefunden, das 5 Byte überschreitet (und ich müsste zwei Byte abschneiden, um das Programm kürzen zu können).

— Martin Ender
quelle
2
Sieht so aus, als hättest du dich kürzlich in Alice verliebt ...
— Undichte Nonne
6
@LeakyNun Bitte sag meiner Frau nichts ...
— Martin Ender
@MartinEnder Das erzähle ich Mrs. Ender!
— Erik der Outgolfer
3

JavaScript (ES6), 26 21 Bytes

Nimmt die Eingabe als Zeichenfolge und gibt eine Zeichenfolge zurück.

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

Versuch es

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>
Erweitern Sie das Snippet

— Zottelig
quelle
3

Lua, 33 Bytes

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

Nimmt einen String über die Eingabe und verdichtet die Doppel-Nullen. Einfach.

— Ausplaudern
quelle
3

Gelee , 8 Bytes

ṣ1j1,1m2

Probieren Sie es online!

Möglicherweise können andere Antworten in Sprachen ohne .replace()oder mit ähnlichem diesen Trick verwenden.

Erläuterung

ṣ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
— fireflame241
quelle
3

Alice , 12 10 Bytes

2 Bytes gespart dank Martin Ender

i.h%.7%$io

Probieren Sie es online!

Erläuterung

Dies ist ein 1-D-Code, der im Kardinalmodus ausgeführt wird, sodass der Ablauf leicht zu verfolgen ist:

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
— Löwe
quelle
Sie können tatsächlich zwei weitere Bytes miti.h%...
— Martin Ender
@MartinEnder du bist ein böser Mensch und bringst den Leuten bei, schmutzig zu spielen ...: D
— Leo
2

Python (Listen-E / A), 36 Byte

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

Probieren Sie es online!

Nimmt rekursiv das erste Element und entfernt dann das verbleibende, wenn das erste Null war.

38 Bytes:

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

Online testen Hiermit wird eine Python-Liste erstellt und eine Python-Liste ausgegeben, indem die Zeichenfolgendarstellung ersetzt wird. String I / O würde eine direktere und kürzere Lösung ermöglichen, wie z

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

für das '1001' Format.

— xnor
quelle
Die erste Antwort mit angegebenem Format, nett.
— Undichte Nonne
1
String I / O ist erlaubt. lambda s:s.replace('00','0')sollte gut sein.
— Jonathan Allan
2

Perl 5, 7 + 1 (-p Flag) = 8 Bytes

<>if/0/

Nimmt die Eingabe als durch Zeilenumbrüche getrennte Zahlen vor. Überspringt die nächste Zeile, wenn eine Null angezeigt wird.

— Chris
quelle
2

MATL , 5 Bytes

FFOZt

Probieren Sie es online!

Erläuterung

Dies ist vergleichbar mit Stewie Griffin Octave Antwort :

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

8 Bytes

vy~f2L)(

Dies vermeidet das eingebaute Ersetzen von Strings / Arrays.

Probieren Sie es online!

Erläuterung

Betrachten Sie die Eingabe [1,0,0,1,0,0,1]als Beispiel:

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]
— Luis Mendo
quelle
1

Brachylog , 10 Bytes

ḅ{cẹ|ḍh}ᵐc

Probieren Sie es online!

Ich bin mir nicht sicher, ob das noch optimal ist ...

Erläuterung

Dies nutzt den Fehler aus, der cbei einer Liste von Ganzzahlen mit führenden Nullen fehlschlägt.

ḅ               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
— Tödlich
quelle
Wie ist das ein Bug?
— Undichte Nonne
@LeakyNun sollten wir in der Lage sein , zu verketten [0,0,4,2]in 42. Führende Nullen führen derzeit zum Fehlschlagen, da hier verhindert werden soll, dass unendliche führende Nullen auftreten, wenn der Eingang eine Variable ist. Hier ist der Eingang jedoch vollständig geerdet, sodass keine Einschränkung bestehen sollte.
— Fatalize
Würden Sie eine Prolog-Antwort schreiben?
— Undichte Nonne
1

C #, 191 Bytes

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

Probieren Sie es online!

Es ist weder sauber noch kurz, aber es funktioniert.

Nimmt Eingaben als zusammenhängende Zeichenfolge an und gibt sie im gleichen Format aus

Erläuterung:

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

Hinweis

Ja, ich bin mir bewusst, dass dies einfach mit getan werden s.Replace("00","0")kann. Mein Ziel war es, die offensichtliche Lösung zu vermeiden. Schließlich geht es bei PPCG darum, Spaß zu haben, oder? ;)

— Skidsdev
quelle
@ Mr.Xcoder Das stimmt nicht. Dies ist ungefähr so ​​gut wie Sie es können, ohne die eingebaute Sprache zu verwenden. Replace Ich benutze C # und mache mir keine Illusionen darüber, den kürzestmöglichen Code zu erhalten, besonders wenn Sprachen wie Jelly in der Nähe sind in dem Prozess.
— Skidsdev
natürlich ist auch spaß wichtig. Ich entschuldige mich für den obigen Kommentar und muss zugeben, dass mir Ihre Antwort selbst gefallen hat (die von Ihnen verwendete Technik).
— Mr. Xcoder
@ Mr.Xcoder keine harten Gefühle, letztendlich sind wir alle hier, um Spaß zu haben und unsere ansonsten nutzlose Fähigkeit zu beugen, Code so weit wie möglich zu komprimieren;)
— Skidsdev
Sie können viel kürzer machen, ohne zu ersetzen! string a(string s){var r="";for(int i=0;i<s.Length;i+=50-s[i])r+=s[i];return r;} (sieht aus wie dies ist im Grunde die C-Antwort)
— VisualMelon
1

Pyth, 8 Bytes

:z"00"\0

Try-it-Link.

Erläuterung:

: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
— Erik der Outgolfer
quelle
1

Awk - 18 Bytes

Versuchen Sie zuerst, etwas mit Awk zu tun, damit Sie möglicherweise mehr Golf spielen können.

{gsub(00,0);print}

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

— PsHegger
quelle
1

Batch, 24 Bytes

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

Übernimmt die Eingabe für STDIN. Einmal etwas konkurrenzfähig.

— Neil
quelle
1

Common Lisp, SBCL, 48 32 Bytes

-16 Bytes dank Julian Wolf

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

Eingang:

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

Ausgabe:

1001110

Erläuterung

Wir lesen die Eingabeliste. Liste wird in formatFunktion verwendet. Wir durchlaufen die Ausgabe, 1wenn das Element ist, 1und geben das 0nächste Element der Liste für aus und überspringen es 0.

Mit ~[anstatt ~:[können Sie direkt mit 0 und 1 indizieren, was Ihnen eine Menge Bytes ersparen sollte
— Julian Wolf
@ JulianWolf Danke!
1

Mathematica, 24 Bytes

StringReplace["00"->"0"]

Eine Funktion, die eine Zeichenfolge von "0"s und "1"s erwartet und eine ähnliche Zeichenfolge zurückgibt. Selbsterklärende Syntax. Mathematica verfügt über viele Transformationsfunktionen. Der Schlüssel ist, einen zu verwenden, der alle relevanten Unterausdrücke transformiert (anders als /.), den Ausdruck jedoch nur einmal durchläuft (anders als //.).

— Greg Martin
quelle
1

Gelee , 10 Bytes

Œg¹m2$S?€F

Probieren Sie es online!

Erläuterung

Œ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.
— fireflame241
quelle
Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.