Ich denke, es gibt hier nicht genug einfache Fragen, die Anfänger versuchen können!

Die Herausforderung: Bei einer zufälligen Eingabe von Einsen und Nullen wie:

10101110101010010100010001010110101001010

Schreiben Sie den kürzesten Code, der die bitweise Inverse ausgibt, wie folgt:

01010001010101101011101110101001010110101

J, 5 Bytes

Angenommen, die Eingabezeichenfolge ist variabel b.

b='0'

Dies ist in den meisten Sprachen nicht das, was es tun würde ...

Der J-Vergleichsoperator ist gerecht =( =:und =.ist eine globale bzw. eine lokale Zuweisung). Funktioniert jedoch =nicht wie der normale ==Operator: Er vergleicht Artikel für Artikel. Beachten Sie, dass ein Array wie folgt gebildet wird: 0 2 3 2 3 1 2 3 4. 2 = 0 2 3 2 3 1 2 3 4gibt 0 1 0 1 0 0 1 0 0zum Beispiel. Dies ist ähnlich wie bei einem String: 'a'='abcadcadda'nicht nur zurückkehren 0, gibt sie 1 0 0 1 0 0 1 0 0 1(diese hochgerechnet werden kann bedeuten , 0mit */, was im Grunde bedeutet all) . In diesem Fall jedoch ist dieses Verhalten ausgezeichnet, da wir eine Reihe von Einsen und Nullen werden sollen, oder wahr und falsch. Da J bools ist 1 und 0führt dies in einer Reihe von 1‚s und0's (Es handelt sich nicht um Zeichenfolgen, und jedes andere Zeichen als das 1würde ebenfalls zu 0diesem Array führen.) Dies muss nicht gedruckt werden: J druckt automatisch das Ergebnis eines Ausdrucks. Ich hoffe, dies war eine angemessene Erklärung. Wenn nicht, fragen Sie bitte nach etwas, das in den Kommentaren noch nicht klar ist. Diese Antwort hätte auch '0'&=(oder =&'0') sein können, aber ich fand das b='0'klarer.

GolfScript , 5 Bytes

{1^}%

Probieren Sie es online aus.

Wie es funktioniert

• GolfScript liest die gesamte Eingabe von STDIN und platziert sie als Zeichenfolge auf dem Stapel.

• {}% Durchläuft alle Zeichen in der Zeichenfolge und führt den Codeblock für alle aus.

• 1^ Berechnet das exklusive ODER der Zeichen des ASCII-Codes mit 1. "0" entspricht dem ASCII-Code 48, "1" dem ASCII-Code 49.

  Seit 48 ^ 1 = 49und 49 ^ 1 = 48werden 0en zu Einsen und 1en zu Nullen.

• Anschließend druckt GolfScript die geänderte Zeichenfolge.

CJam - 4

q1f^

Diese xor jedes Zeichen mit 1.
Im Gegensatz zu der anderen CJam-Antwort gehe ich nicht davon aus, dass die Eingabe bereits auf dem Stapel ist.

Versuchen Sie es unter http://cjam.aditsu.net/

x86-Maschinencode unter DOS - 14 13 11 Bytes

Nun, es wurde wieder kürzer! Nachdem ich eine Lösung für eine nicht verwandte Herausforderung geschrieben hatte , bemerkte ich, dass derselbe Trick auch hier angewendet werden konnte. Auf geht's:

00000000  b4 08 cd 21 35 01 0a 86  c2 eb f7                 |...!5......|
0000000b

Kommentierte Versammlung:

    org 100h

section .text

start:
    mov ah,8        ; start with "read character with no echo"
lop:
    ; this loop runs twice per character read; first with ah=8,
    ; so "read character with no echo", then with ah=2, so
    ; "write character"; the switch is performed by the xor below
    int 21h         ; perform syscall
    ; ah is the syscall number; xor with 0x0a changes 8 to 2 and
    ; viceversa (so, switch read <=> write)
    ; al is the read character (when we did read); xor the low
    ; bit to change 0 to 1 and reverse
    xor ax,0x0a01
    mov dl,al       ; put the read (and inverted character) in dl,
                    ; where syscall 2 looks for the character to print
    jmp lop         ; loop

Vorherige Lösung - 13 Bytes

Ich denke, es wird nicht viel kürzer.Eigentlich war es so! Vielen Dank an @ninjalj für das Abschneiden eines weiteren Bytes.

00000000  b4 08 cd 21 34 01 92 b4  02 cd 21 eb f3           |...!4.....!..|
0000000d

Diese Version bietet erweiterte Interaktivität ™ - nachdem sie über die Befehlszeile ausgeführt wurde, werden die "invertierten" Zeichen ausgespuckt, solange Sie die Eingabeziffern eingeben (die nicht wiedergegeben werden). Zum Verlassen drücken Sie einfach Strg-C.

Im Gegensatz zur vorherigen Lösung treten bei der Ausführung von DosBox einige Probleme auf. Da DosBox Strg-C nicht korrekt unterstützt , müssen Sie das DosBox-Fenster schließen, wenn Sie das Programm beenden möchten. In einer VM mit DOS 6.0 wird es stattdessen wie beabsichtigt ausgeführt.

NASM-Quelle:

org 100h

section .text

start:
    mov ah,8
    int 21h
    xor al,1
    xchg dx,ax
    mov ah,2
    int 21h
    jmp start

Alte Lösung - 27 25 22 Bytes

Dies akzeptierte seine Eingabe von der Kommandozeile; Läuft reibungslos als .COM-Datei in DosBox.

00000000  bb 01 00 b4 02 8a 97 81  00 80 f2 01 cd 21 43 3a  |.............!C:|
00000010  1e 80 00 7c f0 c3                                 |...|..|

NASM-Eingabe:

    org 100h

section .text

start:
    mov bx, 1
    mov ah, 2
loop:
    mov dl, byte[bx+81h]
    xor dl, 1
    int 21h
    inc bx
    cmp bl, byte[80h]
    jl loop
exit:
    ret

Bash + Coreutils, 8 Bytes

tr 01 10

Übernimmt die Eingabe von STDIN.

Oder

sed, 8 bytes

y/01/10/

CJam , 4 Bytes

:~:!

Angenommen, die ursprüngliche Zeichenfolge befindet sich bereits auf dem Stapel. Druckt die geänderte Zeichenfolge.

Probieren Sie es online aus, indem Sie den folgenden Code einfügen :

"10101110101010010100010001010110101001010":~:!

Wie es funktioniert

• :~wertet jedes Zeichen des Strings aus, dh es ersetzt das Zeichen 0 durch die Ganzzahl 0.

• :!berechnet das logische NICHT jeder ganzen Zahl. Dies macht aus Nullen Einsen und aus Einsen Nullen.

Brainfuck ( 70 71)

>,[>,]<[<]>[<+++++++[>-------<-]<+>>[++<]<[>]++++++++[>++++++<-]>.[-]>]

Erläuterung:

>,[>,]                       Read characters until there are none left.
<[<]                         Return to start
>[<                          Loop as long as there are characters to invert
  +++++++[>-------<-]        Subtract 49 (ASCII value of 1)
  >[++<]                     If not 0, add 2
  +++[<++++>-]<[>>++++<<-]>> Add 48
  .                          Print
  [-]                        Set current cell to 0
>]                           Loop

PHP - 19 Bytes

<?=strtr($s,[1,0]);

Ja, nicht wirklich originell, denke ich!

Pfannkuchenstapel , 532 Bytes

Put this tasty pancake on top!
[]
Put this delicious pancake on top!
[#]
Put this  pancake on top!
How about a hotcake?
If the pancake is tasty, go over to "#".
Eat all of the pancakes!
Put this supercalifragilisticexpialidociouseventhoughtheso pancake on top!
Flip the pancakes on top!
Take from the top pancakes!
Flip the pancakes on top!
Take from the top pancakes!
Put this supercalifragilisticexpialidociouseventhoughthes pancake on top!
Put the top pancakes together!
Show me a pancake!
If the pancake is tasty, go over to "".

Es wird davon ausgegangen, dass die Eingabe durch ein Nullzeichen abgeschlossen wird. Die Strategie ist wie folgt:

• Nehmen Sie ein Zeichen der Eingabe
• Subtrahieren Sie den ASCII-Wert 1davon.
• Subtrahiere das von 0(und gib ein 1wenn wir hatten 0oder ein 0wenn wir hatten 1)
• Addieren Sie den ASCII-Wert von 0dazu
• Zeichen drucken
• Wiederholen

C: 29

i(char*s){*s^=*s?i(s+1),1:0;}

Probieren Sie es hier online aus .

Vielen Dank, dass Sie auf den XOR-Trick hingewiesen haben, Dennis.

Python 2.7 - 34 *

Oh, wie viel saugt dieser erste. Ziemlich hässlich, das ist. 63 Zeichen.

print''.join([bin(~0)[3:] if x == '0' else bin(~1)[4:] for x in ''])

Dieser ist ein bisschen besser, aber immer noch nicht so schick. 44 Zeichen.

print''.join([str(int(not(int(x)))) for x in ''])

Da wird int(x) and 1zurückgegeben, int(x)wenn es nicht 0 ist und sonst False. Die Lösung kann weiter auf 36 Zeichen reduziert werden.

print''.join([str(1-int(x)) for x in ''])

Da join()ein Generator benötigt, können die Halterungen entfernt werden. 32 Zeichen.

print''.join(str(1-int(x))for x in'')

Und Backticks können anstelle von verwendet werden str()

print''.join(`1-int(x)`for x in'')

Reduziert von 34 auf 44 dank Zeigern von @TheRare

In Python ist es schwierig, das eigene Komplement zu finden, da bin(-int)-0bxxx zurückgegeben wird.

Perl, 9 Zeichen

'y/10/01/'

Das neunte Zeichen ist das 'p'-Flag

Verwendungszweck:

$ echo '10101001' | perl -pe 'y/10/01/'

Javascript ( ES6 ) 36

alert(prompt().replace(/./g,x=>x^1))

Labyrinth , 6 Bytes

(Labyrinth ist neuer als diese Herausforderung, daher konkurriert diese Antwort nicht - nicht, dass sie sowieso gewinnt ...)

1,
.$@

In diesem Code wird davon ausgegangen, dass STDIN nur die Ziffern enthält (insbesondere keine abschließenden Zeilenumbrüche).

Der Anweisungszeiger (IP) beginnt in der oberen linken Ecke und geht nach rechts. Während es zu lesende Ziffern gibt, durchläuft es den linken 2x2-Block in einer engen Schleife: 11 drücken, ,eine Ziffer lesen, $mit 1 XOR-verknüpft, um das letzte Bit .umzuschalten, das Ergebnis auszudrucken. Die IP nimmt diese Schleife, weil die Spitze des Stapels nach dem XOR positiv ist, so dass es eine Rechtskurve dauert. Wenn wir EOF drücken, ,kehren wir -1stattdessen zurück. Dann gibt das XOR nach -2und mit diesem negativen Wert biegt die IP nach links ab @und das Programm endet.

Diese Lösung sollte für Labyrinth optimal sein: Sie benötigen ,und .für eine E / A-Schleife und @zum Beenden des Programms. Sie benötigen mindestens zwei Zeichen (hier 1und $), um das letzte Bit umzuschalten. Und Sie benötigen mindestens eine neue Zeile für eine Schleife, die beendet werden kann.

Es sei denn ... wenn wir STDERR ignorieren, dh das Beenden mit einem Fehler erlauben, können wir das speichern @und wir brauchen auch keine Möglichkeit, zwischen zwei Pfaden umzuschalten. Wir lesen und drucken einfach weiter, bis wir versehentlich versuchen, einen negativen Wert (das -2) zu drucken . Dies ermöglicht mindestens zwei 5-Byte-Lösungen:

1,
.$

,_1$.

Rubin: 23

p $<.read.tr("01","10")

Turing Machine Code, 32 Bytes (1 Zustand - 3 Farben)

Verwenden der für diesen Online-TM-Simulator erforderlichen Regeltabellensyntax. Ausgeliehen von einem Beitrag, den ich vor einigen Monaten in meinem Googology Wiki-Benutzerblog verfasst habe.

0 0 1 r *
0 1 0 r *
0 _ _ * halt

Sie können dies auch mit dieser Java-Implementierung testen .

Python 2.x - 44 Bytes

print''.join(`1-int(x)`for x in raw_input())

Warum es komplexer machen oder einige betrügerische Variablen verwenden?

R, 27 Zeichen

chartr("01","10",scan(,""))

Verwendungszweck:

> chartr("01","10",scan(,""))
1: 10101110101010010100010001010110101001010
2: 
Read 1 item
[1] "01010001010101101011101110101001010110101"

APL (Dyalog Unicode) , 7 Byte ^SBCS

Volles Programm. Fordert stdin auf.

∊⍕¨~⍎¨⍞

Probieren Sie es online!

⍞ prompt stdin

⍎¨ Führe jedes Zeichen aus

~ logisches NICHT

⍕¨ Formatieren Sie jedes Zeichen als Text

∊ ϵ nlist (Abflachen)

PHP> 5.4 - 37 Zeichen

foreach(str_split($s) as $v)echo 1^$v

$s ist der Eingang

Try it online

TI-BASIC, 7 Bytes

Dies ist eine Funktion, die eine Binärzeichenfolge (Through Ans) als Eingabe verwendet und die Ausgabe wie angegeben als invertierte (nicht umgekehrte) Zeichenfolge zurückgibt. Für weitere Hilfe können Sie not(die Listenanwendung im TI-BASIC-Wiki durchlesen. Ich benutze die kompilierte Version, weil sie kleiner ist:

»*r>Õ¸r

In hex:

BB 2A 72 3E D5 B8 72

Erläuterung

»*r - Funktionseingabe als String übernehmen und in Liste konvertieren

> - Geben Sie die Liste an die nächsten Bediener weiter

Õ¸r - Kehrt die Liste um

Haskell, 22 Bytes

map(\c->"10"!!read[c])

Der Mangel an Haskell-Lösungen für diese Herausforderung hat mich überrascht. Es wird zu einer Funktion ausgewertet, die eine Zeichenfolge akzeptiert und deren Inverse zurückgibt.

Erläuterung

Hier ist nichts Besonderes.

map(\c->             )  -- For each character c in the input string:
                  [c]   -- wrap c into a string,
              read      -- convert to integer,
        "10"!!          -- and index the string "10" with it.

Befunge 93, 25 Bytes

0>~1+:#v_$>:#,_@
 ^   -1<

Angenommen, leerer Stapel und EOF lesen beide -1.

0 drückt eine \ 0 als Null-Terminator

>~1+:#v_ ist eine Eingangsschleife, liest ASCII, addiert 1, prüft auf EOF + 1 = 0,

^ -1< sonst subtrahiert 1 und belässt den gepushten ASCII-Wert auf dem Stapel.

$>:#,_@ Legt die zusätzliche Kopie von Null oben auf dem Stapel ab und druckt die Binärzeichenfolge von oben nach unten

Wenn der leere Stapel 0 lautet, speichern Sie 2 Bytes mit

>~:1+#v_$>:#,_@
^   -1<

Eine Version von ungefähr 15 Bytes ist mit demselben Algorithmus möglich, wenn EOF = 0 ist, aber ich habe eine solche Implementierung nicht zum Testen zur Hand.

Javascript ES6, 26 Zeichen

s=>s.replace(/\d/g,x=>x^1)

Befunge-98 (PyFunge) , 7 Bytes

'a#@~-,

Für jedes Zeichen wird cin der Eingabe das Zeichen mit einem ASCII-Wert von gedruckt 94 - c, wobei 94 der Wert von '0' + '1' oder 'a' ist.

Probieren Sie es online!

Python3, 39

Methinks Python ist dafür nicht die beste Sprache. :)

for i in input():print(1-int(i),end='')

Wenn Sie nach der Ausgabe eine neue Zeile haben möchten, finden Sie hier eine 43-stellige Alternative:

print(''.join("01"[i<"1"]for i in input()))

J - 11 Zeichen

Boolesche Werte in J werden als Ganzzahlen dargestellt 0und 1sind natürlich auch gültige Indizes für Arrays (in diesem Fall das 2-Zeichen-Array '01').

'01'{~'0'&=

C # 131 Bytes

Ein bisschen zu spät zur Party, aber hier ist meins. :)

using System;class R{static void Main(string[]a){foreach(var v in a[0].ToCharArray()){Console.Write(int.Parse(v.ToString())^1);}}}

MATLAB, 13 Bytes

@(x)[97-x '']

Rufen Sie nach dem Ausführen des obigen Befehls einfach die Funktion mit Ihrer Eingabezeichenfolge auf, um die invertierte Zeichenfolge abzurufen. Zum Beispiel läuft:

ans('10101110101010010100010001010110101001010')

druckt:

01010001010101101011101110101001010110101

BotEngine , 4x8 = 32

Nicht konkurrierend, da die Sprache die Frage datiert.

Iv2 0 12
 >e>S SS
    e1e0
   ^< <P

Mit Hervorhebung: