Gimbap (김밥) เป็นอาหารเกาหลี, ดูเหมือนม้วนซูชิ

นี่คืออิโมติคอนเกาหลีแทน Gimbap: @))))))))))

ภารกิจของคุณคือทำให้ ASCII Gimbap เป็นตัวตัด

กฎ

ป้อนข้อมูลสตริงทำมีเพียงและ@)

เอาต์พุตจะตัด Gimbap ที่ถูกต้องทุกครั้งด้วย)และเพิ่ม @ระหว่างนั้น ดังนั้นสำหรับตัวอย่างการ@))@) @)

ที่ถูกต้อง Gimbapเริ่มต้นด้วยและตามด้วยจำนวนเงินใด@ ๆ)

หากไม่มี Gimbap ที่ถูกต้องเอาต์พุตจะว่างเปล่า

อินพุตและเอาต์พุต

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

สภาพการชนะ

นี่คือรหัส - กอล์ฟดังนั้นรหัสที่สั้นที่สุดจึงชนะ

จากsandbox

Haskell , 32 ไบต์

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

ลองออนไลน์!

recursion เต้นใช้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 ไบต์

@ｓｊ∑Ｌ@) ×

ลองที่นี่!

เรติน่า 0.8.2 , 14 ไบต์

^\)+|@

\)
@) 

ลองออนไลน์! ลิงค์มีกรณีทดสอบ คำอธิบาย:

^\)+|@

ลบชั้นนำ)และทุก@วินาที

\)
@) 

แทนที่ทั้งหมด)ด้วย@)s (หมายเหตุ: พื้นที่ต่อท้าย)

Python 2 , 39 ไบต์

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

ลองออนไลน์!

เยลลี่ขนาด 8 ไบต์

ṣṀḊẎ”@pK

ลองออนไลน์!

-1 ขอบคุณที่โจนาธานอัลลัน

Perl 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:*@=(%

ลบสูงสุดก่อน@แทนที่ด้วย a (เพื่อให้แน่ใจว่าสตริงไม่ว่างเปล่า (เพราะ%:%ไม่ทำงานบนสตริงว่าง) (ยังทำให้echoการทำงานถ้าส่วนที่เหลือของสตริงที่ว่างเปล่า

@set s=%s:@=%

ลบ@s ที่เหลืออยู่

@echo%s:)=@) %

ขยาย)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/@\)+/ ËÅç"@) 

บันทึก 2 ไบต์ขอบคุณ @Shaggy

ลองมัน

เยลลี่ 12 ไบต์

œl”)ḟ”@⁾@ jⱮ

ลองออนไลน์!

Perl 6 , 34 ไบต์

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

ลองออนไลน์!

Ruby -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