ใน Haskell สัญลักษณ์รายการ:

[a,b,c]

เป็นเพียงน้ำตาลประโยคสำหรับ:

a:b:c:[]

และสัญกรณ์สตริง:

"abc"

เป็นเพียงน้ำตาลประโยคสำหรับ:

['a','b','c']

ซึ่งหมายความว่าสตริง:

"abc"

เหมือนกับ:

'a':'b':'c':[]

งาน

รับสายคุณควรส่งออกสิ่งที่รุ่น de- ไวยากรณ์จะมีลักษณะเช่นใน Haskell

กฎระเบียบ

• คุณจะได้รับสตริงโดยวิธีการป้อนข้อมูลที่ถูกต้องคุณควรเอาท์พุทสตริงลงท้ายด้วย:[]ด้วยตัวอักษรจากการป้อนข้อมูลที่ล้อมรอบไปด้วยทุกและแยกจากกันโดย' สตริงที่ว่างเปล่าควรเอาท์พุท:[]

• คุณสามารถสันนิษฐานได้ว่าคุณจะไม่ได้รับอักขระใด ๆ ที่ต้องมีการหลบหนี (เช่นการ'ขึ้นบรรทัดใหม่แท็บ ... ) และข้อมูลนั้นจะอยู่ในช่วง ascii ที่พิมพ์ได้

• นี่คือโค้ดกอล์ฟที่คุณควรตั้งเป้าเพื่อลดจำนวนไบต์ของคำตอบของคุณ

กรณีทดสอบ

"" -> []
"a" -> 'a':[]
"Hello, World" -> 'H':'e':'l':'l':'o':',':' ':'W':'o':'r':'l':'d':[]   

Haskell , 26 ไบต์

(++"[]").((++":").show=<<)

ลองออนไลน์!

คำอธิบาย:

ในรูปแบบที่ไม่ใช่ประเด็นและใช้concatMapแทน=<<สิ่งนี้จะกลายเป็น

f s = concatMap(\c-> show c ++ ":")s ++ "[]"

รับสตริงsเราจับคู่อักขระแต่ละตัวcกับสตริง"'c':"โดยใช้showฟังก์ชั่นซึ่งจะคืนค่าการแทนสตริงของประเภท Haskell ส่วนใหญ่ สตริงเหล่านั้นถูกต่อกันและสุดท้าย[]จะถูกต่อท้าย

แม้ว่าจะไม่ได้รับการร้องขอจากความท้าทายที่คำตอบนี้แม้จะทำงานร่วมกับหนีที่เหมาะสมเพราะshowจะดูแลมัน: อัตราผลตอบแทนf "'""'\\'':[]"

Haskell, 33 28 26 ไบต์

foldr((.(':':)).shows)"[]"

ลองออนไลน์!

foldฟังก์ชั่น pointfree []รับจากขวาเข้ามาในสายป้อนที่เริ่มต้นด้วย ฟังก์ชั่นคือ: แสดงถ่านเป็นถ่าน Haskell เช่นล้อมรอบด้วย'และเชื่อมต่อกับผลลัพธ์จนถึงหลังจากวาง:ด้านหน้า

แก้ไข: @ Ørjan Johansen บันทึกสองไบต์ ขอบคุณ!

Python 3 , 32 ไบต์

lambda s:"%r:"*len(s)%(*s,)+"[]"

ลองออนไลน์!

JavaScript ES6, 42 40 31 ไบต์

s=>s.replace(/./g,"'$&':")+"[]"

แทนที่แต่ละอักขระด้วย'<char>':แล้วเพิ่ม[]ไปยังจุดสิ้นสุด

ลองออนไลน์!

เสียงกระเพื่อมสามัญ50 42 ไบต์

(format t"~{'~a':~}[]"(coerce(read)'list))

ลองออนไลน์!

ลดลงเนื่องจากความคิดเห็นของ @coredump โดยใช้readแทนการกำหนดฟังก์ชัน

V , 11 ไบต์

Í./'&':
A[]

ลองออนไลน์!

ใช้ regex เพื่อล้อมรอบอักขระอินพุตทั้งหมดด้วย'':แล้วAppends []จนถึงจุดสิ้นสุด

C, 55 54 53 ไบต์

s(char*h){while(*h)printf("'%c':",*h++);puts("[]");}

Python 3 , 41 38 36 ไบต์

^{-2 ไบต์ต้องขอบคุณ ovs}

print(*map(repr,input()),[],sep=':')

ลองออนไลน์!

05AB1E , 15 12 11 10 ไบต์

-3 ไบต์ขอบคุณ carusocomputing
-1 ไบต์ขอบคุณ Adnan
-1 ไบต์ขอบคุณ Eius the Outgolfer

ʒ"'ÿ':"?},

ลองออนไลน์!

ʒ          # Filter out every character that the following code doesn't return 1 for
 "'ÿ':"?   #   Print the string 'ÿ': with ÿ replaced by this character
        }  # End for
         , # No character returned 1 so an empty array is left on the stack. Print that

R, 51 ไบต์

f<-function(x)(paste0(gsub("(.)","'\\1':",x),'[]'))

Pyth, 14 10 8 ไบต์

j\:a`MQY

ลองนี้สิ!

-2 ไบต์ต้องขอบคุณ @isaacg

ในที่สุด pyth ก็มีบางอย่างที่ดี

คำอธิบาย

j\:a`MQY
    `MQ        # map the representation over the input string: ["'a'","'b'",...]
   a   Y       # append the empty list
j\:            # join on :

Perl 6 , 19 ไบต์

{S:g|.|'$/':|~'[]'}

เรติน่า 12

• บันทึก 3 ไบต์ด้วย @FryAmTheEggman

.
'$ &':
$
[]

2 ขั้นตอน:

• สำหรับตัวละครที่เหลือแต่ละตัวจะนำมา' ':ล้อมรอบมัน
• เพิ่ม[]ไปยังจุดสิ้นสุด

ลองมันออนไลน์

Python 2 , 48 46 44 37 ไบต์

-2 ไบต์ต้องขอบคุณ Rod -7 ไบท์ขอบคุณข้าวสาลีวิซาร์ด

lambda s:':'.join(map(repr,s)+['[]'])

ลองออนไลน์!

Befunge , 29 27 ไบต์

<,,,,\_v#`0:~"'':"
@,,"[]"<

ลองออนไลน์!

JavaScript (ES6), 36 ไบต์

s=>s?`'${[...s].join`':'`}':[]`:"[]"

ลองมัน

f=
s=>s?`'${[...s].join`':'`}':[]`:"[]"
oninput=_=>o.innerText=f(i.value);o.innerText=f(i.value="abc")

<input id=i><pre id=o>

เจลลี่ ,  11 10  8 ไบต์

-1 ไบต์ขอบคุณ Christian (ลบการต่อข้อมูล;และใช้การพิมพ์โดยนัยแทน)

0 ไบต์ (คงที่สำหรับกรณีที่ขอบของสตริงที่ว่างเปล่า - ก่อนหน้านี้โปรแกรมเต็มรูปแบบ: ŒṘ€j”:“:[])

-2 ขอบคุณที่เอริก Outgolfer (การใช้งานpในสถานที่;€ตั้งแต่”:มีประสิทธิภาพความยาว 1; ใช้Ø[เพราะมันได้กลายเป็นชวเลข⁾[])

ŒṘ€p”:Ø[

ลองออนไลน์!

โปรแกรมเต็มรูปแบบการพิมพ์ผลลัพธ์ (เป็นลิงค์ที่จะส่งกลับรายการของตัวละคร)

... แต่มีวิธีบันทึกโดยใช้ STDIN หรือไม่

อย่างไร?

ŒṘ€p”:Ø[ - Main link: list of characters, s  e.g. "Hey"
ŒṘ€      - Python representation for €ach    [["'",'H',"'"],["'",'e',"'"],["'",'y',"'"]]
    ”:   - literal character = ':'
   p     - Cartesian product                 [["'",'H',"'",':'],["'",'e',"'",':'],["'",'y',"'",':']]
         - implicit print (no newline): 'H':'e':'y':
      Ø[ - literal list of characters        ['[',']']
         - implicit print (no newline): []

PHP , 41 ไบต์

<?=preg_filter("#.#","'$0':",$argn)."[]";

ลองออนไลน์!

Perl 5 , 22 ไบต์

19 ไบต์ของรหัสเมือง + -pธง

s/./'$&':/g;$\="[]"

หรือสำหรับ bytecount s/./'$&':/g;s/$/[]/เดียวกัน

ค่อนข้างตรงไปข้างหน้า: s/./'$&':/gล้อมรอบอักขระแต่ละตัวด้วยเครื่องหมายคำพูดและเพิ่ม:หลัง $\จะถูกพิมพ์โดยปริยายหลังจากแต่ละพิมพ์เพื่อให้การตั้งค่าให้ออกผลลัพธ์สุดท้าย[][]

ลองออนไลน์!

Java (OpenJDK 8) ,86 83 76 ไบต์

-3 ไบต์ขอบคุณ @KevinCruijssen -7 ไบต์ขอบคุณ@FlorianSchaetz

s->{String b="";for(char c:s.toCharArray()){b+="'"+c+"':";};return b+"[]";};

ลองออนไลน์!

brainfuck, 68 ไบต์

+[-->+[<]>-]>>,[<.>.<.>>-[>+<+++++++++]>+.[-]<<,]-[+[+<]>>+]<+++.++.

ลองออนไลน์!

Brain-Flak , 135 , 131 bytes

{({}<>)<>}(((((((()()()()()){})){}{}())){}{})[()()])<>{<>(((((((()()()){}()){}){}()){})[(((()()()){})){}{}()])<>)({}<({}<>)>)<>}<>

ลองออนไลน์!

+1ไบต์สำหรับ-cธง

ขอบคุณ WheatWizard ที่ลบ NOOPs ที่เห็นได้ชัดมากที่ฉันไม่มีเหตุผล XD

มาตรฐาน ML , 52 50 ไบต์

บันทึก 2 ไบต์ต้องขอบคุณ @Laikoni!

fn s=>String.translate(fn c=>"'"^str c^"':")s^"[]"

ลองออนไลน์!

String.translateเป็นที่น่าเสียดายที่ชื่อยาว แต่ก็ 5 ไบต์สั้นกว่าการใช้concat, และmapexplode

Cubix , 31 29 ไบต์

uo@[)o'U);!A?ro;o;o;os:'/u:''

Aยังสามารถทดแทนสำหรับi; พยายามหาว่ามีวิธีที่ดีในการบีบไบต์อื่นหรือสองจากนี้ -2 ไบต์ต้องขอบคุณ MickyT! นอกจากนี้ยังoutgolfed โดย MickyT !

พอดีกับลูกบาศก์ 3x3x3:

      u o @
      [ ) o
      ' U )
; ! A ? r o ; o ; o ; o
s : ' / u : ' ' . . . .
. . . . . . . . . . . .
      . . .
      . . .
      . . .

ดูออนไลน์!

ลองออนไลน์!

Python 2 , 47 ไบต์

lambda a:`list(a)+[[]]`.replace(', ',':')[1:-1]

ลองออนไลน์!

APL (Dyalog) , 21 19 ไบต์

'[]',⍨'.'⎕R'''&'':'

ลองออนไลน์!

'[]',⍨ วงเล็บต่อท้าย

'.' ตัวละครทุกตัว

⎕R PCRE R ถูกแทนที่ด้วย

'''&'':' คำพูดการแข่งขันการเสนอราคาและเครื่องหมายโคลอน

sed , 19 18 ไบต์

-1 ไบต์ขอบคุณจอร์แดน

s/./'&':/g;s/$/[]/

ลองออนไลน์!

PHP, 39 ไบต์

<?while(~$c=$argn[$i++])echo"'$c':"?>[]

-Fทำงานเป็นท่อด้วย

นูน 10 ไบต์

{`':`}%"[]

ลองออนไลน์!

Cubix , 27 ไบต์

uosW?U.iv":'"^soso;os@o[]'/

ลองออนไลน์!

      u o s
      W ? U
      . i v
" : ' " ^ s o s o ; o s
@ o [ ] ' / . . . . . .
. . . . . . . . . . . .
      . . .
      . . .
      . . .

ดูมันทำงาน

รูปแบบที่แตกต่างกันเล็กน้อยจาก Guiseppe ของคำตอบ สิ่งนี้ทำให้โคลอนและอ้างถึงสแต็ก จากนั้นมันจะวนซ้ำผ่านอินพุตสลับและส่งออกสแต็ก เฉพาะอินพุตที่ถูกทิ้งและมีเครื่องหมายโคลอนและเครื่องหมายคำพูด

เมื่อถึงจุดสิ้นสุดของอินพุตแล้วสิ่งมหัศจรรย์ของ IP รอบลูกบาศก์จะเพิ่มขึ้นและส่งออกวงเล็บ มีสองคำสั่งที่ซ้ำซ้อนในการผสม