अचार का एक बिट

Question

पायथन के अचार मॉड्यूल का उपयोग क्रमांकन के लिए किया जाता है, जिससे किसी वस्तु को इस तरह से डंप किया जा सकता है कि इसे बाद में फिर से संगठित किया जा सके। इसके लिए, अचार एक साधारण स्टैक-आधारित भाषा का उपयोग करता है।

चीजों को सरल रखने के लिए, हम इस भाषा के एक छोटे उपसमूह से निपटेंगे:

(              Push a mark to the stack
S'abc'\n       Push a string to the stack (here with contents 'abc')
l              Pop everything up to the last mark, wrapping all but the mark in a list
t              Pop everything up to the last mark, wrapping all but the mark in a tuple
.              Terminate the virtual machine

आपका कार्य भाषा के इस सबसेट को लागू करना है। ध्यान दें कि \nयहां एक शाब्दिक न्यूलाइन है, और न्यूलाइन्स वास्तव में भाषा के लिए महत्वपूर्ण हैं।

GolfScript या से परिचित भाषाओं CJam की तरह, उन लोगों के लिए (और l/tकरने के लिए इसी तरह काम करते हैं [और ]क्रमशः।

इनपुट

चीजों को सरल रखने के लिए, इनपुट हमेशा मान्य होगा। विशेष रूप से, आप इनपुट के बारे में निम्नलिखित मान सकते हैं:

• स्ट्रिंग्स में केवल लोअरकेस अक्षर और स्पेस शामिल होंगे [a-z ], और हमेशा सिंगल कोट्स का उपयोग करेंगे।
• कोई बाहरी वर्ण नहीं होगा, जिसमें सभी निर्देश ऊपर दिए गए हों। उदाहरण के लिए, इसका मतलब है कि नए किस्में केवल तार के बाद ही आएंगी।
• प्रत्येक l/tका (इससे पहले मिलान होता है और इसके बाद प्रत्येक (का मिलान l/tहोता है। कम से कम एक भी होगा (।
• बिल्कुल एक होगा ., और यह हमेशा अंतिम चरित्र होगा।

आप कमांड लाइन, STDIN या फ़ंक्शन तर्क के माध्यम से इनपुट ले सकते हैं। यदि आप चाहें, तो आप एक बहु-पंक्ति स्ट्रिंग के बजाय एक एकल न्यूलाइन-एस्केप स्ट्रिंग का उपयोग कर सकते हैं, लेकिन कृपया इसे अपने उत्तर में निर्दिष्ट करें।

उत्पादन

आउटपुट अंतिम ऑब्जेक्ट का प्रतिनिधित्व होना चाहिए, जिसे STDOUT में मुद्रित किया गया है या एक स्ट्रिंग के रूप में लौटाया गया है । विशेष रूप से:

• स्ट्रिंग को बीच में सामग्री के साथ एकल उद्धरण खोलने और बंद करने का प्रतिनिधित्व किया जाता है, जैसे S'abc' -> 'abc'। आप इस चुनौती के लिए दोहरे उद्धरण चिह्नों का उपयोग नहीं कर सकते, भले ही उन्हें पायथन में अनुमति दी गई हो।

• सूचियों को अल्पविराम से घिरे तत्वों [](जैसे ['a','b','c']) से दर्शाया गया है, जबकि टुपल्स अल्पविराम द्वारा अलग किए गए तत्वों से घिरे हुए हैं ()(जैसे ('a','b','c'))।

• रिक्त स्थान मायने नहीं रखते, उदाहरण के ('a', 'b', 'c' )लिए ठीक है।
• समापन कोष्ठक से पहले आपके पास अल्पविराम नहीं हो सकता। ध्यान दें कि यह जानबूझकर अलग-अलग भाषाओं के लिए चीजों को आसान बनाने के लिए पायथन सिंटैक्स नियमों से अलग है, और यह भी केवल पायथन में सूची / टपल बनाने के लिए कठिन बनाने के लिए, फिर इसे आउटपुट करें, इस कारण कि एकल-तत्व टपल का प्रतिनिधित्व कैसे किया जाता है। चुनौती, हमें ('a')विरोध के रूप में ('a',)) की आवश्यकता है।

उदाहरण

उपरोक्त पाठ कठिन लग सकता है, लेकिन निम्नलिखित उदाहरण चीजों को थोड़ा स्पष्ट करना चाहिए।

(l.

संभावित उत्पादन: []

(t.

संभावित उत्पादन: ()

(S'hello world'
l.

संभावित उत्पादन: ['hello world']

(S'string one'
S'string two'
S'string three'
t.

संभावित उत्पादन: ('string one', 'string two', 'string three')

(S'a'
(S'b'
S'c'
lt.

संभावित उत्पादन: ('a',['b','c'])

((S'a'
S'b'
(lS'c'
t(S'd'
tl.

संभावित उत्पादन: [('a', 'b', [], 'c'), ('d')]

((S'a'
((S'b'
t(S'c'
lS'd'
(((ltlS'e'
S'f'
lS'g'
tl.

संभावित उत्पादन: [('a',[('b'),['c'],'d',[([])],'e','f'],'g')]

नियम

• यह कोड-गोल्फ है , इसलिए सबसे कम बाइट्स में कोड जीतता है।
• पायथन अचार के साथ काम करने के लिए डिज़ाइन की गई किसी भी कार्यक्षमता की अनुमति नहीं है।

---

^{सुरक्षा नोट: वास्तविक कोड में, केवल उन स्रोतों से अप्रकाशित करें जिन पर आप भरोसा करते हैं, अन्यथा आपको एक बुरा cos\nsystem\n(S'rm -rf'\ntR.आश्चर्य मिल सकता है}

Comments

है S'abc'\nधक्का abcया 'abc'?

— कैलकुलेटर

Answer 1

CJam, 63

q{"Slt 1:T;L ]',*'[\+']+ ]',*'(\+')+ [
 0:T; C+"35/T=S/(C#=~}fC

इसे ऑनलाइन आज़माएं

स्पष्टीकरण:

q        read the input
{…}fC    for each character C in the input
  "…"    push that long string, containing code to handle various cases
  35/    split it into (two) parts of length 35
  T=     get the T'th part; T is 1 when parsing a string and 0 otherwise
          (T is initially 0 by default)
  S/     split by space into an array of strings
  (      take out the first item (containing special characters to check)
  C#     find the index of C in that string
  =      get the corresponding string from the array
          (when C is not found, # returns -1 which gets the last array item)
  ~      execute that string

अब कोड के विभिन्न टुकड़ों के साथ लंबी स्ट्रिंग। प्रत्येक भाग में जांच के लिए कुछ अक्षर होते हैं और फिर प्रत्येक को संभालने के लिए एक ब्लॉक और डिफ़ॉल्ट केस होता है।

पहला भाग: Slt 1:T;L ]',*'[\+']+ ]',*'(\+')+ [

Slt      special characters to check
######## first block, corresponding to character 'S'
1:T;     set T=1, causing the next characters to be processed with the 2nd part
L        push an empty string/array, which will be used to collect the string
######## second block, corresponding to character 'l'
]        end array
',*      join with commas
'[\+     prepend a '['
']+      append a ']'
######## third block, corresponding to character 't'
]        end array
',*      join with commas
'(\+     prepend a '('
')+      append a ')'
######## last block, corresponding to other characters (practically, '(' and '.')
[        start array

दूसरा भाग: (newline) 0:T; C+

newline  special characters to check (only one)
######## first block, corresponding to newline
0:T;     set T=0, switching back to the first part
######## last block, corresponding to any other character (including apostrophe)
C+       append the character to the collecting string

Answer 2

पर्ल, 149 बाइट्स

मुझे बुरा लग रहा है कि यह एक घटिया प्रयास है, लेकिन यहाँ जाता है:

$/=$,;$"=",";@s=[];/^\(/?$s[@s]=[]:{$p=/S(.*')/?$1:/l|t/?($l="@{pop@s}")|/l/?"[$l]":"($l)":0,push@{$s[-1]},$p}for<>=~/([(lt]|S.*?\n)/g;print$s[0][0];

स्क्रिप्ट को एक फाइल में सेव करना होता है और यह STDIN से इनपुट लेता है।

स्पष्टीकरण:

# Set the input record separator to undef so that <> reads all lines at
# once
$/=$,;
# Ensure that elements of lists printed in quotes are separated by commas
$"=",";

# The stack. Initialise the bottom element with an empty array
@s=[];

# Tokens are extracted in the for loop a few lines below. Copied here for
# clarity: Read the entire input and iterate over all valid tokens of the
# pickle language
# for <>=~/([(lt]|S.*?\n)/g;
# the token is a mark - push an empty array to the stack
/^\(/ ? $s[@s]=[]
      # token is a string, push it inside the stack top
      : {$p=/S(.*')/ ? $1
                     # otherwise, remove the top and create list or tuple
                     # from it and push it inside the top element
                     : /l|t/ ? ($l="@{pop@s}") | /l/ ? "[$l]"
                                                     : "($l)"
                             : 0 # dummy value
                             # pushing of the string/list/tuple actually
                             # happens here
                             , push@{$s[-1]},$p} 
# read the entire input at once and iterate over all valid tokens
for <>=~/([(lt]|S.*?\n)/g;

# in the end, the bottom element of the stack will be an array with just one
# element which is the string representation of the object
print$s[0][0];

Answer 3

> <>, 88 बाइट्स

^"][">}r]
~rl?!;o11.
^0\!\
 &</\?[1&~?=1l","
 1/\ii:"'"=?v44.
>i9%0$.     >r]i~


 ")("\

छलांग के साथ मज़ा! इस तथ्य का उपयोग करता है कि शामिल 5 मुख्य आदेशों के लिए ASCII कोड, mod 9, हैं:

S -> 2
l -> 0
t -> 8
( -> 4
. -> 1

यह प्रत्येक ऑपरेशन को अपनी लाइन पर नियंत्रित करने की अनुमति देता है, जो सीधे कूद जाएगा। इसके अलावा आवश्यक वर्णों में लपेटने से पहले प्रत्येक स्ट्रिंग और नेस्टेड सूची / ट्यूपल के निर्माण के लिए ढेर के ढेर का उपयोग करता है।

Comments

अच्छा काम है, लेकिन दुर्भाग्य से मुझे परीक्षण के अधिकांश मामलों के लिए सही आउटपुट नहीं मिल रहा है (ब्रैकेट एक चीज़ के लिए गलत तरीके से लगते हैं)

— Sp3000

Answer 4

जावास्क्रिप्ट (ईएस 6), 199 बाइट्स

s=>(q=x=>(o=[],x.slice(0,-1).map(v=>o=[...o,v.map?q(v):`'${v}'`]),x.pop()<"m"?`[${o}]`:`(${o})`),q(eval(s[r="replace"](/\(/g,"[")[r](/[tl](?![\w ]+'\n)/g,"'$&'],")[r](/S('.+')/g,"$1,").slice(0,-2))))

इनपुट पर कई रेगेक्स को वैध जेएस कोड में बदलने के लिए चलाता है, फिर उसको पार्स करता है।

टेस्ट स्निपेट

f=
s=>(q=x=>(o=[],x.slice(0,-1).map(v=>o=[...o,v.map?q(v):`'${v}'`]),x.pop()<"m"?`[${o}]`:`(${o})`),q(eval(s[r="replace"](/\(/g,"[")[r](/[tl](?![\w ]*'\n)/g,"'$&'],")[r](/S('.+')/g,"$1,").slice(0,-2))))

<select oninput="I.value=this.selectedIndex?this.value.replace(/\\n/g,'\n'):'';O.innerHTML=this.selectedIndex?f(I.value):''"><option>---Tests---<option>(l.<option>(t.</option><option>(S'hello world'\nl.<option>(S'string one'\nS'string two'\nS'string three'\nt.<option>(S'a'\n(S'b'\nS'c'\nlt.<option>((S'a'\nS'b'\n(lS'c'\nt(S'd'\ntl.<option>((S'a'\n((S'b'\nt(S'c'\nlS'd'\n(((ltlS'e'\nS'f'\nlS'g'\ntl.</select><br>
<textarea rows=10 cols=20 id=I></textarea><br><button onclick="O.innerHTML=f(I.value)">Run</button><br><pre id=O></pre>

Answer 5

जूलिया + ParserCombinator.jl 306 240

संशोधन के अपने नवीनतम सेट के साथ मुझे नहीं लगता कि शुद्ध जूलिया समाधान कम होगा।

using ParserCombinator
v=join
j(t)=v(t,",")
a=Delayed()
s=E"S'"+Star(p".")+Drop(Equal("'\n"))|>x->"'$(v(x))'"
i=Star(a)|E""
l=E"("+i+E"l"|>x->"[$(j(x))]"
t=E"("+i+E"t"|>x->"($(j(x)))"
a.matcher=s|l|t
f(x)=parse_one(x,a+E".")|>first

यह दिलचस्प था। मुझे लगता है कि कोडित काफी स्पष्ट है।

• आउटपुट स्वरूपण पीढ़ी पर किया जाता है
• a l, i, t, और sमूल रूप से नियमों CFG कर रहे हैं
• f यह कहा जाता है कि समारोह यह सब एक साथ लाता है।
• Drop(Equal("'\n"))कष्टप्रद है - कि आदर्श रूप में लिखा जाएगा E"\n"लेकिन Eस्ट्रिंग मैक्रो भागने दृश्यों को संभाल नहीं करता है।
• दिलचस्प है कि यह तुच्छ रूप से जूलिया डेटा-संरचनाओं को वापस करने के लिए परिवर्तित किया जा सकता है, यह मूल रूप से |>एस के आरएचएस पर परिवर्तनों को हटा रहा है और नियम के tupleलिए जोड़ रहा हैt

Comments

दुर्भाग्य से, हमारे सहायता केंद्र में नियमों के अनुसार , गोल्फ चुनौतियों को कोड करने के लिए समाधान पोस्ट करने के लिए गोल्फिंग की आवश्यकता है।

— डेनिस

मैं 100% नहीं हूँ, लेकिन मैं एक छोटा एक कर सकता हूँ। यह इस उद्देश्य के लिए तैयार किया गया है कि इस लैंगगेज / लाइब्रेरी संयोजन "जूलिया + पार्सरकॉम्बिनेटर.ज्ल" का उपयोग करके किसी भी समाधान को गोल्फ किया जा सकता है। लेकिन दूसरी तरफ, ठोस बदलाव है कि एक छोटा शुद्ध जूलिया समाधान है .... अब मुझे इसे लिखना होगा।

— लिंडन व्हाइट

आपको एक पूरी तरह से अलग समाधान लिखने की ज़रूरत नहीं है; आपके दृष्टिकोण से अधिकतम प्राप्त करना पर्याप्त है। कम से कम टिप्पणियों को हालांकि हटा दिया जाना चाहिए।

— डेनिस

मैंने बाइट-काउंट की ओर टिप्पणियों (या रिक्त लाइनों) की गणना नहीं की। मुझे लगा कि यह अधिवेशन था, मुझे लगता है कि मैंने गलत तरीके से सोचा

— लन्दन व्हाइट

हां, कोड पोस्ट के रूप में बनाया गया है । यद्यपि आप हमेशा एक ungolfed / एनोटेट संस्करण जोड़ सकते हैं।

— डेनिस