व्हॉट्सएप और पर्ल, 992 975 अक्षर
देवियो और सज्जनो शुभ संध्या।
इसके साथ शुरू करने के लिए, यहां मेरा परिचय base64 में एन्कोडेड है, जो मुझे लगता है कि एक बड़े व्हाट्सएप प्रोग्राम को संप्रेषित करने का सबसे अच्छा तरीका है। (आप वास्तव में एन्कोडिंग का उपयोग नहीं करना चाहते हैं, जो कि किसी भी व्हाट्सएप को छोड़ देता है, इसलिए पढ़ने योग्य कुछ और चुनने का कोई मतलब नहीं है।)
c2F5PDwgeDI7c2F5PDwwLDAgIApzYXk8PCB4MjtzYXk8PDAsMCAgCgoJCQogICAJCSAgCSAgCSAJ
CSAgCSAgCQkgCSAJIAkJCQkJICAJCSAJCQkgCQkJCQkgCSAJIAkJIAkgCSAgIAkJCQkJICAgCQkg
IAkgCQkgCSAJCSAJICAgIAkJCQkgCSAgCSAJCSAJICAgIAkgCQkgICAJICAgICAgCQkJIAkJCQkJ
IAkJCSAJCQkJICAgICAJCQkgCSAgICAgIAkJCQkJICAgICAgCQkgICAJCSAgICAJCQkJCQkJCSAg
CSAJIAkgICAJCQkgICAJCQkJCSAgCQkJCSAJICAgIAkgCQkJCQkgCSAgICAgCSAgCSAJICAgICAg
CSAgICAJICAgICAJCSAgIAkJCSAJIAkJCQkJCSAJCSAJIAkgICAgICAgCQkgIAkgICAgICAgICAg
IAkJICAgCSAJCQkgCSAgICAgCQkJCQkJIAkgICAgCQkJCSAJCQkJICAJCQkgICAJCQkgCSAgCSAg
IAkJCQkgIAkJIAkJCSAgIAkJCSAJCQkgCQkJICAJCSAJICAJIAkJCSAJIAkgCQkgICAgIAkgCSAJ
ICAJICAJIAkJICAgICAJIAkgICAgCQkJCSAgCSAJCSAJIAkJIAkgIAkgCSAJCSAJCSAJCSAJCQkg
CQkJICAgIAkJCSAgCSAgCQogICAJICAgICAJCQkJCSAJCSAJIAkgCSAJICAJCQkgICAJICAgCSAg
ICAJCSAJICAgICAgICAgCSAgIAkJCQkgCQkgICAgCQkgCSAJICAJCQkgCQkJCSAJCQkgICAJICAg
IAkgCSAJCQkgIAkJCQkgCSAJCSAJIAkgCQkJCSAJICAJIAkJIAkgICAJCiAKICAKICAgIAogCSAg
CQoKICAJCiAKICAgIAkJCQkgCSAKCSAJCQkKICAgICAJCQkJIAkgCgkgCSAgCiAgIAkJCgkgIAoK
CQkJCiAKCgoJIAkKICAgCSAgIAkgIAoKIAkKIAkgIAkKCiAJIAogICAJIAoKIAkKCiAJIAoKIAkK
CQogCSAgIAkgCgogCQoKCgoKICAgCiAgIAogCiAKIAkKCiAJCgogICAgCiAKIAoJIAogCiAgICAJ
IAoJIAkJIAoJICAgCSAKCSAJIAogCSAgCgogIAogCiAgICAJCQoJIAkJICAJCSAJCQkKCSAgCiAg
CQkJICAgCgkgCQkgICAJICAgICAKCSAgIAkKICAgICAJCQoJIAkgIAogICAJCQoJICAKCgkJCiAK
CgoJCjAK
यहाँ एक अंश है जो स्रोत के सभी दृश्य भागों पर प्रकाश डालता है। ⇥एक टैब ↲को इंगित करने और एक नई रेखा को इंगित करने के लिए उपयोग किया जाता है ।
say<< x2;say<<0,0 ↲
say<< x2;say<<0,0 ↲
↲
⇥⇥↲
⇥⇥ ⇥ [... etcetera ... skipping rest of a really long line ...]↲
⇥⇥⇥ ⇥⇥[... etcetera ... shorter but still quite a long line ...]↲
↲
↲
↲
⇥ ⇥↲
[... etcetera ... whole lotta whitespace in here ...]
⇥⇥↲
↲
↲
↲
⇥↲
0↲
इस चुनौती में दूसरी भाषा के लिए पर्ल प्राकृतिक विकल्प था, जो कॉम्पैक्ट क्वीन लिखने के लिए सबसे अच्छे सामान्य प्रयोजन वाली भाषाओं में से एक है। मेरी सबसे छोटी पर्ल क्वीन 19 बाइट्स है:
say<< x2
say<< x2
- और आप देख सकते हैं कि डबल क्वीन के पर्ल आधे के लिए बीज कैसे था। मेरी सबसे अच्छी व्हॉट्सएप क्वीन, तुलना में, 541 बाइट्स लंबी है। (हालांकि छोटे लोग मौजूद हैं - 445 बाइट्स मैंने देखा है सबसे अच्छा है।)
पर्ल दुभाषिया के दृष्टिकोण से, डबल क्वीन के स्रोत फ़ाइल की पहली पंक्ति में दो कथन हैं जो पूरे कार्यक्रम को उचित बनाते हैं, क्योंकि शेष सामग्री दो उद्धृत तार हैं। पहली स्ट्रिंग पर्ल की दोहराई जाने वाली रेखा है, और इसे रिक्त तीसरी पंक्ति द्वारा सीमांकित किया जाता है। दूसरी स्ट्रिंग सभी व्हाट्सएप है, और स्रोत की चौथी लाइन से सभी तरह से चलती है0 फाइल के निचले हिस्से में सीमांकक ।
जब व्हॉट्सएप प्रोग्राम के रूप में लिया जाता है, तो पहले चार लाइनों में तीन निर्देश होते हैं जो काफी हद तक बेकार होते हैं। (उनका प्रभाव स्टैक पर दो शून्य मानों को धकेलना है, और फिर दूसरे को छोड़ देना है।) वे सिर्फ उन नई सीमाओं को सुरक्षित रूप से प्राप्त करने के लिए शामिल हैं जिन्हें पर्ल प्रोग्राम की आवश्यकता है - वास्तविक कार्यक्रम उसके बाद शुरू होता है। आगे किसी भी अपठनीय स्रोत को उद्धृत करने के बजाय, यहां विधानसभा-जैसे प्रारूप में, व्हाट्सएप प्रोग्राम बनाने वाले निर्देशों का एक पैराप्रैसिंग किया गया है:
# Representation of "say<< ;say<<0,0 \n" in base 122 as ASCII chars.
PERLCODE = 44892457841068708924520433691075560592081
# Represention of the whitespace program, following the "push PERLCODE"
# instruction, in base 3 (see comments on wsout).
WSCODE = 9823454421986355730445143846606456399449033186160554878002671428613111806443504867738858766142050504887335990409088441824104338753030405625930185
# Set up the stack and the heap. The first three instructions are not
# particularly useful; they're just there to skip past the newlines in
# the Perl code. (Though the initial zero on the stack does get used
# at the very end.)
push 0
push 0
jneg wsout
push WSCODE
push PERLCODE
dup
dup
push 0
copy 1
# Output the first four lines of the file.
perl: dup
mod 122
putchar
div 122
dup
jnzero perl
pop
jzero perl
push 68 # represents "jneg wsout"
call wsout
# Output the rest of the file.
copy 1
call pushout
push 2
call wsout
call pushout
call wsout
putnum
push 2
call wsout
exit
# pushout: Output a Whitespace push instruction, using the number on
# the top of the stack as the instruction's argument. (Recursion is
# used to output the bits MSB-first.)
pushout:
push 0
dup
call wsout
call wsout
bits: dup
jzero bitend
dup
mod 2
swap
div 2
call bits
bitend: call wsout
ret
# wsout: Output a sequence of whitespace characters as represented by
# the number on the top of the stack. The number is read in base 3,
# LSB-first, with 0 = SPC, 1 = TAB, 2 = NL. Calling wsout with a value
# of zero will output a single space.
wsout:
dup
mod 3
mul -23 # some ugly math that transforms
mod -24 # (0, 1, 2) into (32, 9, 10)
add 32
putchar
div 3
dup
jnzero wsout
pop
ret
शीर्ष पर विशाल संख्याएं हैं जिन्हें हम व्हाट्सएप उपयोगकर्ताओं को वास्तविक तारों के बदले में उपयोग करना है। एक व्हाट्सएप दुभाषिया पर इसे चलाने की कोशिश करने से परेशान न हों, जिसमें उचित बोगम समर्थन नहीं है।
अंत में, यहाँ कार्यक्रम फिर से है, लेकिन सी-स्टाइल के साथ इस बार बच जाता है, क्योंकि यह विशेष रूप से अनुरोध किया गया था:
say<< x2;say<<0,0 \nsay<< x2;say<<0,0 \n\n\t\t\n \t\t \t \t \t\t \t \t\t \t \t \t\t\t\t\t \t\t \t\t\t \t\t\t\t\t \t \t \t\t \t \t \t\t\t\t\t \t\t \t \t\t \t \t\t \t \t\t\t\t \t \t \t\t \t \t \t\t \t \t\t\t \t\t\t\t\t \t\t\t \t\t\t\t \t\t\t \t \t\t\t\t\t \t\t \t\t \t\t\t\t\t\t\t\t \t \t \t \t\t\t \t\t\t\t\t \t\t\t\t \t \t \t\t\t\t\t \t \t \t \t \t \t \t\t \t\t\t \t \t\t\t\t\t\t \t\t \t \t \t\t \t \t\t \t \t\t\t \t \t\t\t\t\t\t \t \t\t\t\t \t\t\t\t \t\t\t \t\t\t \t \t \t\t\t\t \t\t \t\t\t \t\t\t \t\t\t \t\t\t \t\t \t \t \t\t\t \t \t \t\t \t \t \t \t \t \t\t \t \t \t\t\t\t \t \t\t \t \t\t \t \t \t \t\t \t\t \t\t \t\t\t \t\t\t \t\t\t \t \t\n \t \t\t\t\t\t \t\t \t \t \t \t \t\t\t \t \t \t\t \t \t \t\t\t\t \t\t \t\t \t \t \t\t\t \t\t\t\t \t\t\t \t \t \t \t\t\t \t\t\t\t \t \t\t \t \t \t\t\t\t \t \t \t\t \t \t\n \n \n \n \t \t\n\n \t\n \n \t\t\t\t \t \n\t \t\t\t\n \t\t\t\t \t \n\t \t \n \t\t\n\t \n\n\t\t\t\n \n\n\n\t \t\n \t \t \n\n \t\n \t \t\n\n \t \n \t \n\n \t\n\n \t \n\n \t\n\t\n \t \t \n\n \t\n\n\n\n\n \n \n \n \n \t\n\n \t\n\n \n \n \n\t \n \n \t \n\t \t\t \n\t \t \n\t \t \n \t \n\n \n \n \t\t\n\t \t\t \t\t \t\t\t\n\t \n \t\t\t \n\t \t\t \t \n\t \t\n \t\t\n\t \t \n \t\t\n\t \n\n\t\t\n \n\n\n\t\n0\n