Perl 5, 54 ไบต์ / 71 ตัวอักษร ASCII ที่พิมพ์ได้
หมายเหตุ:นี่เป็นรุ่นที่สองของคำตอบนี้ สำหรับเวอร์ชัน 64-byte / 95-char ดั้งเดิมโดยใช้ PHP และ gzinflate () ดูประวัติของคำตอบนี้
นี่คือรุ่น ASCII ที่พิมพ์ได้ 71 char:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
รุ่น 54- ไบต์มีอักขระที่ไม่สามารถพิมพ์ได้ดังนั้นฉันจึงให้มันเป็นฐานสิบหก บนระบบ Unixish คุณสามารถใช้xxd -r
เปลี่ยน hex dump กลับไปเป็นสคริปต์ Perl ที่รันได้:
0000000: 792f 3031 2f20 232f 2c73 6179 2066 6f72 y/01/ #/,say for
0000010: 2075 6e70 6163 6b27 2842 3430 2934 272c unpack'(B40)4',
0000020: 27a4 a011 008a aaa4 1126 9aec aad5 54a8 '........&....T.
0000030: a6a4 0a24 9a27 ...$.'
ทั้งคู่จะต้องทำงานด้วยperl -M5.010
เพื่อเปิดใช้งานsay
คุณสมบัติPerl 5.10+ พวกเขาจะผลิตผลลัพธ์ต่อไปนี้:
(แสดงเป็นสกรีนช็อตเนื่องจากความสูงของบรรทัดบน SE ทำให้ ASCII เป็นศิลปะที่น่าเกลียดและอ่านยากตัวพิมพ์เล็ก "e" นั้นค่อนข้างน่าอึดอัดใจ แต่ฉันเชื่อว่านี่เป็นคุณสมบัติที่อ่านได้
ps หากผลลัพธ์ของการแก้ปัญหาข้างต้นให้ความรู้สึกที่เรียบง่ายเกินไปสำหรับคุณนี่คือตัวแปร92 ตัวที่สร้างผลลัพธ์คล้ายกับโซลูชันของ Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
นี่คือภาพหน้าจอ:
pps ฉันค่อนข้างแน่ใจว่านี่ ( GolfScript, 51 ตัวอักษร ) เป็นโซลูชั่น ASCII ที่พิมพ์ได้สั้นที่สุดหากคุณไม่นับจำนวนที่เรียก banner / FIGLet หรือโกงด้วยวิธีอื่น:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
ผลลัพธ์เป็นเช่นเดียวกับโซลูชัน Perl 71 ตัวของฉันด้านบน
bash
: 33 ตัวอักษร - pastebin.com/HZ1w8z8gสิ่งนี้ยอมรับได้หรือไม่?