Hacer cortador de Gimbap

23

Gimbap (김밥) es comida coreana, de alguna manera parece un rollo de sushi.

Aquí está el emoticón coreano que representa Gimbap: @))))))))))

Su búsqueda es hacer el cortador ASCII Gimbap.

Regla

La entrada es una cadena hecha solo con @y ).

La salida corta cada Gimbap válido con ), y luego agrega @entre ellos. Así, por ejemplo, @))a @) @).

Gimbap válido comienza con @y seguido de cualquier cantidad de ).

Si no hay un Gimbap válido, la salida está en blanco.

Entrada y salida

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

Condición ganadora

Este es el código de golf , por lo que gana el código más corto.

code-golf ascii-art

— LegenDUST
fuente

2

¿Es la regla equivalente a "generar una copia de @) cada una )de las entradas sin contarlas antes que ninguna @? ¿Puede nuestra salida incluir un espacio final, como "@) @) "?

— xnor

Es. Y la salida puede incluir un espacio final.

— LegenDUST

¿Tenemos que generar una cadena delimitada por espacios o podemos generar una matriz de sectores? Además, ¿estamos limitados a esos 2 caracteres o podemos usar cualquiera de los 2 caracteres de nuestra elección?

— Shaggy

Mi primera vez tratando de leer el título, "¿Desorden de murciélagos? ¿Qué?"

— Draco18s

Respuestas:

10

Haskell , 32 bytes

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

Pruébalo en línea!

Recursion late usando spanpara eliminar las iniciales (.

Haskell , 33 bytes

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

Pruébalo en línea!

— xnor
fuente

7

JavaScript, 42 41 bytes

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

¡Pruébelo en línea!

— Lanudo
fuente

5

C (gcc) , 53 bytes

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

Pruébalo en línea!

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

— attinat
fuente

5

JavaScript (Node.js) , ⁴⁸ 47 bytes

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

Pruébalo en línea!

JavaScript (Node.js) , ⁵³ 49 bytes

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

Pruébalo en línea!

JavaScript (Node.js) , 60 bytes

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

Pruébalo en línea!

— Shieru Asakoto
fuente

5

Lienzo , 10 9 bytes

@ｓｊ∑Ｌ@) ×

Pruébalo aquí!

— dzaima
fuente

4

Retina 0.8.2 , 14 bytes

^\)+|@

\)
@)

Pruébalo en línea! El enlace incluye casos de prueba. Explicación:

^\)+|@

Eliminar los principales )s y todos los @s.

\)
@)

Reemplace todos los )s con @)s. (Nota: espacio final).

— Neil
fuente

3

Python 2 , 39 bytes

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

Pruébalo en línea!

— xnor
fuente

3

Jalea , 8 bytes

ṣṀḊẎ”@pK

Pruébalo en línea!

-1 gracias a Jonathan Allan .

— Erik el Outgolfer
fuente

2

Perl 5 `-p` , 26 bytes

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

Pruébalo en línea!

— Xcali
fuente

24 bytes

— wastl

2

05AB1E , 12 bytes

')Û'@KS'@ìðý

Pruébalo en línea!

Explicación

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

— Emigna
fuente

2

Lote, 58 bytes

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

Toma la entrada como un parámetro de línea de comando. Explicación:

@set s=%1@

Sufije un @en caso de que la entrada no contenga ninguno.

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

Elimine hasta el primero @, reemplazándolo con un (para asegurarse de que la cadena no esté vacía (porque %:%no funciona en cadenas vacías). El (también hace el echotrabajo si el resto de la cadena está vacía.

@set s=%s:@=%

Eliminar cualquier @s restante .

@echo%s:)=@) %

Expande cualquier )s.

— Neil
fuente

2

05AB1E (heredado) , 10 bytes

Z¡¦JS'@ìðý

Pruébalo en línea!

Este error me obliga a usar la versión heredada. Este es el código para la versión actual de 05AB1E (11 bytes):

'@¡¦JS'@ìðý

Pruébalo en línea!

Puerto de mi respuesta de gelatina.

— Erik el Outgolfer
fuente

2

Japt v2.0a0 `-S`, 15 bytes

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

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

Alternativa

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

— Lanudo
fuente

2

brainfuck , 49 bytes

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

Pruébalo en línea!

— Nitrodon
fuente

1

Japt v2.0a0 `-P`, 15 bytes

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

Guardado 2 bytes gracias a @Shaggy.

— Realización de la ignorancia
fuente

15 bytes

— Shaggy

@ Shaggy Gracias, no he jugado golf en Japt recientemente

— Encarnación de la ignorancia

1

Jalea , 12 bytes

œl”)ḟ”@⁾@ jⱮ

Pruébalo en línea!

— Nick Kennedy
fuente

1

Perl 6 , 34 bytes

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

Pruébalo en línea!

— bb94
fuente

1

Rubí `-p` , 28 bytes.

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

Pruébalo en línea!

Explicación

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

— Tinta de valor
fuente

1

Java 10, 49 bytes

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

Pruébalo en línea.

— Kevin Cruijssen
fuente

1

sed , 30 bytes

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

Pruébalo en línea!

— Vicente Bolea
fuente

Bienvenido a PPCG. Desafortunadamente, su código no puede manejar correctamente los principales )y múltiples @. Y, ¿qué hay de usar Probar en línea ?

— LegenDUST

1

Como puede ver en el quinto o último ejemplo, los )s principales deben ignorarse.

— LegenDUST

@LegenDUST, tienes razón! No fue tan fácil. Supongo que la versión de trabajo es mucho más fea

— Vicente Bolea

28 caracteres: s / ^) * //; s / [^)] // g; s /./@) / gp

— jnfnt

1

Wolfram Language (Mathematica) , 91 90 85 71 70 59 57 bytes

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

Pruébalo en línea!

— romano
fuente

1

Pyth , 20 bytes

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

Pruébalo en línea! Tenga en cuenta que hay un espacio final al final del programa. Esta es (o más bien, comenzó como) una traducción bastante directa de la respuesta de Python 2 (aunque la parte lstrip fue sorprendentemente difícil).

Explicación:

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

— randomdude999
fuente

1

krrp , 63 bytes

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

Pruébalo en línea!

Explicación

^":                   ~ 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

Pruébalo en línea!

— Jonathan Frech
fuente

1

PowerShell , 42 bytes

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

Pruébalo en línea!

Desenrollado:

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

— mazzy
fuente

Al usar nuestro sitio, usted reconoce que ha leído y comprende nuestra Política de Cookies y Política de Privacidad.

Licensed under cc by-sa 3.0 with attribution required.