पायथन + पीट वन-लाइनर्स: 417 चार्ट + 7391 7107 कोडिंग निष्पादित करता है
यह पायथन लिपि 7393 x 2 छवि का निर्माण करती है; सही 2x2 ब्लॉक जिसमें से एक "प्रहरी" है जो कार्यक्रम को समाप्त करता है; इसलिए मैं उन लोगों की गिनती नहीं कर रहा हूं; और दूसरी पंक्ति अन्यथा सफेद है। मैं शायद भोले बाइनरी एल्गोरिथ्म के बजाय जोड़ / घटाव / गुणन श्रृंखलाओं का उपयोग करके पीट कोड को और नीचे कर सकता हूं ... लेकिन मैं भविष्य की पहेली का हल नहीं देना चाहता।
मैं यहाँ चित्र पोस्ट नहीं करने जा रहा हूँ, क्योंकि इसके हास्यास्पद आयाम हैं। यदि आप इसे देखना चाहते हैं, तो अजगर कोड चलाएं, और आउटपुट को एक .ppm फ़ाइल में पाइप करें। फिर, .ppm को .gif में रूपांतरित करें, और आउटपुट को रापापिंग पर चलाएँ । (वैकल्पिक रूप से, एक गैर-वेब Piet दुभाषिया का उपयोग करें जो कि .ppm)
A='P=lambda A:reduce(lambda(D,H,B),P:(D[P/3:]+D[:P/3],H[P%3*2:]+H[:P%3*2],B+"".join("%i "%H[(D[0]/P)%2]for P in[1,2,4])),map(" A ! @ B".find,A),([1,3,2,6,4,5],[0,192,192,255,0,255],"P3 %i 2 255 "%(len(A)+2)))[2]+"255 "*4+"0 0 "+"255 "*len(A)*3+"255 0 0 "*2;B=lambda D:["@!%s","@@!%s!"][D%2]%B(D/2)if 1<D else"";print P("".join("A%sB"%B(ord(D))for D in"A=%s;exec A[:-13]"%`A`)+" ");exec A[:-13]';exec A[:-13]
संपादित करें: चर नाम के वजन को कम करके पीट को थोड़ा बड़ा किया।
कम गोल्फ पूर्व-क्वीन :
यह एक पिछले संस्करण है, इससे पहले कि मुझे एहसास हुआ कि मैं इसे वन-लाइनर बना सकता हूं। यह समझने में थोड़ा आसान है। फ़ंक्शन P, Piet में सेट एक विशेष निर्देश का अनुवाद करता है; और फंक्शन p एक पूर्णांक लेता है और स्टैक पर उस पूर्णांक को बनाने के लिए निर्देशों का क्रम उत्पन्न करता है। मैं केवल निर्देशों का उपयोग कर रहा हूं =,+,:,|
, इसलिए इसे शायद अधिक कुशल बनाया जा सकता है ... लेकिन मुझे स्रोत में एक फुलब्ल्यूड पीट कंपाइलर (एक प्रकार का) होना पसंद है।
s="""def P(s):
l=len(s)+1;R="P3 %i 2 255 "%(l+2);C=[1,3,2,6,4,5];V=[0,192,192,255,0,255]
for x in map("=|^+-*/%~>.,:@$?#!".find,"="+s):
C=C[x//3:]+C[:x//3];V=V[x%3*2:]+V[:x%3*2]
for i in [1,2,4]:R+="%i "%V[(C[0]//i)%2]
return R+"255 "*4+"0 0 "+"255 "*l*3+"255 0 0 "*2
p=lambda x:[":+%s","::+%s+"][x%2]%p(x/2)if x/2 else""
print P("".join("|%s!"%k(ord(c))for c in "s="+`s`+";exec s[:-13]"))
exec s[:-13]"""
exec s[:-13]
1
कई भाषाओं में एक क्वीन है। तो आप इसका एक J प्रोग्राम कह सकते हैं जो एक गोल्फस्क्रिप्ट प्रोग्राम को प्रिंट करता है जो एक ...... और इतने पर प्रिंट करता है।