Bana, yeni başlayanların deneyebileceği, yeterince kolay soru olmadığını düşünüyor!

Zorluk: 1 ve 0 gibi rastgele bir girdi dizgesi verilir:

10101110101010010100010001010110101001010

Bit-wise tersini veren en kısa kodu şöyle yaz:

01010001010101101011101110101001010110101

J, 5 bayt

Giriş dizesinin değişken olduğunu varsayar b.

b='0'

Bu, çoğu dilde yapacağı şeyi yapmaz ...

J karşılaştırma operatörü adildir =( =:ve =.sırasıyla global ve yerel görevlendirmedir). Bununla birlikte, =normal ==operatör gibi çalışmaz : öğeden parça karşılaştırır. Bir dizi böyle oluşur Unutmayın: 0 2 3 2 3 1 2 3 4. örneğin 2 = 0 2 3 2 3 1 2 3 4verir 0 1 0 1 0 0 1 0 0. Bu bir dize için benzerdir 'a'='abcadcadda'sadece dönmez 0döndürür, 1 0 0 1 0 0 1 0 0 1(Bu demek çıkarım olabilir 0ile */temelde, yani all, ancak bu durumda.) Biz birler ve sıfırlar dizisi istiyorum çünkü bu davranış, mükemmel, ya True ve Sahte'nin. J's bools olduklarından 1 ve 0bu bir dizi 1s ile sonuçlanır ve0's (Dizeler değiller ve bu diziyle 1sonuçlanacak diğer karakterlerin hepsi de değildir 0.) Bunun yazdırılması gerekmez: J otomatik olarak bir ifadenin sonucunu yazdırır. Umarım bu yeterli açıklamadı, olmasa da, yorumlarda henüz net olmayan bir şey isteyin. Bu cevap da olabilirdi '0'&=(veya =&'0'), ama bunun b='0'daha açık olduğunu hissettim .

GolfScript , 5 bayt

{1^}%

Çevrimiçi deneyin.

Nasıl çalışır

• GolfScript, girişin tamamını STDIN'den okur ve yığına dizge olarak yerleştirir.

• {}% dizedeki tüm karakterleri inceler ve hepsi için kod bloğunu çalıştırır.

• 1^ ASCII kodunun özel OR'sini 1 ile hesaplar. “0”, ASCII koduna 48, “1” - ASCII koduna 49 karşılık gelir.

  Bu yana , bu 0'ları 1'lere 48 ^ 1 = 49ve 49 ^ 1 = 481'leri 0'lara dönüştürüyor.

• Bittiğinde, GolfScript değiştirilen dizeyi yazdırır.

CJam - 4

q1f^

Bu xor, 1 ile her karakter
. Diğer CJam cevabından farklı olarak, girdi zaten yığında olduğunu varsaymıyorum.

Http://cjam.aditsu.net/ adresinde deneyin

DOS'ta x86 makine kodu - 14 13 11 bayt

Yine kısaldı! İlgisiz bir meydan okuma için bir çözüm yazdıktan sonra , aynı hilenin burada bile uygulanabileceğini fark ettim. İşte başlıyoruz:

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

Yorum yapılan montaj:

    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

Önceki çözüm - 13 bayt

Sanırım bundan daha kısa sürmüyor.Aslında oldu! @Ninjalj'a bir bayt daha tıraş ettiğin için teşekkürler.

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

Bu sürüm gelişmiş etkileşime sahiptir ™ - komut satırından çalıştırdıktan sonra, giriş basamaklarını yazdığınız sürece (ters çevrilmiş) "ters çevrilmiş" karakterleri dağıtır; çıkmak için, sadece bir Ctrl-C yapın.

Önceki çözümden farklı olarak, DosBox'ta çalışan bazı sorunlar var - DosBox doğru bir şekilde Ctrl-C'yi desteklemediğinden , çıkmak istiyorsanız DosBox penceresini kapatmak zorunda kalırsınız. DOS 6.0'lı bir VM'de bunun yerine amaçlandığı şekilde çalışır.

NASM kaynağı:

org 100h

section .text

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

Eski çözüm - 27 25 22 bayt

Bu, komut satırından girişini kabul etti; DosBox'ta bir .COM dosyası olarak sorunsuz çalışır.

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 girişi:

    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 bayt

tr 01 10

STDIN'den girdi alır.

Veya

sed, 8 bayt

y/01/10/

CJam , 4 bayt

:~:!

Orijinal dizenin zaten yığında olduğunu varsayalım. Değiştirilen dizeyi yazdırır.

Aşağıdaki Kodu yapıştırarak çevrimiçi deneyin :

"10101110101010010100010001010110101001010":~:!

Nasıl çalışır

• :~dizenin her karakterini değerlendirir, yani 0 karakterini 0 tamsayısıyla değiştirir .

• :!Her bir tamsayının mantıksal DEĞİL değerini hesaplar. Bu 0'ları 1'lere ve 1'leri 0'lara dönüştürür.

Brainfuck ( 70 71)

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

Açıklama:

>,[>,]                       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 bayt

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

Evet, gerçekten orijinal değil sanırım!

Krep Yığını , 532 bayt

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

Girişin boş bir karakterle sonlandırıldığını varsayar. Strateji aşağıdaki gibidir:

• Girdi karakterini al
• Bunun ascii değerini çıkarın 1.
• Şunu çıkarın 0( 1eğer varsa 0, ya da sahip 0olsak 1).
• Ascii değerini 0ona ekle
• Char yazdırın.
• Tekrar et

C: 29

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

Burada çevrimiçi deneyin .

XOR numarasına dikkat çektiğin için teşekkürler, Dennis.

Python 2.7 - 34 *

Oh, bu ilk ne kadar berbat. Oldukça çirkin, bu bir. 63 karakter.

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

Bu biraz daha iyi ama yine de o kadar da süslü değil. 44 karakter.

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

O zamanlar 0 değilse ve yanlış ise int(x) and 1döner int(x). Çözelti ayrıca 36 karaktere düşürülebilir.

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

Bu yana join()bir jeneratör alır parantez çıkarılabilir. 32 karakter.

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

Ve backticks yerine kullanılabilir str()

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

@TheRare'in işaretçileri sayesinde 34'ten 44'e düşürüldü

Birinin tamamlayıcısını bulmak python için zordur, çünkü bin(-int)-0bxxx döndürür, bu yüzden yukarıdakileri döndürür.

Perl, 9 karakter

'y/10/01/'

9. karakter “p” bayrağıdır.

Kullanımı:

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

Javascript ( ES6 ) 36

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

Labirent , 6 bayt

(Labirent, bu mücadeleden daha yeni, bu yüzden bu cevap rekabet etmiyor - yine de kazanıyor değil ...)

1,
.$@

Bu kod STDIN’in yalnızca içerdiğini varsayar rakamları (özellikle yeni satır yok).

Talimat işaretçisi (IP), sol üst köşede sağa doğru ilerleyerek başlar. Okumak için rakamlar varken, soldaki 2x2 bloğun içinden geçen sıkı bir döngüde dönecektir: 11'e basın, ,bir rakam okuyun $, son parçayı değiştirmek için 1 ile XOR'a .basın, sonucu yazdırın. IP bu döngüyü alır çünkü yığının üstü XOR'dan sonra pozitif olur, öyle ki sağa döner. EOF'ye bastığımızda, bunun yerine ,geri döner -1. Sonra XOR üretecek -2ve bu negatif değerle IP sola dönüşe geçecek @ve program sona erecektir.

Bu çözüm, Labirent için ideal olmalıdır: ihtiyacınız olan ,ve .bir G / Ç döngüsü için ve @programı sonlandırmak için. Son biti değiştirmek için en az iki karakter (burada 1ve $) gerekir. Ve sonlandırılabilen bir döngü için en az bir yeni hatta ihtiyacınız var.

STDERR'yi yok sayarsak, yani bir hata ile sonlandırmaya izin vermezsek, onu kaydedebiliriz @ve ayrıca iki yol arasında geçiş yapmak için herhangi bir yola ihtiyacımız yoktur. Yanlışlıkla negatif bir değer ( -2) basmaya çalışıncaya kadar okumaya ve yazdırmaya devam ediyoruz . Bu, en az iki adet 5 baytlık çözüm sağlar:

1,
.$

,_1$.

Yakut: 23

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

Turing Makine Kodu, 32 bayt (1 durum - 3 renk)

Bu çevrimiçi TM simülatörünün gerektirdiği kural tablosu sözdizimini kullanma . Birkaç ay önce Googology Wiki kullanıcı bloguma yaptığım bir yazıdan ödünç aldım.

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

Bu java uygulamasını kullanarak da bunu test edebilirsiniz .

Python 2.x - 44 bayt

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

Neden onu karmaşık yapıyor veya bazı hileli değişkenleri kullanıyorsunuz?

R, 27 karakter

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

Kullanımı:

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

APL (Dyalog Unicode) , 7 bayt ^SBCS

Tam program İstemi stdin.

∊⍕¨~⍎¨⍞

Çevrimiçi deneyin!

⍞ hızlı stdin

⍎¨ her karakteri yürüt

~ mantıksal DEĞİL

⍕¨ her karakteri metin olarak biçimlendir

∊ ε nlist (dümdüz)

PHP> 5.4 - 37 karakter

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

$s giriş

Try it online

TI-BASIC, 7 bayt

Bu, Ansgirdi olarak (içinden ) bir ikili dize alan ve çıktıyı belirtildiği gibi ters çevrilmiş (ters değil) bir dize olarak döndüren bir işlevdir . Daha fazla yardım için liste uygulamasını not(TI-BASIC wiki sayfasından okuyabilirsiniz . Derlenmiş sürümü kullanıyorum çünkü daha küçük:

»*r>Õ¸r

Onaltılı olarak:

BB 2A 72 3E D5 B8 72

açıklama

»*r - Fonksiyon girişini string olarak alın ve listeye dönüştürün

> - Sonraki operatörlere verilen boru listesi

Õ¸r - Listenin tersini döndür

Haskell, 22 bayt

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

Haskell'in bu zorluğa yönelik çözümlerinin bulunmamasından şaşırdım, işte bir tane. Bir dize alan ve tersini döndüren bir işlevi değerlendirir.

açıklama

Burada süslü bir şey yok.

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 bayt

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

Boş yığının ve EOF'nin ikisinin de -1 okuduğunu varsayarsak.

0 boş bir sonlandırıcı olarak bir \ 0 iter

>~1+:#v_ bir giriş döngüsü, ascii okur, 1 ekler, EOF + 1 = 0 olup olmadığını kontrol eder,

^ -1< başka 1 çıkarır ve itti ascii değerini yığında bırakır.

$>:#,_@ sıfıra ek kopyayı yığının üstüne bırakır, sonra ikili dizeyi yukarıdan aşağıya yazdırır

Boş yığın 0 ise, 2 bayt ile kaydet

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

EOF = 0 ise, aynı algoritmayı kullanarak 15 baytlık bir sürüm mümkündür, ancak test etmek için kullanışlı bir uygulamaya sahip değilim.

Javascript ES6, 26 karakter

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

Befunge-98 (PyFunge) , 7 bayt

'a#@~-,

Her karakter ciçin girişte, ascii değerine sahip karakteri yazdırır 94 - c; 94, '0' + '1' veya 'a' değeridir.

Çevrimiçi deneyin!

Python3, 39

Metinler Python bunun için en iyi dil değil. :)

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

Çıktıdan sonra yeni bir satıra sahip olmayı düşünüyorsanız, işte 43 karakterlik bir alternatif:

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

J - 11 karakter

J'deki Boolean değerleri tamsayılar olarak temsil edilir 0ve 1bunlar elbette diziler için geçerli indislerdir (bu durumda, 2 karakter dizisi '01')

'01'{~'0'&=

C #, 131 bayt

Partiye biraz geç kaldım, ama işte benim. :)

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 bayt

@(x)[97-x '']

Yukarıdakileri çalıştırdıktan sonra, ters çevrilmiş dizgeyi almak için işlevi giriş dizginizle çağırmanız yeterlidir. Örneğin çalışan:

ans('10101110101010010100010001010110101001010')

baskılar:

01010001010101101011101110101001010110101

BotEngine , 4x8 = 32

Dil olarak rekabet eden olmayan soru yayınlıyor.

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

Vurgulayarak: