ジンバップ（김밥）は韓国料理で、やや巻き寿司のように見えます。

韓国の顔文字はGimbapを表しています： @))))))))))

あなたの探求は、ASCII Gimbapカッターを作ることです。

ルール

入力はとのみ@で作成された文字列)です。

出力は、すべての有効なGimbapをでカットし)、 @それらの間に追加します。例えばそう@))に@) @)。

有効なGimbapはで始まり@、その後に任意の量が続き)ます。

有効なGimbapがない場合、出力は空白です。

入出力

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

勝利条件

これはcode-golfなので、最短のコードが優先されます。

サンドボックスから

Haskell、32バイト

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

オンラインでお試しください！

spanイニシャルを削除するために使用する再帰ビート(。

Haskell、33バイト

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

オンラインでお試しください！

JavaScript、42 41バイト

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

オンラインでお試しください！

C（gcc）、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

JavaScript（Node.js）、⁴⁸ 47バイト

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

オンラインでお試しください！

JavaScript（Node.js）、⁵³ 49バイト

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

オンラインでお試しください！

JavaScript（Node.js）、60バイト

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

オンラインでお試しください！

Canvas、10 9 バイト

@ｓｊ∑Ｌ@) ×

ここで試してみてください！

Retina 0.8.2、14バイト

^\)+|@

\)
@) 

オンラインでお試しください！リンクにはテストケースが含まれます。説明：

^\)+|@

先頭)のsとすべて@のsを削除します。

\)
@) 

すべて)のsを@)sに置き換えます。（注：末尾のスペース。）

Python 2、39バイト

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

オンラインでお試しください！

ゼリー、8バイト

ṣṀḊẎ”@pK

オンラインでお試しください！

-1 ジョナサンアランに感謝します。

Perl 5、26 -pバイト

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

オンラインでお試しください！

05AB1E、12バイト

')Û'@KS'@ìðý

オンラインでお試しください！

説明

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

バッチ、58バイト

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

入力をコマンドラインパラメーターとして受け取ります。説明：

@set s=%1@

@入力に何も含まれていない場合のサフィックス。

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

最初まで削除し、文字列が空でないことを確認するため@にそれを置き換え(ます（空の文字列では%:%機能しないため）。また、文字列の残りが空の場合に(も機能しますecho。

@set s=%s:@=%

残り@のを削除します。

@echo%s:)=@) %

残り)のを展開します。

05AB1E（レガシー）、10バイト

Z¡¦JS'@ìðý

オンラインでお試しください！

このバグにより、レガシーバージョンを使用せざるを得ません。これは、05AB1Eの現在のバージョンのコード（11バイト）です。

'@¡¦JS'@ìðý

オンラインでお試しください！

私のゼリーのポートの答え。

Japt v2.0a0、15 -Sバイト

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

brainfuck、49バイト

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

オンラインでお試しください！

Japt v2.0a0、15 -Pバイト

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

@Shaggyのおかげで2バイト節約されました。

それを試してみてください

ゼリー、12バイト

œl”)ḟ”@⁾@ jⱮ

オンラインでお試しください！

Perl 6、34バイト

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

オンラインでお試しください！

ルビー -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

Java 10、49バイト

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

オンラインでお試しください。

sed、30バイト

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

オンラインでお試しください！

Wolfram言語（Mathematica）、91 90 85 71 70 59 57バイト

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

オンラインでお試しください！

Pyth、20バイト

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

オンラインでお試しください！プログラムの最後に末尾のスペースがあることに注意してください。これは（または、むしろ、として開始された）Python 2の回答のかなり直接的な翻訳です（ただし、lstripの部分は驚くほど困難でした）。

説明：

*            # 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)

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

オンラインでお試しください！

PowerShell、42バイト

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

オンラインでお試しください！

展開：

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