나는 최근에 운전 중에 문자 메시지에 관한 Textpert 라는 노래를 들었 으며 노래의 특정 줄이이 도전에 영감을주었습니다.

나는 문자 사진만큼 낮게 구르지 않았다 / 대신 나는 1과 0의 올바른 콤보를 문자

분명히, 이것은 거의 불가능한 일이 될 것이므로 동일한 일을 수행하는 프로그램을 코딩하여 텍스트 퍼트를 전 세계적으로 도와야합니다.

당신의 임무는 크기 500x500픽셀 로 이미지 파일의 이름을 가져 와서 파일을 이진으로 출력하는 것입니다. 언어가 지원하는 경우 이미지를 입력으로 사용할 수도 있습니다.

확장명을 가진 이미지 파일을 사용할 수 있습니다

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

내가 무슨 뜻인지 이해하지 못하는 사람들을 위해 이미지를 이진으로 변환하는 방법을 보여줄 수 있습니다.

1 단계

파일에서 첫 번째 픽셀을 가져와 RGB 값을 소수점 3 자리 R, G 및 B로 검색합니다. 예를 들어 첫 번째 픽셀이 255,0,0(빨간색) 이라고 가정 합니다.

2 단계

각 숫자를 8 비트 이진 표현으로 변환하고 단일 24 비트 숫자로 연결합니다. 예를 들어, 이것은111111110000000000000000

3 단계

이 24 비트 숫자를 최종 출력에 추가하십시오. 따라서, 최종 출력이 있어야 6000000긴 숫자 및 전체 구성되어야 1하고0

이것은 코드 골프 가장 짧은 코드가 승리합니다!

답변

sm.[\08.Bd.n'

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

YiH&!8&YB!1e

        % 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

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

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

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