ส่วนที่เรียบง่าย:กำหนดสตริงอินพุตที่มีเฉพาะอักขระ ASCII ที่พิมพ์ได้ (ช่องว่าง - ตัวหนอน) นับจำนวนครั้งของอักขระแต่ละตัวและส่งคืนผลลัพธ์ในรูปแบบที่สะดวก ผลลัพธ์ของสตริงa%hda7aควรเป็นดังนี้: a:3, %:1, h:1, 7:1, d:1. การเรียงลำดับไม่จำเป็นตัวคั่นและรูปแบบเป็นตัวเลือก แต่ต้องเข้าใจง่ายว่าหมายเลขใดสอดคล้องกับอักขระตัวใด คุณจะต้องไม่รวมตัวละครที่ไม่ได้อยู่ในสายป้อน ( a:3, b:0, c:0, d:1, ...ไม่ตกลง)

ความท้าทายที่แท้จริง:

แปลงตัวละครทุกตัวในรหัสของคุณไปยังเลขฐานสอง 8 บิต (หรือ 16 บิตถ้าคุณกำลังใช้ UTF-16 หรือคล้ายกัน) 0และระบุตัวละครทุกตัวเริ่มต้นที่

ทุกตัวอักษร ( iเป็นแจงนับ) ที่i%7บิต¹ ต้อง1เป็น บิตจะถูกกำหนดหมายเลขจากด้านขวา บิตอื่น ๆ ทั้งหมดสามารถเป็นอะไรก็ได้ที่คุณต้องการ

ลองใช้รหัสต่อไปนี้เป็นตัวอย่าง:

[f]-xif)#f

การแปลงเป็นไบนารี่เราจะได้อาร์เรย์ด้านล่าง ตัวเลขแรก (แสดงถึง[มี1ตำแหน่ง 0'th ดังนั้นจึงเป็น OK หมายเลขที่สอง (แทนfได้1ในตำแหน่งที่ 1'st เพื่อให้เป็นที่ตกลงเช่นกันคุณจะเห็น รหัสด้านบนนั้นถูกต้อง

C 76543210 หมายเลข Bit
- -------- ----------
[0101101 1   0 - ตกลง
f 011001 1 0 1 - ตกลง
] 01011 1 01 2 - ตกลง
- 0010 1 101 3 - ตกลง
x 011 1 1,000 4 - ตกลง
ฉัน 01 1 01001 5 - ตกลง
f 0 1 100110 6 - ตกลง
) 0010100 1   0 - ตกลง
# 001000 1 1 1 - ตกลง
f 01100 1 10 2 - ตกลง

หากเราเปลี่ยนรหัสเป็น: ]f[-xif)#fเราจะเริ่มต้นลำดับต่อไปนี้:

C  76543210  Bit number
-  --------  ----------
]  01011101  0   <- OK
f  01100110  1   <- OK
[  01011011  2   <- Not OK
-  00101101  3   <- OK

อย่างที่เราเห็นอักษรตัวที่สาม[ไม่มี1ตำแหน่งที่ 2 (ดัชนีเป็นศูนย์) ดังนั้นรหัสนี้จึงไม่ถูกต้อง

กรณีทดสอบ:

Input:
This is a string containing some symbols: ".#!".#&/#

Output:
   !  "  #  &  /  :  T  a  b  c  e  g  h  i  l  m  n  o  r  s  t  y  .
7  1  2  3  1  1  1  1  2  1  1  1  2  1  5  1  2  4  3  1  6  2  1  2

รูปแบบผลลัพธ์ที่สมเหตุสมผลใด ๆ ก็โอเค (สิ่งใดก็ตามที่สะดวกที่สุดสำหรับคุณ) คุณสามารถเช่นมี: หรือ:7, !:1, ":2, #:3, &:1, /:1, T:1, a:2 ... [ ,7][!,1][",2][#,3][&,1]...เอาต์พุตอยู่ในรูปแบบมาตรฐาน (กลับจากฟังก์ชันพิมพ์ไปยัง STDOUT และอื่น ๆ )

¹โมดูลัสi7

นี่คือรหัสกอล์ฟดังนั้นรหัสที่สั้นที่สุดในไบต์จะชนะโทษ

Pyke, 1 6 ไบต์

1cn;1c

ลองที่นี่!

1c     - chunk(size=1, input)
  n;1  - noop. 
     c - count(^)

ครึ่งหนึ่งของรหัสนี้เป็นเพียงไม่เลือก ...

00110001 - 1
01100011 - c
01101110 - n
00111011 - ;
00110001 - 1
01100011 - c

Pyth, 12 8 7 ไบต์

^{-1 ไบต์ขอบคุณ @Loovjo}

m+d/Qd{
      { # remove all duplicated elements from the (implicit) input
m       # map each element (d) of the parameter (the set from previous operation)
   /Qd  # count the occurrences of d in Q
 +d     # concatenate with d

การเป็นตัวแทนไบนารี

0110110 1ม
001010 1 1 +
01100 1 00 d
0010 1 111 /
010 1 0001 Q
01 1 00100 d
0 1 111011 {

ลองที่นี่

Befunge-93, 150 bytes

={<{p+}3/}*77\%*7{7:\+{}{1g}+3/*77\%*7{7:}=:_{}{}={}{}{v#{}{}`x1:~
}-}=*}{2*}97}:<$}={$_v#}!:-*84g+3/*77\%*7{7:}=:}:}+}1{}<_{@#
}{}{}={}{}{}={^.},\={<

ลองออนไลน์!

ฉันเริ่มต้นด้วยการเขียนโปรแกรมนี้เป็นโปรแกรม Befunge ปกติซึ่งฉันเล่นกอล์ฟให้มากที่สุด ฉันเพิ่มการเติมเพื่อให้แน่ใจว่าอักขระต่าง ๆ ในโปรแกรมปรากฏในตำแหน่งที่อนุญาตเท่านั้น การขยายนี้อาศัยความจริงที่ว่าคำสั่งที่ไม่ได้รับการสนับสนุนจะถูกละเว้นใน Befunge-93 ดังนั้นฉันจึงต้องการลำดับของอักขระที่ไม่ได้ใช้ซึ่งบิตนั้นสอดคล้องกับตำแหน่งที่ต้องการ (ลำดับที่ฉันใช้คือ={}{}{})

บิตที่ซับซ้อนคือสาขาต่าง ๆ ระหว่างบรรทัดจำเป็นต้องเรียงแถวอย่างถูกต้อง (เช่นvลูกศรในหนึ่งบรรทัดจะต้องเรียงแถวด้วย<ลูกศรด้านล่าง) นี่คือความซับซ้อนต่อไปโดยข้อเท็จจริงที่ว่าคำสั่งสะพาน (# ) ไม่สามารถแยกออกจากลูกศรแยกย่อยที่อยู่ติดกันได้ ตอนแรกฉันพยายามสร้างช่องว่างแบบเป็นระบบ แต่ในที่สุดมันก็เป็นกระบวนการแบบแมนนวล

เนื่องจากขนาดของโปรแกรมฉันจะไม่แสดงรายการการวิเคราะห์ตัวละครแบบเต็ม แต่นี่เป็นตัวอย่างจากจุดเริ่มต้นและจุดสิ้นสุด:

= 00111101 0
{ 01111011 1
< 00111100 2
{ 01111011 3
p 01110000 4
+ 00101011 5
} 01111101 6
3 00110011 0
/ 00101111 1
...
{ 01111011 1
^ 01011110 2
. 00101110 3
} 01111101 4
, 00101100 5
\ 01011100 6
= 00111101 0
{ 01111011 1
< 00111100 2

การขึ้นบรรทัดใหม่ถือเป็นอักขระขึ้นบรรทัดใหม่ดังนั้นจะอยู่ในตำแหน่งที่ 1 หรือ 3

MATL , 17 ไบต์

u"G91x@=zD91x@uRD

แสดงการนับจากนั้นอักขระที่เกี่ยวข้องจะถูกคั่นด้วย newline ทั้งหมด ความยากลำบากที่ยิ่งใหญ่ที่สุดคือสิ่ง@ที่เป็น0b01000000; ฉันหวังว่าฉันสามารถหาวิธีที่จะทำโดยไม่ได้

ลองออนไลน์!

คำอธิบาย:

u"  % Implicit input. Take (u)nique characters and loop (") over them.
G   % Take the input a(G)ain
91x % Filler: push 91, delete immediately.
@   % Push current character of loop
=   % Check for equality with earlier G
z   % Count number of equal characters
D   % Display
91x % More filler!
@   % Get loop character again
uR  % Filler: two NOPs for the single-character @
D   % Display. Implicitly end loop.

MATL, 15 ไบต์ (ผลลัพธ์ที่น่าสงสัย)

หากอนุญาตให้ปล่อยเวกเตอร์สองแถวลงบนสแต็กเท่านั้น (พฤติกรรมคล้ายฟังก์ชั่นตามโพสต์ Meta นี้ ) เราสามารถลงไปได้

u"G91x@=zv]v!Gu

แต่ที่นี่ผลผลิตไม่ได้สั่งเท่าที่ควร

CJam, 14 ไบต์

q__|_ @sfe=]zp

ลองที่นี่

ช่องว่างด้านหน้าก่อน@และsหลังเป็นอักขระเติมเพื่อแทรกรหัส ASCII ให้พอดีกับรูปแบบที่ต้องการ: พื้นที่ไม่ได้ทำอะไรเลยและsเพียงแค่แปลงสตริงเป็นสตริง นอกจากนั้นนี่เป็นการดำเนินงานที่ท้าทายและเรียบง่ายตรงไปตรงมา:

q_ "อ่านอินพุตและสร้างสำเนา";
  _ | "ยุบตัวอักขระซ้ำในสำเนา";
    _ "บันทึกสำเนาของสตริงที่ยุบ";
      @ "ดึงสตริงอินพุตต้นฉบับไปที่ด้านบนของสแต็ก";
       s "(ไม่ทำอะไรที่นี่)";
        fe = "สำหรับอักขระแต่ละตัวในสตริงที่ยุบให้นับ ... ";
                 "... จำนวนครั้งที่มันเกิดขึ้นในสตริงเดิม";
           ] z "จับคู่การนับด้วยสำเนาที่บันทึกไว้ของสตริงที่ยุบ";
             p "พิมพ์การแทนค่าสตริงของผลลัพธ์";

สำหรับการป้อนข้อมูลรหัสนี้เอาท์พุทfoobar123 [['f 1] ['o 2] ['b 1] ['a 1] ['r 1] ['1 2] ['2 2] ['3 1]]หากเพียงพิมพ์จำนวนในบรรทัดหนึ่งและอักขระที่เกี่ยวข้องในอีกบรรทัดดังเช่นใน:

[1 2 1 1 1 2 2 1]
fobar123

ถือเป็นรูปแบบการออกยอมรับแล้ว]zอาจถูกมองข้ามที่จะบันทึกสองไบต์รวมเป็น12 ไบต์ ใช่รหัสย่อจะยังคงผ่านข้อกำหนดรูปแบบบิต

ps ฉันยังเขียนตัวตรวจสอบซอร์สโค้ดพื้นฐานสำหรับความท้าทายนี้ เมื่อได้รับบรรทัดของรหัสเป็นอินพุทมันจะก้องบรรทัดนั้นแล้วพิมพ์บรรทัดเดียวกันกับตัวละครแต่ละตัวที่ถูกแทนที่ด้วย ( n % 7) บิต ASCII ที่ -th หากบรรทัดที่สองคือบรรทัดทั้งหมดอินพุตจะถูกต้อง

เยลลี่ขนาด 6 ไบต์ในเพจรหัสของเจลลี่

ṢZṢṀŒr

ลองออนไลน์!

นี่คือฟังก์ชั่นที่คืนค่ารายการของคู่ (อักขระ, จำนวน) (เจลลี่แสดงรายการเช่นข้อความเช่นถ้าพวกมันถูกส่งไปยังเอาต์พุตมาตรฐานโดยเชื่อมต่อองค์ประกอบซึ่งเป็นสาเหตุที่คุณต้องปฏิบัติต่อสิ่งนี้เป็นฟังก์ชั่นแทนที่จะเป็นโปรแกรมที่สมบูรณ์ ( นี่คือโปรแกรมเดียวกันที่มีรหัสต่อท้ายบางส่วน เรียกใช้ฟังก์ชั่นแล้วพิมพ์โครงสร้างภายในไปยังเอาต์พุตมาตรฐานเพื่อพิสูจน์ว่าเอาต์พุตอยู่ในรูปแบบที่ไม่คลุมเครือ)

การเป็นตัวแทนไบนารีและคำอธิบาย:

  76543210 

Ṣ 1011011 1    เรียงอักขระของอินพุต
Z 010110 1 0 ย้ายรายการ (เป็น 1D ดังนั้นนี่จึงเป็นการรวมรายการไว้ในรายการอย่างมีประสิทธิภาพ)
Ṣ 10110 1 11 เรียงลำดับรายการ (ห้ามใช้เนื่องจากมีองค์ประกอบเดียว)
Ṁ 1100 1 000 ใช้องค์ประกอบที่ใหญ่ที่สุด (เช่นเท่านั้น)
Œ 000 1 0011 ไบต์แรกของคำสั่งสองไบต์
r 01 1 10010 ความยาวตัวเข้ารหัส

จะเห็นได้ว่าตัวอักษรตัวที่สองตัวที่สามและตัวที่สี่ยกเลิกกันและอยู่ที่นั่นเพียงเพื่อรักษารูปแบบบิตที่เราต้องการ Œrแม้ว่าจะสะดวกเกินไปและการซ้อนโปรแกรมเพื่อให้เราสามารถใช้งานได้อาจทำให้เรามีโปรแกรมที่สั้นกว่าการพยายามแก้ปัญหาโดยไม่ต้องใช้บิวอิน