นี่คือความท้าทายของรหัสกอล์ฟ เช่นเดียวกับชื่อเรื่องเขียนโปรแกรมเพื่อแปลงสตริงอักขระ ASCII ให้เป็นไบนารี

ตัวอย่างเช่น:

"Hello World!"1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100 100001ควรเปลี่ยนเป็น

หมายเหตุ: ฉันสนใจเป็นพิเศษในการนำ pyth มาใช้

CJam, 8 ไบต์

l:i2fbS*

ง่าย peasy:

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

ลองที่นี่

Python 3, 41 ไบต์

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

เช่นเดียวกับคำตอบ KSFT ของแต่ฉันคิดว่าฉันต้องการชี้ให้เห็นว่านอกเหนือไปจากraw_input -> inputงูใหญ่ 3 printนอกจากนี้ยังมีความได้เปรียบที่นี่เนื่องจากเครื่องหมายสำหรับ

Pyth, 10 ไบต์

jdmjkjCd2z

การทำแผนที่หลามและคำอธิบาย:

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"

อินพุตคือสตริงที่ต้องถูกแปลงโดยไม่มีเครื่องหมายคำพูด

ลองที่นี่

Python 3 - 43 ไบต์

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

ไม่ใช่วิธีที่สั้นที่สุด แต่เป็นวิธีการที่น่าสนใจสำหรับ IMO มันมีข้อได้เปรียบที่เพิ่มว่าหากจำนวนบิตที่สำคัญแตกต่างกันไป EG Hi!, การเติมด้วยศูนย์เป็นเรื่องเล็กน้อย (อีก 2 ไบต์เมื่อเทียบกับ 9 สำหรับ.zfill(8)):

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

Python - 52

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

ฉันจะพยายามแปลสิ่งนี้เป็น Pyth มีคนอื่นที่ตอบคำถาม Pyth แล้ว

หากคุณไม่สนใจว่ามันเป็นโปรแกรมเต็มรูปแบบหรือเกี่ยวกับรูปแบบ I / O และใช้ Python 3 คุณสามารถทำได้ใน 23 ไบต์เช่นนี้

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

x คืออินพุต

ฉันรู้ว่านี่ไม่นับเพราะล่ามไม่ได้ถูกปล่อยออกมาก่อนที่ความท้าทายจะโพสต์ แต่ที่นี่มันอยู่ใน KSFTgolf:

oan

Ruby, 34 28 24 ไบต์

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

ใช้อินพุตผ่าน STDIN ขอบคุณ 6 ไบต์ที่บันทึกไว้สำหรับ AShelly และอีก 4 ขอบคุณ britishtea

PowerShell, 63 59 46 ไบต์

-13 ไบต์ขอบคุณ @mazzy

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

ลองออนไลน์!

Matlab

นี่คือฟังก์ชั่นที่ไม่ระบุชื่อ

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

f('Hello World')การใช้งาน

หรือถ้าxกำหนดเป็นสตริงHello World!ในเวิร์กสเปซก็dec2bin(char(x))จะทำงาน

J - 9

1":#:3&u:

ไม่มีความคิดวิธีการทำสิ่งนี้ในแถวโดยไม่เพิ่มความยาวของรหัสฉันต้องการ J gurus เพื่อบอกฉัน :)

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

Java - 148 ไบต์

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

แก้ไขเพื่อรวมไฟล์เต็มแล้ว

JavaScript ES6, 63 65ไบต์

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

นี่ค่อนข้างยาวเนื่องจากชื่อฟังก์ชันยาวของ JavaScript Stack Snippet ด้านล่างนี้เทียบเท่ากับ ES5 คร่าวๆดังนั้นจึงสามารถเรียกใช้ในเบราว์เซอร์ใดก็ได้ ขอบคุณ edc65 สำหรับการปรับปรุงสนามกอล์ฟ

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

สกาลา - 59 - 55 ไบต์

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

โดยปกติเราควรใช้ foreach และไม่ใช่ map

รหัสเครื่อง 8088, IBM PC DOS, 33 31 ไบต์ *

รายการ:

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 

ไฟล์ COM ที่สามารถเรียกใช้งานได้ของ PC DOS สมบูรณ์อินพุตคือทางบรรทัดคำสั่ง

ด้วยศูนย์นำ:

ดาวน์โหลดและการทดสอบASCBIN.COM

หรือ39 ไบต์โดยไม่มีศูนย์นำหน้า:

ดาวน์โหลดและการทดสอบASCBIN2.COM

* เนื่องจากฉันไม่ชัดเจนว่าจะอนุญาตให้มีศูนย์นำหน้าหรือไม่ฉันกำลังโพสต์ทั้งสองเวอร์ชัน

MITS Altair 8800 , 0 ไบต์

สตริงอินพุตอยู่ที่หน่วยความจำ#0000H( อนุญาต ) D7-D0เอาท์พุทในไบนารีผ่านไฟแผงด้านหน้าของ I / O

ตัวอย่างทำRESETจากนั้นEXAMINEดูไบต์แรกแล้วตามด้วยการทำซ้ำEXAMINE NEXTเพื่อดูส่วนที่เหลือ

"H" = 01 001 000:

"e" = 01 100 101:

"l" = 01 101 100:

ลองออนไลน์!

แน่นอนว่าไม่ใช่การแข่งขัน :)

Haskell, 65

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

การใช้รายการ monad อย่างหนัก มันอาจจะไม่ได้รับการแปลงเป็น comprehentions returnรายการเพราะงบที่ผ่านมาก็ไม่ได้เป็น

C ++ - 119 ไบต์

พ้นความทรงจำ? นั่นอะไร?

#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 รวบรวมรหัสพร้อมคำเตือน)

เยลลี่ 3 ไบต์

OBK

ลองออนไลน์!

Tcl , 52 ไบต์

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

ลองออนไลน์!

APL (Dyalog)ขนาด 12 ไบต์

10⊥2⊥⍣¯1⎕UCS

ลองออนไลน์!

ขอบคุณAdámสำหรับความช่วยเหลือในการแก้ไขปัญหานี้

Python 3.6 , 39 ไบต์

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

ลองออนไลน์!

พลเรือจัตวา VIC-20 / C64 / 128 และ TheC64Mini, 101 โทเค็นพื้นฐานไบต์

นี่คือรายชื่อที่สับสนโดยใช้ตัวย่อคำหลักพื้นฐาน Commodore:

 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

ที่นี่เพื่อวัตถุประสงค์ในการอธิบายคือรายการสัญลักษณ์ที่ไม่ยุ่งเหยิง:

 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

ฟังก์ชั่นที่fn bประกาศในบรรทัดศูนย์รับพารามิเตอร์ตัวเลขxซึ่งANDมีค่าเป็นb; SGNที่ใช้แล้วเพื่อแปลงx and bไปหรือ10

บรรทัดแรกยอมรับอินพุตสตริงไปยังตัวแปรa$และลูปเริ่มต้น (แสดงด้วยi) ตามความยาวของอินพุตนั้น bแทนแต่ละบิตจากบิตที่ 6 ถึง 0 ยิงตัวอักษรของสตริงแต่ละตำแหน่งc$i

บรรทัดที่ 5 เริ่มต้นลูปเพื่อทดสอบตำแหน่งบิตแต่ละตำแหน่ง right$ใช้ในบรรทัดที่ 6 เพื่อลบปัญหาการจัดรูปแบบอัตโนมัติเมื่อ Commodore BASIC แสดงตัวเลขแปลงผลลัพธ์ของfn bสตริง asc(c$)แปลงอักขระปัจจุบันเป็นรหัส ascii ของมันเป็นค่าทศนิยม

บรรทัด 7 แสดงถึงค่าบิตถัดไป การวนซ้ำjจะสิ้นสุดลงก่อนที่จะพิมพ์ช่องว่างจากนั้นการวนซ้ำครั้งสุดท้ายiจะสิ้นสุดลง

JavaScript ES6, 71 ไบต์

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

Forth (gforth) , 45 ไบต์

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

ลองออนไลน์!

รหัสคำอธิบาย

: 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

ทับทิมขนาด 24 ไบต์

ฉันหวังว่าจะเอาชนะMartin Enderแต่ฉันสามารถผูกเขาได้

รับอินพุตบน STDIN; +1 ไบต์สำหรับการ-pตั้งค่าสถานะ

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

ลองออนไลน์!

Gaiaขนาด 4 ไบต์

ċb¦ṡ

ค่อนข้างมีความสุขกับสิ่งนี้

มันทำงานอย่างไร

ċ   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 

ลองออนไลน์!

Python 3 , 39 ไบต์

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

ลองออนไลน์!

การปรับปรุงเล็กน้อยเหนือคำตอบ Python ชั้นนำในปัจจุบัน

สถานะ 158

ฉันใช้วิธีการที่แตกต่างกว่าส่วนใหญ่ อ่านผ่านทางพรอมต์ display _request () (ย่อไปถึง di _r (r)) เขียนสตริงลงในไฟล์ชื่อ b ในโหมดข้อความ เปิด b ในโหมดไบนารีและอ่านอักขระแต่ละตัวเป็นไบต์และแปลงเป็นไบนารี ในทางเทคนิคแล้วไฟล์ b ควรจะปิดในตอนท้าย แต่มันเป็นโปรแกรมที่ถูกต้องและทำงานได้สำเร็จหากไม่มีมัน

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
}

โกลัง - 68

ฉันยังใหม่กับ Go และฉันก็ไม่แน่ใจในกฎการนับตัวอักษรในภาษานี้ที่นี่เช่นกัน

นำเข้า (11 ไบต์):

import"fmt"

ฟังก์ชั่น (55 ไบต์):

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

คุณสามารถเรียกใช้มันนี่

C # จะไม่ชนะคำถามประเภทนี้ แต่นี่เป็นความพยายามโดยสมบูรณ์โดยไม่ต้องเข้ารหัส :)

C # - 84

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

งูเห่า - 64

ในฐานะแลมบ์ดา:

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