टर्टल , 135 129 बाइट्स (प्रतिस्पर्धा नहीं)
(दुभाषिया वास्तव में थोड़ा बग़दाद नहीं है (अब:]) , लेकिन यह इस कार्यक्रम को प्रभावित नहीं करता है )
अपने कार्यक्रम का पुनर्गठन और पुनर्लेखन करके, मैंने गोल्फ ... छह बाइट्स
और अब मुझे नई व्याख्या करनी है ...
हालांकि अभी भी कम जांच हो सकती है
इस लैंग में कम से कम सबसे अच्छा समाधान कच्चे डेटा (\ _ (best) _ / ¯ में नहीं लिख रहा है
#3.141592653589793238462643383279502884197169#")()()()()()">10:[)'|l]:[)d'\l]d"(||"2uuu[|;"::"uuu];>"__"[|r'\d]dl[ l[|.+l][\r]ul]
इसे ऑनलाइन आज़माएं
व्याख्या
ईमानदारी से, यह बहुत अच्छी तरह से वास्तविक कार्यक्रम का वर्णन नहीं करता है, लेकिन यह आदेशों के बारे में संकेत देता है, इसलिए आप थोड़ा बेहतर समझ सकते हैं
#3.141592653589793238462643383279502884197169# Some pi. Set the string to thing between #s
the last digit was same as first, and the
string wraps, so digit could be removed
")()()()()()" Write this string, by writing char 1 to current cell, moving right, char 2...
> turn right
10 set register to ten
:[)'|l]: move right by amount in register, while current cell isn't ), write |
and move left. move right by amount in register
[)d'\l] while cell is not (, move down, write \, move left
d"(||" move down and string-write "(||"
2 set register to 2
uuu[|;"::"uuu] Move up three, and while the cell is not |, move down by
register (2), string-write "::", move up three
Just remember the turtle is currently pointing right, so up is right.
;>"__" move down by amount in register, turn right, string-write "__"
[|r'\d]dl while cell is not |{ move right, write \, move down}, move down, left
कॉम्प्लेक्स थिंग: नेस्टेड लूप्स
[ l[|.+l][\r]ul]
जबकि वर्तमान सेल स्पेस नहीं है {लेफ्ट, लेफ्ट को निष्पादित करें: (जबकि सेल नहीं।), स्ट्रिंग चर का वर्तमान वर्ण लिखें (उस pi को याद रखें?), इंक्रीमेंट स्ट्रिंग पॉइंटर, लेफ्ट को छोड़ें), लूप निष्पादित करें: (जबकि सेल नोट \ _, नहीं) दाएँ चलना), ऊपर जाना, बाएँ}