Il s'agit d'un défi de golf de code. Comme le titre l'indique, écrivez un programme pour convertir une chaîne de caractères ascii en binaire.

Par exemple:

"Hello World!" devrait se transformer en 1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100 100001.

Remarque: je suis particulièrement intéressé par une implémentation pyth.

CJam, 8 octets

l:i2fbS*

Peasy facile:

l:i           "Read the input line and convert each character to its ASCII value";
   2fb        "Put 2 on stack and use that to convert each ASCII value to base 2";
      S*      "Join the binary numbers by space";

Essayez-le ici

Python 3, 41 octets

print(*[bin(ord(x))[2:]for x in input()])

Comme la réponse de KSFT , mais je pensais souligner que, en plus de raw_input -> input, Python 3 a également un avantage ici en raison du splat pour print.

Pyth, 10 octets

jdmjkjCd2z

Mappage et explication Python:

j           # join(                               "Join by space"
 d          #      d,                             "this space"
 m          #      Pmap(lambda d:                 "Map characters of input string"
  j         #                    join(            "Join by empty string"
   k        #                        k,           "this empty string"
    j       #                        join(        "This is not a join, but a base conversion"
     C      #                             Pchr(   "Convert the character to ASCII"
      d     #                                  d  "this character"
            #                                 ),
     2      #                             2       "Convert to base 2"
            #                            )
            #                        ),
  z         #           z)))                      "mapping over the input string"

L'entrée est la chaîne qui doit être convertie sans les guillemets.

Essayez-le ici

Python 3-43 octets

print(*map("{:b}".format,input().encode()))

Pas tout à fait le plus court, mais une approche intéressante de l'OMI. Il a l'avantage supplémentaire que si le nombre de bits significatifs varie, EG Hi!, le remplissage avec des zéros est trivial (2 octets de plus, contre 9 pour .zfill(8)):

print(*map("{:08b}".format,input().encode()))

Python - 52

print" ".join([bin(ord(i))[2:]for i in raw_input()])

Je vais travailler sur la traduction de cela en Pyth. Quelqu'un d'autre a déjà fait une réponse Pyth.

Si vous ne vous souciez pas qu'il s'agisse d'un programme complet ou du format d'E / S et que vous utilisez Python 3, vous pouvez le faire en 23 octets comme ceci:

[bin(ord(i))for i in x]

x est l'entrée.

Je sais que cela ne compte pas parce que l'interprète n'a pas été libéré avant la publication du défi, mais ici, c'est dans KSFTgolf:

oan

Rubis, 34 28 24 octets

$<.bytes{|c|$><<"%b "%c}

Prend entrée via STDIN. 6 octets enregistrés grâce à AShelly et 4 autres grâce à britishtea.

PowerShell, 63 59 46 octets

-13 octets grâce à @mazzy

"$($args|% t*y|%{[Convert]::ToString(+$_,2)})"

Essayez-le en ligne!

Matlab

Ceci est une fonction anonyme

f=@(x) dec2bin(char(x))

l'utilisation est f('Hello World').

Alternativement, si xest défini comme la chaîne Hello World!dans l'espace de travail, alors dec2bin(char(x))cela fonctionnera.

J - 9

1":#:3&u:

Je ne sais pas comment faire ça en ligne sans doubler la longueur du code, j'ai besoin de gourous J pour me le dire :)

1":#:3&u:'Hello world!'
1001000
1100101
1101100
1101100
1101111
0100000
1110111
1101111
1110010
1101100
1100100
0100001

Java - 148 octets

public class sToB{public static void main(String[] a){for(int i=0;i<a[0].length();i++){System.out.print(Integer.toString(a[0].charAt(i) ,2)+" ");}}}

Modifié pour inclure le fichier complet

JavaScript ES6, 63 65 octets

alert([for(c of prompt())c.charCodeAt().toString(2)].join(' '))

C'est assez long, grâce aux longs noms de fonctions de JavaScript. L'extrait de pile ci-dessous est l'équivalent approximatif d'ES5, il peut donc être exécuté dans n'importe quel navigateur. Merci à edc65 pour les améliorations apportées au golf.

alert(prompt().split('').map(function(e){return e.charCodeAt().toString(2)}).join(' '))

Scala - 59-55 octets

readLine().map(x=>print(x.toByte.toInt.toBinaryString))

Normalement, il faut utiliser foreach et non map.

Code machine 8088, IBM PC DOS, 33 31 octets *

Référencement:

D1 EE           SHR  SI, 1          ; point SI to DOS PSP (80H)
AD              LODSW               ; load input string length into AL, SI to 82H 
8A C8           MOV  CL, AL         ; set up loop counter 
49              DEC  CX             ; remove leading space/slash from char count 
            LOOP_CHAR: 
B3 08           MOV  BL, 8          ; loop 8 bits 
AC              LODSB               ; load next char 
            LOOP_BIT: 
D0 C0           ROL  AL, 1          ; high-order bit into low-order bit 
B4 0E           MOV  AH, 0EH        ; BIOS display character function 
50              PUSH AX             ; save AH/AL 
24 01           AND  AL, 1          ; mask all but low-order bit 
04 30           ADD  AL, '0'        ; convert to ASCII 
CD 10           INT  10H            ; write char to display 
58              POP  AX             ; restore AH/AL 
4B              DEC  BX             ; decrement bit counter 
75 F1           JNZ  LOOP_BIT       ; loop next bit      
B0 20           MOV  AL, ' '        ; display a space 
CD 10           INT  10H            ; write space to display 
E2 E8           LOOP LOOP_CHAR      ; loop next char 
C3              RET                 ; return to DOS 

Fichier COM exécutable PC DOS complet, l'entrée se fait via la ligne de commande.

Avec des zéros non significatifs:

Téléchargez et testez ASCBIN.COM .

Ou 39 octets sans zéros non significatifs:

Téléchargez et testez ASCBIN2.COM .

* Comme il n'était pas clairement clair pour moi si les zéros en tête sont autorisés ou non, je publie des versions dans les deux sens.

MITS Altair 8800 , 0 octets

La chaîne d'entrée est à l'adresse mémoire #0000H( autorisée ). Sortie en binaire via les voyants d'E / S du panneau avant D7-D0.

Exemple, faites RESET, puis EXAMINEpour voir le premier octet, puis répétez EXAMINE NEXTpour voir le reste.

"H" = 01 001 000:

"e" = 01 100 101:

"l" = 01 101 100:

Essayez-le en ligne!

Non compétitif, bien sûr. :)

Haskell, 65

m s=tail$do c<-s;' ':do j<-[6,5..0];show$mod(fromEnum c`div`2^j)2

utilisation intensive de la liste monade. il n'a pas pu être converti en liste de comprehentions car les dernières instructions n'étaient pas un return.

C ++ - 119 octets

Libérer de la mémoire? Qu'est-ce que c'est?

#include<cstdio>
#include<cstdlib>
int main(int c,char**v){for(*v=new char[9];c=*(v[1]++);printf("%s ",itoa(c,*v,2)));}

(MSVC compile le code avec avertissement)

Gelée , 3 octets

OBK

Essayez-le en ligne!

Tcl , 52 octets

proc B s {binary s $s B* b;regsub -all .{8} $b {& }}

Essayez-le en ligne!

APL (Dyalog) , 12 octets

10⊥2⊥⍣¯1⎕UCS

Essayez-le en ligne!

Merci à Adám pour son aide avec cette solution.

Python 3.6 , 39 octets

print(*[f'{ord(c):b}'for c in input()])

Essayez-le en ligne!

Commodore VIC-20 / C64 / 128 et TheC64Mini, 101 octets BASIC à jeton

Voici la liste masquée à l'aide des abréviations des mots clés Commodore BASIC:

 0dEfnb(x)=sG(xaNb):inputa$:fOi=1tolen(a$):b=64:c$=mI(a$,i,1):fOj=0to6
 1?rI(str$(fnb(aS(c$))),1);:b=b/2:nEj:?" ";:nE

Voici à des fins d'explication la liste symbolique non masquée:

 0 def fn b(x)=sgn(x and b)
 1 input a$
 2 for i=1 to len(a$)
 3 let b=64
 4 let c$=mid$(a$,i,1)
 5 for j=0 to 6
 6 print right$(str$(fn b(asc(c$))),1);
 7 let b=b/2
 8 next j
 9 print " ";
10 next i

La fonction fn bdéclarée à la ligne zéro accepte un paramètre numérique xdont ANDla valeur est ed b; SGN est ensuite utilisé pour convertir x and ben 1ou 0.

La première ligne accepte une entrée de chaîne dans la variable a$et la boucle démarre (indiquée par i) à la longueur de cette entrée. breprésente chaque bit du 6e au 0e bit. c$prend chaque caractère de la chaîne en position i.

la ligne 5 démarre la boucle pour tester chaque position de bit; right$est utilisé à la ligne 6 pour supprimer un problème de mise en forme automatique lorsque Commodore BASIC affiche un nombre, convertissant la sortie de fn ben chaîne; asc(c$)convertit le caractère actuel en son code ascii sous forme de valeur décimale.

La ligne 7 représente la valeur de bit suivante. La boucle jest terminée avant d'imprimer un espace, puis la dernière boucle iest terminée.

JavaScript ES6, 71 octets

alert(prompt().split('').map(c=>c.charCodeAt(0).toString(2))).join(' ')

Forth (gforth) , 45 octets

: f 0 do dup i + c@ 2 base ! . decimal loop ;

Essayez-le en ligne!

Explication du code

: f           \ start a new word definition
  0 do        \ start a loop from 0 to string length - 1
    dup i +   \ duplicate the address and add the loop index to get addr of current character
    c@        \ get the character at that address
    2 base !  \ set the base to binary
    .         \ print the ascii value (in binary)
    decimal   \ set the base back to decimal
  loop        \ end the loop
;             \ end the word definition

Rubis, 24 octets

J'espérais battre Martin Ender , mais je n'ai réussi qu'à l'attacher.

Prend entrée sur STDIN; +1 octet pour l' -pindicateur.

gsub(/./){"%b "%$&.ord}

Essayez-le en ligne!

Gaia , 4 octets

ċb¦ṡ

Assez content avec ça

Comment ça fonctionne

ċ   Get a list of all the code points in the input string
b¦  Convert every number in that list to binary
ṡ   Joins the element of the list with spaces
Implicit Output 

Essayez-le en ligne!

Python 3 , 39 octets

print(*[f'{ord(i):b}'for i in input()])

Essayez-le en ligne!

Légère amélioration par rapport à la réponse Python leader actuelle

STATA 158

J'ai utilisé une approche différente de la plupart. Lisez-le via l'invite display _request () (raccourci à di _r (r)). Écrivez la chaîne dans un fichier appelé b en mode texte. Ouvrez b en mode binaire et lisez chaque caractère sous forme d'octet et convertissez-le en binaire. Techniquement, le fichier b doit être fermé à la fin, mais c'est un programme valide qui s'exécute correctement sans lui.

di _r(r)
file open a using "b",w
file w a "$r"
file close a
file open a using "b",b r
file r a %1bu t
while r(eof)==0 {
loc q=t
inbase 2 `q'
file r a %1bu t
}

Golang - 68

Je suis nouveau sur Go et je ne suis pas sûr des règles de comptage des caractères dans cette langue ici non plus.

Importations (11 octets):

import"fmt"

Fonction (55 octets):

func c(s string){for _,r:=range s{fmt.Printf("%b ",r)}}

Vous pouvez l'exécuter ici .

Jamais C # ne gagnera ce genre de questions mais voici un essai, complètement sans encodage. :)

C # - 84

Console.Write(String.Join(" ",Console.ReadLine().Select(x=>Convert.ToString(x,2))));

Cobra - 64

En tant que Lambda:

do(s='')=(for c as int in s get Convert.toString(c,2)).join(' ')