Bu meydan okuma gevşek uygulanmamış esolang esinlenerek Pada .

Sıfıra sıfırlanmış 8 bitlik bir dizi düşünün. Rasgele dizeleri yazdırmak için çok minimalist bir talimat sunacağız. Her ikisi de Nbir bitin endeksi olan bir parametre alan iki komut vardır :

• t Nfor t oggle: Bu bit değerini değiştirir N.
• p Niçin p rint: bir bayt olarak yorumlar 8 bit, bit başlayarak Nucu etrafında ve ambalaj . Bu bayta karşılık gelen karakter STDOUT'a yazdırılır.

Bir örnek verelim. Yazdırmak istiyoruz :=. Saf olarak bunu şu şekilde elde ederiz (0 tabanlı bit indeksleri):

t 2    [0 0 1 0 0 0 0 0]
t 3    [0 0 1 1 0 0 0 0]
t 4    [0 0 1 1 1 0 0 0]
t 6    [0 0 1 1 1 0 1 0]
p 0    [0 0 1 1 1 0 1 0] == 58 == ':'
t 5    [0 0 1 1 1 1 1 0]
t 6    [0 0 1 1 1 1 0 0]
t 7    [0 0 1 1 1 1 0 1]
p 0    [0 0 1 1 1 1 0 1] == 61 == '='

Ancak bunun yerine, piki talimatın döngüsel özelliğini kullanabilir ve iki talimatı kaydedebiliriz:

t 2    [0 0 1 0 0 0 0 0]
t 3    [0 0 1 1 0 0 0 0]
t 4    [0 0 1 1 1 0 0 0]
t 6    [0 0 1 1 1 0 1 0]
p 0    [0 0 1 1 1 0 1 0] == 58 == ':'
t 1    [0 1 1 1 1 0 1 0]
p 7    [0 1 1 1 1 0 1 0] == [0 0 1 1 1 1 0 1] == 61 == '='
                      ^

Yani p 7sadece bayt değerini ilk bit yerine son bitten okumaya başlar.

Meydan okuma

Boş olmayan yazdırılabilir ASCII karakter dizisi (0x20 - 0x7E, dahil) verildiğinde, bu dizeyi yukarıdaki sistemle yazdırmak için en uygun talimatlar listesini (komut başına bir satır) oluşturun. Birden fazla optimal çözüm varsa (neredeyse her zaman böyle olacaktır), bunlardan sadece birini oluşturun.

Bitler için 0 tabanlı ve 1 tabanlı dizine ekleme arasında seçim yapabilirsiniz, ancak lütfen seçiminizi belirtin.

STDIN (veya en yakın alternatif), komut satırı bağımsız değişkeni veya işlev bağımsız değişkeni ile girdi alarak ve sonucu STDOUT (veya en yakın alternatif), işlev dönüş değeri veya işlev (çıkış) parametresi aracılığıyla çıktı alarak bir program veya işlev yazabilirsiniz. Sonucu STDOUT'a yazdırmazsanız, yine de satır satırıyla ayrılmış tek bir dize olmalıdır.

Bu kod golf, yani en kısa cevap (bayt cinsinden) kazanır.

Test Durumları

Her test durumu, giriş dizesini içeren tek bir satır, ardından en uygun talimat sayısını ve ardından olası bir çözümü takip eder.

Sen gerektiğini değil , çözümde çıkış yönerge sayısı - farklı bir talimat listesi yazdırır eğer kodunuzun doğruluğunu kontrol edebilirsiniz yüzden bu sadece burada yer almaktadır.

?
7 instructions
t 2
t 3
t 4
t 5
t 6
t 7
p 0

:=
7 instructions
t 2
t 3
t 4
t 6
p 0
t 1
p 7

0123456789
26 instructions
t 2
t 3
p 0
t 7
p 0
t 6
t 7
p 0
t 7
p 0
t 5
t 6
t 7
p 0
t 7
p 0
t 6
t 7
p 0
t 7
p 0
t 2
t 3
p 3
t 2
p 3

9876543210
28 instructions
t 2
t 3
t 4
t 7
p 0
t 7
p 0
t 0
t 7
p 5
t 4
p 5
t 0
t 5
p 0
t 7
p 0
t 5
t 6
t 7
p 0
t 7
p 0
t 6
t 7
p 0
t 7
p 0

Hello, World!
39 instructions
t 1
t 4
p 0
t 3
t 7
p 2
t 1
t 6
p 2
p 2
t 0
t 1
p 2
t 0
t 1
t 3
p 2
t 6
t 7
p 2
t 0
t 2
t 6
t 7
p 1
t 0
t 1
t 5
p 0
t 2
t 7
p 3
t 2
t 6
p 0
t 4
p 0
t 1
p 3

The quick brown fox jumps over the lazy dog.
150 instructions
t 1
t 3
t 5
p 0
t 1
t 2
p 1
t 1
t 3
t 7
p 0
t 1
t 5
t 7
p 0
t 1
t 3
t 7
p 0
t 5
p 0
t 3
t 4
t 5
p 0
t 4
t 6
p 0
t 4
p 0
t 1
t 4
t 6
t 7
p 0
t 1
t 6
p 0
t 3
p 0
t 0
t 5
p 4
t 0
t 7
p 0
t 1
p 1
t 3
t 5
t 6
t 7
p 0
t 1
t 5
t 6
p 0
t 4
t 7
p 0
t 1
t 2
p 3
t 5
t 6
t 7
p 2
t 1
t 2
t 6
p 0
t 0
p 7
t 0
t 7
p 5
t 3
t 4
t 6
t 7
p 0
t 6
t 7
p 0
t 1
t 3
t 6
t 7
p 0
t 1
t 4
t 5
t 6
t 7
p 0
t 4
p 4
t 6
p 0
t 1
t 6
p 4
t 5
t 6
t 7
p 0
t 1
t 3
t 5
p 0
t 1
p 1
t 1
t 3
t 7
p 0
t 1
t 5
t 7
p 0
t 1
t 4
t 5
p 0
t 1
p 3
t 3
t 7
p 1
t 1
t 5
p 0
t 1
t 3
t 4
t 7
p 0
t 1
t 5
p 0
t 4
t 6
t 7
p 0
t 4
p 0
t 1
t 4
t 7
p 0

Test vakaları bu CJam referans uygulamasıyla oluşturuldu .

CJam, 67 bayt

U]8*l{i2b8Ue[8,{1$m>2$.^:+}$0=_@m>@1$.^ee{~{"t "op}{;}?}/"p "o\p}/;

Çevrimiçi deneyin

Açıklama:

U]8*    Build start bit array [0 0 0 0 0 0 0 0].
l       Get input.
{       Start loop over input characters.
  i       Convert character to integer.
  2b      Convert to binary array.
  8Ue[    Pad to 8 entries with leading 0.
  8,      Generate list of possible rotation amounts.
  {       Start of sort function block.
    1$      Get bit array of character.
    m>      Rotate by rotation amount.
    2$      Get previous bit array.
    .^      Element-wise xor to get different bits.
    :+      Add elements in result to get count of different bits.
  }$      Sort possible rotations by count of different bits.
  0=      Get first rotation amount in sorted list, which is the one with the
          one that results in the smallest count of different bits.
  _       Copy count. Will use original for "p" output later.
  @       Get the character bit array to top of stack.
  m>      Rotate it, to get optimal rotated bit array.
  @       Get previous bit array to top of stack.
  1$      Copy rotated bit array, will need the original as starting point
          for next character.
  .^      Element-wise xor to get different bits.
  ee      Enumerate array to get pairs of index and bit value.
  {       Loop over bits.
    ~       Unpack index bit pair.
    {       Start of if block for bit value.
      "t "o   Output "t ".
      p  Output index and newline.
    }       End of if block.
    {       Start of else block.
      ;       Pop the index value.
    }?      End of ternary if.
  }/      End loop over bits.
  "p "o   Output "p ".
  \       Swap rotation amount to top.
  p       Print rotation amount and newline.
}/      End loop over input characters.
;       Ppp current bit array off stack to prevent extra output.

Ruby, 171

->w{s=[0]*8
w.chars.flat_map{|c|z=0..7
*m,i=z.map{|j|z.select{|k|s[k]!=z.map{|i|c.ord[i]}.rotate(j)[k]}<<j}.min_by &:size
m.map{|m|s[m]=1-s[m];"t #{7-m}"}+["p #{i}"]}*?\n}

Referans uygulamasının yalnızca iki katı büyüklüğünde bir Ruby işlevi . :)

Çevrimiçi deneyin: http://ideone.com/ysYyFP

Program oldukça hızlıdır: 8 bit 0'a ayarlanmış olarak başlar ve karakterler arasında yinelenir. Her adımda, geçerli durumdan karakterin yazdırılmasına izin verecek bir duruma en kısa yolu alır. Belirtilen biçimde bir dize döndürür.

Programın ilk (daha az golf) versiyonu burada mevcuttur .

CJam, 81 76 bayt

Golf hala çok.

0]8*q{i2b8Te[8,\fm>:X\_@\f.=::+_$W=#:YX=_@.{=M['tSUN]?U):U;}o0:U;['pSYN]o}/;

Çevrimiçi deneyin .