Đây là một thử thách golf mã. Giống như tiêu đề đã nói, hãy viết một chương trình để chuyển đổi một chuỗi các ký tự ascii thành nhị phân.

Ví dụ:

"Hello World!" nên biến thành 1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100 100001.

Lưu ý: Tôi đặc biệt quan tâm đến việc thực hiện pyth.

CJam, 8 byte

l:i2fbS*

Dễ như ăn bánh:

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";

Hãy thử nó ở đây

Python 3, 41 byte

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

Giống như câu trả lời của KSFT , nhưng tôi nghĩ tôi đã chỉ ra rằng, ngoài ra raw_input -> input, Python 3 còn có một lợi thế ở đây nhờ tính năng splat cho print.

Bình thường, 10 byte

jdmjkjCd2z

Ánh xạ và giải thích 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"

Đầu vào là chuỗi cần phải được chuyển đổi mà không có dấu ngoặc kép.

Hãy thử nó ở đây

Python 3 - 43 byte

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

Không hoàn toàn ngắn nhất, nhưng một cách tiếp cận thú vị IMO. Nó có thêm lợi thế là nếu số lượng bit đáng kể thay đổi, thì EG Hi!, việc đệm với các số 0 là không đáng kể (thêm 2 byte, trái ngược với 9 cho .zfill(8)):

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

Con trăn - 52

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

Tôi sẽ làm việc để dịch cái này sang Pyth. Một số người khác đã trả lời Pyth rồi.

Nếu bạn không quan tâm đến việc nó là một chương trình đầy đủ hoặc về định dạng I / O và sử dụng Python 3, bạn có thể làm điều đó trong 23 byte như thế này:

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

x là đầu vào.

Tôi biết điều này không được tính bởi vì trình thông dịch đã không được phát hành trước khi thử thách được đăng, nhưng đây là trong KSFTgolf:

oan

Ruby, 34 28 24 byte

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

Đưa đầu vào qua STDIN. 6 byte được lưu cảm ơn cho AShelly và 4 byte khác nhờ vào britishtea.

PowerShell, 63 59 46 byte

-13 byte nhờ @mazzy

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

Hãy thử trực tuyến!

Matlab

Đây là một chức năng ẩn danh

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

sử dụng là f('Hello World').

Ngoài ra, nếu xđược định nghĩa là chuỗi Hello World!trong không gian làm việc, thì nó dec2bin(char(x))sẽ hoạt động.

J - 9

1":#:3&u:

Không biết làm thế nào để thực hiện điều này liên tiếp mà không tăng gấp đôi độ dài của mã, tôi cần J gurus để nói với tôi :)

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

Java - 148 byte

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

Đã chỉnh sửa để bao gồm toàn bộ tập tin

JavaScript ES6, 63 65 byte

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

Điều này khá dài, nhờ các tên hàm dài của JavaScript. Đoạn trích dưới đây là tương đương ES5 thô, vì vậy nó có thể chạy trong bất kỳ trình duyệt nào. Cảm ơn edc65 cho những cải tiến chơi golf.

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

Scala - 59 - 55 byte

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

Thông thường, người ta nên sử dụng foreach và không ánh xạ.

Mã máy 8088, IBM PC DOS, 33 31 byte *

Liệt kê:

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 

Toàn bộ tệp COM thực thi PC DOS, đầu vào là thông qua dòng lệnh.

Với số không hàng đầu:

Tải xuống và kiểm tra ASCBIN.COM .

Hoặc 39 byte mà không có số 0 đứng đầu:

Tải xuống và kiểm tra ASCBIN2.COM .

* Vì tôi không rõ ràng rõ ràng cho dù số 0 đầu có được phép hay không, nên đăng các phiên bản theo cả hai cách.

MITS Altair 8800 , 0 byte

Chuỗi đầu vào là tại địa chỉ bộ nhớ #0000H( được phép ). Đầu ra ở dạng nhị phân thông qua đèn I / O phía trước D7-D0.

Ví dụ, làm RESET, sau đó EXAMINEđể xem byte đầu tiên, tiếp theo là lặp lại EXAMINE NEXTđể xem phần còn lại.

"H" = 01 001 000:

"e" = 01 100 101:

"l" = 01 101 100:

Hãy thử trực tuyến!

Không cạnh tranh, tất nhiên. :)

Haskell, 65

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

sử dụng nặng của danh sách đơn nguyên. nó không thể được chuyển đổi thành danh sách các điều khoản vì các tuyên bố cuối cùng không phải là a return.

C ++ - 119 byte

Giải phóng bộ nhớ? Cái gì vậy

#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 biên dịch mã với cảnh báo)

Thạch , 3 byte

OBK

Hãy thử trực tuyến!

Tcl , 52 byte

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

Hãy thử trực tuyến!

APL (Dyalog) , 12 byte

10⊥2⊥⍣¯1⎕UCS

Hãy thử trực tuyến!

Cảm ơn Adám đã giúp đỡ với giải pháp này.

Python 3.6 , 39 byte

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

Hãy thử trực tuyến!

Hàng hóa VIC-20 / C64 / 128 và TheC64Mini, 101 byte BASIC được mã hóa

Dưới đây là danh sách bị xáo trộn bằng cách viết tắt từ khóa BASore 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

Ở đây cho mục đích giải thích là danh sách biểu tượng không bị che giấu:

 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

Các chức năng fn btuyên bố trên dòng zero chấp nhận một tham số số của xđược ANDed với giá trị b; SGN sau đó được sử dụng để chuyển đổi x and bsang 1hoặc 0.

Dòng một chấp nhận đầu vào chuỗi cho biến a$và vòng lặp bắt đầu (ký hiệu là i) với độ dài của đầu vào đó. bđại diện cho mỗi bit từ bit thứ 6 đến 0. c$lấy mỗi ký tự của chuỗi ở vị trí i.

dòng 5 bắt đầu vòng lặp để kiểm tra từng vị trí bit; right$được sử dụng trong dòng 6 để loại bỏ vấn đề định dạng tự động khi BASore BASIC hiển thị một số, chuyển đổi đầu ra fn bthành chuỗi; asc(c$)chuyển đổi ký tự hiện tại thành mã ascii của nó dưới dạng giá trị thập phân.

Dòng 7 đại diện cho giá trị bit tiếp theo. Vòng lặp jđược kết thúc trước khi in một khoảng trắng, sau đó vòng lặp cuối cùng ikết thúc.

JavaScript ES6, 71 byte

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

Forth (gforth) , 45 byte

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

Hãy thử trực tuyến!

Giải thích mã

: 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

Ruby, 24 byte

Tôi đã hy vọng đánh bại Martin Ender , nhưng tôi chỉ có thể trói anh ta lại.

Đưa đầu vào vào STDIN; +1 byte cho -pcờ.

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

Hãy thử trực tuyến!

Gaia , 4 byte

ċb¦ṡ

Khá hài lòng với điều này

Làm thế nào nó hoạt động

ċ   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 

Hãy thử trực tuyến!

Python 3 , 39 byte

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

Hãy thử trực tuyến!

Cải thiện nhẹ so với câu trả lời Python hàng đầu hiện tại

SỐ LIỆU 158

Tôi đã sử dụng một cách tiếp cận khác với hầu hết. Đọc qua lời nhắc hiển thị _request () (rút ngắn thành di _r (r)). Viết chuỗi vào một tệp gọi là b trong chế độ văn bản. Mở b trong chế độ nhị phân và đọc từng ký tự dưới dạng byte và chuyển đổi thành nhị phân. Về mặt kỹ thuật, tập tin b nên được đóng ở cuối, nhưng nó là một chương trình hợp lệ và chạy thành công mà không có nó.

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

Tôi mới sử dụng Go và tôi cũng không chắc về quy tắc đếm các ký tự trong ngôn ngữ này ở đây.

Nhập khẩu (11 byte):

import"fmt"

Hàm (55 byte):

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

Bạn có thể chạy nó ở đây .

Sẽ không bao giờ C # giành được những loại câu hỏi này nhưng đây là một thử, hoàn toàn không có mã hóa. :)

C # - 84

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

Rắn hổ mang - 64

Là một Lambda:

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