Gimbap कटर बनाओ

Question

गिंबप (imb) कोरियाई भोजन है, कुछ हद तक सुशी रोल की तरह दिखता है।

यहाँ कोरियाई इमोटिकॉन Gimbap का प्रतिनिधित्व करता है: @))))))))))

आपकी खोज ASCII Gimbap कटर है।

नियम

इनपुट केवल @और के साथ बनाया गया स्ट्रिंग है )।

आउटपुट हर वैध गिंबप के साथ कटौती करता है ), और फिर @उनके बीच जोड़ें । तो उदाहरण के @))लिए @) @)।

मान्य गिंबाप@ किसी भी राशि से शुरू होता है और उसके बाद होता है )।

यदि कोई मान्य Gimbap नहीं है, तो आउटपुट रिक्त है।

इनपुट और आउटपुट

Input | Output
@))))) | @) @) @) @) @)
@))))))) | @) @) @) @) @) @) @)
@))@))) | @) @) @) @) @)
@) | @)
)) | 
@ | 
@@)@@@))) | @) @) @) @)
@)@)@)) | @) @) @) @)
@@@)) | @) @)
))@) | @)

जीतने की स्थिति

यह कोड-गोल्फ है , इसलिए सबसे छोटा कोड जीतता है।

से सैंडबॉक्स

Comments

क्या नियम " इनपुट के @) हर एक के लिए उत्पादन की एक प्रति के बराबर है )जो उन लोगों को किसी से पहले नहीं गिन सकते हैं @? हमारे उत्पादन में एक "@) @) "

— ट्रैश

यह है। और आउटपुट में एक अनुगामी स्थान शामिल हो सकता है।

— लेगेंदुस्ट

क्या हमें स्पेस सीमांकित स्ट्रिंग का उत्पादन करना है या हम स्लाइस की एक सरणी का उत्पादन कर सकते हैं? इसके अलावा, क्या हम उन 2 पात्रों तक सीमित हैं या हम अपने चयन के किसी भी 2 वर्णों का उपयोग कर सकते हैं?

— शैगी

मेरा पहली बार शीर्षक पढ़ने की कोशिश कर रहा है, "जिम्प-बैट अव्यवस्था? क्या?"

— ड्रेको 18s

Answer 1

हास्केल , 32 बाइट्स

f(')':s)=f s
f s=do ')'<-s;"@) "

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

spanप्रारंभिक धड़कन को हटाने के लिए उपयोग करके पुनरावर्तन धड़कता है (।

हास्केल , 33 बाइट्स

f s=do ')'<-snd$span(<'@')s;"@) "

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

Answer 2

जावास्क्रिप्ट, 42 41 बाइट्स

s=>s.split(/(?<=@.*)\)/).fill``.join`@) `

यह ऑनलाइन की कोशिश करो!

Answer 3

सी (जीसीसी) , 53 बाइट्स

i;f(char*_){for(i=1;*_;!i&*_++&&printf("@) "))i&=*_;}

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

i;f(char*_){for(    *_;                      )      }   //loop over the string:
                i=1;   !i&                    i&=*_;    //skip leading `)`s
                       !i&*_++&&printf("@) ")           //and print "@) "for each `)` thereafter

Answer 4

जावास्क्रिप्ट (Node.js) , ⁴⁸ 47 बाइट्स

x=>"@) ".repeat(x.split(/(?<=@.*)\)/).length-1)

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

जावास्क्रिप्ट (Node.js) , ⁵³ 49 बाइट्स

x=>[...x].map(y=>y<"0"?m+=s&&"@) ":s=1,s=m="")&&m

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

जावास्क्रिप्ट (Node.js) , 60 बाइट्स

x=>x.replace(/(@?)(\)*)/g,(_,a,b)=>a&&b.replace(/./g,"@) "))

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

Answer 5

कैनवस , 10 9 बाइट्स

@ｓｊ∑Ｌ@) ×

यहाँ यह कोशिश करो!

Answer 6

रेटिना 0.8.2 , 14 बाइट्स

^\)+|@

\)
@) 

इसे ऑनलाइन आज़माएं! लिंक में परीक्षण मामले शामिल हैं। स्पष्टीकरण:

^\)+|@

प्रमुख )एस और सभी @एस हटाएं ।

\)
@) 

सभी को )s से बदलें @)। (नोट: अनुगामी स्थान।)

Answer 7

पायथन 2 , 39 बाइट्स

lambda s:'@) '*s.lstrip(')').count(')')

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

Answer 8

जेली , 8 बाइट्स

ṣṀḊẎ”@pK

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

-1 जोनाथन एलन को धन्यवाद ।

Answer 9

पर्ल 5 -p , 26 बाइट्स

$_=s/^.*?@//&&'@) 'x y/)//

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

Comments

24 बाइट्स

— 15:57

Answer 10

05AB1E , 12 बाइट्स

')Û'@KS'@ìðý

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

व्याख्या

')Û            # trim leading ")"
   '@K         # remove all "@"
      S        # split to list of characters
       '@ì     # prepend "@" to each
          ðý   # join on spaces

Answer 11

बैच, 58 बाइट्स

@set s=%1@
@set s=%s:*@=(%
@set s=%s:@=%
@echo%s:)=@) %

कमांड-लाइन पैरामीटर के रूप में इनपुट लेता है। स्पष्टीकरण:

@set s=%1@

@यदि कोई इनपुट शामिल नहीं है तो प्रत्यय ।

@set s=%s:*@=(%

पहले तक हटाएं @, इसे बदलने के लिए यह (सुनिश्चित करने के लिए कि स्ट्रिंग खाली नहीं है (क्योंकि %:%खाली स्ट्रिंग पर काम नहीं करता है)। (यह भी बनाता है echoकाम करता है, तो स्ट्रिंग के बाकी खाली है।

@set s=%s:@=%

किसी भी शेष को हटा दें @।

@echo%s:)=@) %

किसी भी शेष का विस्तार करें )।

Answer 12

05AB1E (विरासत) , 10 बाइट्स

Z¡¦JS'@ìðý

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

यह बग मुझे विरासत संस्करण का उपयोग करने के लिए मजबूर करता है। यह वर्तमान संस्करण 05AB1E (11 बाइट्स) के लिए कोड है:

'@¡¦JS'@ìðý

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

मेरे जैली जवाब का पोर्ट।

Answer 13

जाप v2.0a0 -S, 15 बाइट्स

r/^\)+|@/ ¬mi'@

कोशिश करो

r/^\)+|@/ ¬mi'@     :Implicit input of string
r                   :Remove
 /^\)+|@/           :  "@"s and leading ")"s
          ¬         :Split
           m        :Map
            i'@     :  Prepend "@"
                    :Implicit output, joined with spaces

विकल्प

e/^\)/ è\) Æ"@)

कोशिश करो

e/^\)/ è\) Æ"@)     :Implicit input of string
e                   :Recursively remove
 /^\)/              :  Leading ")"
       è\)          :Count remaining ")"s
           Æ        :Map the range [0,Count)
            "@)     :  Literal string
                    :Implicit output, joined with spaces

Answer 14

ब्रेनफक , 49 बाइट्स

,[[-<+>>++++<]>[[-]<<<[[.>]<---------.[-]]>[-]],]

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

Answer 15

जाप v2.0a0 -P, 15 बाइट्स

f/@\)+/ ËÅç"@) 

@ बग्घी के लिए 2 बाइट्स को सहेजा गया।

कोशिश करो

Comments

15 बाइट्स

— झबरा

@ शगुन थैंक्स, मैंने हाल ही में जाप में गोल्फ नहीं किया है

— को इग्नोरेंस

Answer 16

जेली , 12 बाइट्स

œl”)ḟ”@⁾@ jⱮ

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

Answer 17

पर्ल 6 , 34 बाइट्स

{~map {'@)'xx.chars-1},m:g/\@\)+/}

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

Answer 18

रूबी -p , 28 बाइट्स

$_= ~/@/&&'@) '*$'.count(?))

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

व्याख्या

                                # -p gets a line of STDIN
$_=                             # Set output to
    ~/@/                        # Find first '@' in input
                                # nil (falsey) if not found
        &&                      # If found, set output to
          '@) '                 # Sliced gimbap
               *                # Repeat
                $'              # In the string after the first '@',
                  .count(?))    # ... count the number of ')'
                                # -p outputs the contents of $_
                                # nil outputs as a blank string

Answer 19

जावा 10, 49 बाइट्स

s->s.replaceAll("^\\)+|@+","").replace(")","@) ")

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

Answer 20

sed , 30 बाइट्स

s/)\?@\()\?\)/\1/g; s/)/@) /gp

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

Comments

PPCG में आपका स्वागत है। दुर्भाग्य से, आपका कोड अग्रणी )एस और कई को @ठीक से संभाल नहीं सकता है। और, इसे ऑनलाइन कैसे आज़माएं ?

— LegenDUST

जैसा कि आप 5 वें या अंतिम उदाहरण में देख सकते हैं, अग्रणी )एस को नजरअंदाज करना होगा।

— लेगेंदुस्ट

@LegenDUST, आप सही हैं! यह इतना आसान नहीं था। मुझे लगता है कि काम करने का संस्करण बहुत बदसूरत है

— विसेंटा बोलिया

28 वर्ण: s / ^) * //; s / [^)] // g; s / / / @) / gp

— jnfnt

Answer 21

वोल्फ्राम लैंग्वेज (गणितज्ञ) , 91 90 85 71 70 59 57 बाइट्स

StringReplace@{(StartOfString~~")"..)|"@"->"",")"->"@) "}

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

Answer 22

अजगर , 20 बाइट्स

*?}\@z/>zxz\@\)0"@) 

इसे ऑनलाइन आज़माएं! ध्यान दें कि कार्यक्रम के अंत में एक अनुगामी स्थान है। यह एक (या बल्कि, शुरू किया गया) पायथन 2 उत्तर का एक सीधा अनुवाद है (हालांकि लेस्ट्रिप हिस्सा आश्चर्यजनक रूप से कठिन था)।

स्पष्टीकरण:

*            # repeat string
  ?          # repeat count: ternary
    }\@z     # condition: check whether input contains @
    /        # if condition is true: count occurrences of one string in another
      >      # array slice: all elements of array (or string) from a specific index and upwards
        z    # the thing to slice (input)
        xz\@ # the index first occurrence of \@ in z
      \)     # string to count occurrences of (\x is shorthand for "x")
    0        # value when ternary condition is false
  "@) "      # the string to be repeated (automatically terminated by end-of-line)

Answer 23

krrp , 63 बाइट्स

^":\L,^*':?#?E'E!-@1#!r'?=#!f'$64.-?*L$64.L$41.L$32.-@0#!r'.0".

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

---

व्याख्या

^":                   ~ take the string as a parameter named `"`
 \L                   ~ import the list module
 ,^*':                ~ apply a binary function
  ?#?E'               ~  if the string is empty,
   E                  ~   return the empty string; else
   !-@1#!r'           ~   define `-` as the cut Gimbap
   ?=#!f'$64.         ~    if an at sign is seen,
    -                 ~    return the cut Gimbap; else
    ?*                ~    if an at sign has been seen,
     L$64.L$41.L$32.- ~     return a Gimbap piece together
                      ~     with freshly cut Gimbap; else
     @0#!r'           ~     proceed to cut
 .0".                 ~ to zero and the above taken string

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

Answer 24

पॉवरशेल , 42 बाइट्स

''+($args|sls '(?<=@.*)\)'-a|% m*|%{'@)'})

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

unrolled:

$arrayOfCuttedGimbaps = $args|select-string '(?<=@.*)\)' -AllMatches|% Matches|%{'@)'}
''+($arrayOfCuttedGimbaps)    # toString and output