টার্টলিড , 135 129 বাইট (প্রতিযোগিতা নয়)
( দোভাষা আসলেই কিছুটা বাগড্ড নয় (আর:])) তবে এটি এই প্রোগ্রামকে প্রভাবিত করে না )
আমার প্রোগ্রামটির পুনর্গঠন এবং পুনরায় লেখার মাধ্যমে আমি গল্ফ দিয়েছি ... ছয় বাইট
এবং এখন আমাকে নতুন ব্যাখ্যা দিতে হবে ...
তবুও ছোট প্রবস হতে পারে
কমপক্ষে এই ল্যাংয়ের সেরা সমাধানটি কেবলমাত্র কাঁচা ডেটা ¯ \ _ (ツ) _ / in তে লেখা নয় ¯
#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]
বর্তমান কক্ষটি স্থান নয় {বাম দিকে সরানো অবস্থায়, লুপটি কার্যকর করুন: (সেলটি নয় | স্ট্রিং ভেরিয়েবলের বর্তমান লেখ লিখুন (মনে রাখবেন পাই?), ইনক্রিমেন্ট স্ট্রিং পয়েন্টার, বাম দিকে সরানো), লুপটি কার্যকর করুন: (সেলটি যখন \, ডানদিকে সরান), উপরে সরান, বাম}