김밥 은 한국 음식으로, 스시 롤처럼 보입니다.

한국어 이모티콘은 김밥을 나타냅니다. @))))))))))

당신의 임무는 ASCII 김밥 커터를 만드는 것입니다.

규칙

입력 단지로 만든 문자열 @과 ).

출력 은 모든 유효한 김밥을 잘라) 내고 그 @사이에 추가 합니다. 예 @))를 들어 @) @).

유효한 김밥 은 @모든 양으로 시작 )합니다.

유효한 김밥이 없으면 출력이 비어 있습니다.

입력과 출력

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

승리 조건

이것은 code-golf 이므로 가장 짧은 코드가 승리합니다.

에서 샌드 박스

하스켈 , 32 바이트

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

온라인으로 사용해보십시오!

재귀 span는 이니셜을 제거하는 데 사용 합니다 (.

하스켈 , 33 바이트

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

온라인으로 사용해보십시오!

자바 스크립트, 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

자바 스크립트 (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,"@) "))

온라인으로 사용해보십시오!

캔버스 , 10 9 바이트

@ｓｊ∑Ｌ@) ×

여기 사용해보십시오!

레티 나 0.8.2 , 14 바이트

^\)+|@

\)
@) 

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다. 설명:

^\)+|@

선두 삭제 )의 모든 @들.

\)
@) 

모든을 )s로 교체하십시오 @). (참고 : 후행 공간)

파이썬 2 , 39 바이트

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

온라인으로 사용해보십시오!

젤리 , 8 바이트

ṣṀḊẎ”@pK

온라인으로 사용해보십시오!

Jonathan Allan 에게 -1 감사합니다 .

펄 5 -p , 26 바이트

$_=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 -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

brainfuck , 49 바이트

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

온라인으로 사용해보십시오!

Japt v2.0a0 -P, 15 바이트

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

@Shaggy 덕분에 2 바이트를 절약했습니다.

시도 해봐

젤리 , 12 바이트

œl”)ḟ”@⁾@ jⱮ

온라인으로 사용해보십시오!

펄 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

자바 10, 49 바이트

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

온라인으로 사용해보십시오.

sed , 30 바이트

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

온라인으로 사용해보십시오!

Wolfram Language (Mathematica) , 91 90 85 71 70 59 57 바이트

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

온라인으로 사용해보십시오!

Pyth , 20 바이트

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

온라인으로 사용해보십시오! 프로그램의 끝에는 후행 공백이 있습니다. 이것은 파이썬 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