पर्ल 5, 54 बाइट्स / 71 प्रिंट करने योग्य ASCII चार्ट
नोट: यह इस उत्तर का दूसरा संस्करण है। PHP और gzinflate () का उपयोग करते हुए मूल 64-बाइट / 95-चार संस्करण के लिए, इस उत्तर का इतिहास देखें ।
यहाँ 71-char मुद्रण योग्य ASCII संस्करण है:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
54-बाइट संस्करण में गैर-मुद्रण योग्य वर्ण हैं, इसलिए मैं इसे हेक्स डंप के रूप में प्रदान कर रहा हूं। यूनिक्स सिस्टम पर, आप xxd -r
हेक्स डंप को एक निष्पादन योग्य पर्ल स्क्रिप्ट में वापस करने के लिए उपयोग कर सकते हैं :
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
को पर्ल 5.10+ say
सुविधा को सक्षम करने के लिए चलाने की आवश्यकता है । वे निम्नलिखित उत्पादन का उत्पादन करेंगे:
(स्क्रीनशॉट के रूप में दिखाया गया है, क्योंकि एसई पर विशाल लाइन-ऊंचाई ASCII कला को बदसूरत और पढ़ने में कठिन बना देती है। निचला मामला "ई" अजीब है, लेकिन मेरा मानना है कि यह पठनीय के रूप में योग्य है, अगर केवल मुश्किल से ऐसा हो। "
Ps। यदि ऊपर दिए गए समाधान का आउटपुट आपके लिए बहुत न्यूनतर लगता है, तो यहां एक 92-वर्ण संस्करण है जो टॉमस के समाधान के समान उत्पादन करता है :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
यहाँ एक स्क्रीनशॉट है:
पी पी एस। मुझे पूरा यकीन है कि यह ( GolfScript, 51 chars ) सबसे छोटा प्रिंट करने योग्य- ASCII समाधान है, अगर आप उन लोगों की गिनती नहीं करते हैं जो बस बैनर / FIGLet को कॉल करते हैं या किसी अन्य तरीके से धोखा देते हैं:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
आउटपुट मेरे 71-चार्ट पर्ल समाधान के लिए समान है।
bash
: 33 अक्षर - pastebin.com/HZ1w8z8g क्या यह स्वीकार्य है?