J'ai récemment énuméré la chanson I'm a Textpert sur les textos en conduisant et une ligne particulière de la chanson a inspiré ce défi.

Je ne me baisse jamais aussi bas que pour envoyer des photos par texte

Maintenant, évidemment, ce serait une chose presque impossible à faire dans sa tête et vous devriez donc aider les experts du monde entier en codant un programme pour faire la même chose.

Votre travail consiste à prendre le nom d'un fichier image avec les dimensions 500x500pixels et à sortir le fichier en binaire. Vous pouvez également prendre une image en entrée, si votre langue la prend en charge.

Vous pouvez utiliser des fichiers image avec les extensions

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

Permettez-moi de montrer comment convertir une image en binaire, pour ceux qui ne comprennent pas ce que je veux dire.

Étape 1

Prenez le premier pixel du fichier et récupérez sa valeur RVB sous forme de 3 nombres décimaux: R, G et B. Supposons, par exemple, que le premier pixel soit 255,0,0(rouge).

Étape 2

Convertissez chaque nombre en sa représentation binaire 8 bits et concaténez en un seul nombre 24 bits. Pour l'exemple, cela donne111111110000000000000000

Étape 3

Ajoutez ce nombre de 24 bits à la sortie finale. Par conséquent, la sortie finale doit être 6000000longue de chiffres et doit être entièrement 1et0

C'est un code-golf donc le code le plus court gagne!

Pyth , 14 13 octets

-1 octet grâce à Erik l'Outgolfer ( zpeut être supprimé pour une entrée implicite).

sm.[\08.Bd.n'

Explications

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

Malheureusement, pour des raisons de sécurité, cela ne peut pas être testé avec l' interprète en ligne ; vous devrez cloner Pyth pour le tester sur votre propre ordinateur.

MATL , 13 12 octets

YiH&!8&YB!1e

Accepte un nom de fichier sous forme de chaîne en entrée. Les nombres de 24 bits en sortie sont affichés dans l'ordre des lignes principales.

Malheureusement, cela ne fonctionne pas dans les interprètes en ligne pour des raisons de sécurité. Voici une capture d'écran du fonctionnement sur ma machine locale

Voici une version légèrement modifiée dans laquelle je crée manuellement une image 2 x 2 x 3 puis utilise (presque) le même code pour la traiter.

Explication

        % 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 octets

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

prend une image x.bmp (ou toute autre) et la convertit en fichier x.txt

C #, 309 octets

Mon deuxième code de golf, si vous ne pouvez pas le dire. Prend une image 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)));}}

Octave, 46 octets

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

Crée une fonction anonyme nommée ansqui peut être appelée avec un nom de fichier ( ans('file.png')) ou une URL ( ans('http://image.png'))