Kısa bir süre önce sürüş sırasında manifatura ilişkin bir Textpert olduğum şarkıyı listeledim ve şarkıdaki belirli bir satır bu zorluğa ilham verdi.

Metin fotoğrafları kadar asla eğilmem / Bunun yerine doğru olanları ve sıfırları birleştiriyorum

Şimdi açıkçası, bu kafa kafalarında yapmak neredeyse imkansız bir şey olurdu ve bu yüzden aynı şeyi yapmak için bir program kodlayarak dünya çapında tekstiller yardımcı olmalıdır.

İşiniz, 500x500piksel boyutlarına sahip bir görüntü dosyasının adını almak ve dosyayı ikili olarak çıkarmaktır . Diliniz destekliyorsa, görüntüyü giriş olarak da alabilirsiniz.

Resim dosyalarını uzantılarla birlikte kullanabilirsiniz

• .jpg
• .png
• .gif
• .bmp
• .svg

Ne demek istediğimi anlamayanlar için bir görüntüyü ikili dosyaya nasıl dönüştüreceğimizi göstermeme izin verin.

Aşama 1

Dosyadaki ilk pikseli alın ve RGB değerini 3 ondalık sayı olarak alın: R, G ve B Örneğin, ilk pikselin 255,0,0(kırmızı) olduğunu varsayalım .

Adım 2

Her sayıyı 8 bitlik ikili gösterimine dönüştürün ve tek bir 24 bitlik sayıya birleştirin. Örneğin, bu111111110000000000000000

Aşama 3

Bu 24 bitlik sayıyı son çıkışa ekleyin. Bu nedenle, son çıkış olmalıdır 6000000basamak uzunluğunda ve tamamen oluşmalıdır 1ve0

Bu bir kod golf en kısa kod kazanır!

Pyth , 14 13 bayt

Outgolfer Erik sayesinde -1 bayt ( zörtülü girdi için kaldırılabilir).

sm.[\08.Bd.n'

açıklamalar

sm.[\08.Bd.n'

            '    # Open the path/URL given as implicit input. Return list of color triples for color images: [(255, 125, 23), ...]
          .n     # Flatten the list
 m     .Bd       # For each element of the list, convert to binary
  .[\08          # Pad with zeros on the left up to 8 characters
s                # Concatenate the list of bytes

Ne yazık ki, güvenlik nedeniyle, bu test çevrimiçi çevirmenle ; kendi bilgisayarınızda test etmek için Pyth'i klonlamanız gerekir.

MATL , 13 12 bayt

YiH&!8&YB!1e

Dosya adını girdi olarak dize olarak kabul eder. Çıktı 24 bitlik sayılar, büyük satır sırasıyla görüntülenir.

Ne yazık ki bu, güvenlik nedenleriyle çevrimiçi tercümanlarda çalışmaz. İşte yerel makinemde çalışan bir ekran görüntüsü

Burada bir el ile 2 x 2 x 3 görüntü oluşturmak ve daha sonra (neredeyse) aynı kodu işlemek için kullandığım biraz değiştirilmiş bir sürümü .

açıklama

        % Implicitly grab input as a string
Yi      % Read in as an M x N x 3 image
H&!     % Permute the dimensions of the image to be 3 x N x M
8&YB    % Convert to a binary string using 8 bits for each element
!       % Transpose the result
1e      % Reshape to a row vector
        % Implicitly display the result

Mathematica, 103 bayt

F=Flatten;Export["x.txt",FromDigits@F[IntegerDigits[#,2,8]&/@F[ImageData[Import["x.bmp"],"Byte"],1],2]]

x.bmp (veya başka herhangi bir görüntüyü) alır ve x.txt dosyasına dönüştürür

C #, 309 bayt

İkinci kodum golf, söyleyemezsen. Bir resim çeker x.jpg ...

using System;using System.Drawing;using System.Linq;class Program{static void Main(string[]a){Bitmap b=(Bitmap)Image.FromFile("x.jpg");Console.WriteLine(string.Join("",from i in Enumerable.Range(0,250000)select Convert.ToString(Convert.ToInt32(b.GetPixel((int)Math.Floor((double)i/500),i%500).Name,16),2)));}}

Oktav, 46 bayt

@(x)dec2bin(permute(imread(x),[3,1,2]),8)'(:)'

ansBir dosya adı ( ans('file.png')) veya URL ( ans('http://image.png')) ile çağrılabilecek adsız bir işlev oluşturur