Recientemente recibió un teléfono nuevo, pero no le gusta la forma en que vibra, ha decidido que desea crear sus propios patrones de vibración. Entonces, has escrito un programa donde usaste las palabras clave long,short y pausehacer que su teléfono vibre de acuerdo con estas palabras clave.

Tarea

Crear un pequeño programa que acepta una cadena de long, shorty pausey da salida a otra cadena que representa el sonido fonético de un teléfono vibra;Rrrr - Rr

longlos sonidos son Rrrr
shortsonidos son Rr
(la carcasa importa)
pausees un guión -
todos los sonidos están delimitados por guión con espacios circundantes' - '

Casos de prueba

entrada:    long long short long short
salida:Rrrr - Rrrr - Rr - Rrrr - Rr

entrada:   long long long short short short
salida:Rrrr - Rrrr - Rrrr - Rr - Rr - Rr

entrada:   short short short pause short short short
salida:Rr - Rr - Rr - - - Rr - Rr - Rr

entrada:   long short short long long pause short short
salida:Rrrr - Rr - Rr - Rrrr - Rrrr - - - Rr - Rr

Esta es una pregunta de código de golf , por lo que las respuestas se puntuarán en bytes, ganando la menor cantidad de bytes.

Pyke , 22 20 bytes

cFh.o6.&\R*\-|l4)J" - 

Pruébalo aquí!

c                      -  split(input, " ")
 Fh.o6.&\R*\-|l4)      -  for i in ^:
  h                    -        ^[0]
   .o                  -       ord(^)
     6.&               -      ^ & 6
        \R*            -     ^
           \-|         -    ^ or "-"
              l4       -   ^.title()
                 J" -  - " - ".join(^)

El quid de esta respuesta es la transformación de ["long", "short", "pause"]en [4, 2, 0]. Obtiene el punto de código de la primera letra de cada palabra y ANDlo marca con 6. Por casualidad, se transforma en los valores que estamos buscando. (Busqué algunas otras soluciones más largas antes de encontrar esta). Una vez hecho esto, podemos transformar aún más esa lista de entradas ["RRRR", "RR", ""]multiplicando nuestro int por el "R"cual luego se convierte ["RRRR", "RR", "-"]y finalmente se convierte en una carcasa para obtener ["Rrrr", "Rr", "-"]. Luego nos unimos a la lista resultante por" - "

JavaScript, 70 63 bytes

2 bytes guardados gracias a Luke

a=>a.replace(/./g,a=>[['Rr','rr','-',' - ']['onp '.search(a)]])

Pruébalo en línea!

Haskell , 71 66 59 bytes

g 'o'="Rr"
g 'n'="rr"
g 'p'="-"
g ' '=" - "
g _=""
f=(g=<<)

Pruébalo en línea!

Oh cierto, =<<es concatMap.

Aprovecha el hecho de que "long"y "short"ambos tienen la carta o.

JavaScript (ES6), 65 59 bytes

s=>s.split` `.map(x=>x<'m'?'Rrrr':x<'q'?'-':'Rr').join` - `

let f =

s=>s.split` `.map(x=>x<'m'?'Rrrr':x<'q'?'-':'Rr').join` - `

console.log(f("long long short long short")); // => Rrrr - Rrrr - Rr - Rrrr - Rr
console.log(f("long long long short short short")); // => Rrrr - Rrrr - Rrrr - Rr - Rr - Rr
console.log(f("short short short pause short short short")); // => Rr - Rr - Rr - - - Rr - Rr - Rr
console.log(f("long short short long long pause short short")); // => Rrrr - Rr - Rr - Rrrr - Rrrr - - - Rr - Rr

05AB1E , 33 27 25 21 bytes

#εÇн6&'m×™'-)éθ}… - ý

Pruébalo en línea!

Explicación

#                       # split input on spaces
 ε             }        # apply to each
  Çн                    # get the character code of the head
    6&                  # AND with 6
      'm×               # repeat "m" this many times
         ™              # title case
          '-)           # wrap in a list with "-"
             éθ         # get the longest string       
                … - ý   # join to string using " - " as separator

Guardado 3 bytes usando el AND 6truco de la respuesta pyke de muddyfish

Python 2 , 76 69 64 bytes

lambda s:' - '.join('Rrrr'[:ord(b[0])&6]or'-'for b in s.split())

Pruébalo en línea!

Suplentes:

Python 2 , 76 69 bytes

lambda s:' - '.join(['Rrrr','-','Rr'][ord(b[1])%3]for b in s.split())

Pruébalo en línea!

Python 2 , 69 bytes

lambda s:' - '.join('-Rrrr'['o'in b:8-ord(b[1])%9]for b in s.split())

Pruébalo en línea!

Mathematica, 81 bytes

StringReplace[#,{"long"->"Bzzz -","short"->"Bz -","pause"->"- -"}]~StringDrop~-2&

Pruébalo en línea!

Retina , 31 29 bytes

1 byte guardado gracias a Dom Hastings
1 byte guardado gracias a Neil

[^lhp ]

l
hrr
h
Rr
p
-
 
 - 

Pruébalo en línea!

Este es un enfoque diferente a la respuesta de @ DomHastings .

Perl 5 , 39 bytes

Código de 37 bytes + 2 para -pa.

$_=join" - ",map/p/?"-":Bz.zz x/l/,@F

Pruébalo en línea!

R , 77 bytes

cat(c('Rrrr','Rr','-')[match(scan(,''),c('long','short','pause'))],sep=' - ')

Toma la entrada a través de STDIN, comprueba si la entrada coincide con long, shorto pausey intercambia los resultados para Rrrr, Rro- respectivamente.

Esto se imprime con -relleno con espacios como separador, haciendo coincidir la salida deseada.

Röda , 73 57 47 46 40 44 bytes

f&a{a~=*`s\w+|l;Rr;ong;rr;p\w+;-; ; - `/";"}

Pruébalo en línea!

+4 bytes debido al cambio de regla (debe usarse en Rrrrlugar de cualquier variante de 4 letras).

Código anterior:

{[[split()|["Bzzz"]if[_="long"]else["Bz"]if[_1="short"]else["-"]]&" - "]}

C (gcc) , 93 77 76 bytes

-2 bytes gracias a Scepheo!
-1 byte gracias a Cyoce!

Toma un ** carácter NULL terminado ** o equivalente como entrada.

f(char**a){for(;*a;*++a&&printf(" - "))printf(**a&6?**a&1?"Rr":"Rrrr":"-");}

Pruébalo en línea!

Explicaciones:

f(char**a){
  // While the string at the current position is not NULL
  for(;*a;
    // Advances the pointer to the next string
    // Then if the current string is not NULL, prints a delimiter
    *++a&&printf(" - ")
  )
    /* 
      If the 1st char of the string is not a 'p'
        If the 1st char is not a 'l'
          Prints "Rr"
        Else
          Prints "Rrrr"
      Else:
        Prints "-"
     */
    printf(**a&6?**a&1?"Rr":"Rrrr":"-");
}

R , 72 bytes

Toma datos de stdin, imprime en stdout.

cat(sapply(scan(,''),switch,long="vvvv",short="vv",pause="-"),sep=" - ")

Pruébalo en línea!

Lote, 88 bytes

@set/ps=
@set s=%s: = - %
@set s=%s:long=Rrrr%
@set s=%s:short=Rr%
@echo %s:pause=-%

Toma entrada en STDIN. Desafortunadamente, la sobrecarga del bucle cuesta 26 bytes, por lo que estos son reemplazos aburridos.

Retina , 31 bytes

short|l
Bz
ong
zz
pause
-
 
 - 

-1 byte gracias a @ fergusq !

Pruébalo en línea!

PHP, 113 bytes

<?$s=[];for($i=1;$i<$argc;$i++){$c=$argv[$i][0];$s[]=($c<'m')?'Rrrr':(($c<'q')?'-':'Rr');}echo implode(' - ',$s);

Pruébalo en línea!

Primer intento de golf de código, ¡así que probablemente haya muchas optimizaciones disponibles!

Vim (52 ​​bytes)

:s/long/Rrrr/ge|s/short/Rr/ge|s/pause/-/ge|s/ / - /gentrar

Probablemente se puede acortar ...

Excel, 100 bytes

=REPLACE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"long","- Bzzz"),"short","- Bz"),"pause","- -"),1,2,"")

Per examples, Input is SPACE separated string, as is output.

La pregunta en sí no menciona un SPACErequisito, lo que permite una solución de 97 bytes un poco más corta :

=REPLACE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"long","-Bzzz"),"short","-Bz"),"pause","--"),1,1,"")

AutoIt , 145 bytes

EXECUTE(STRINGREPLACE('MSGBOX(0,0,STRINGSTRIPWS(====INPUTBOX(0,0),"PAUSE",""),"LONG","Rrrr"),"SHORT","Rr")," "," - "),4))',"=","STRINGREPLACE("))

(Auto es realmente una mala elección para el golf de código, hice mi mejor esfuerzo para hacerlo lo más pequeño posible)

Alice , 37 bytes

/ lRnrhR
\""orgrp-""!yi'."?-e"ySNo?@/

Pruébalo en línea!

Explicación

Este programa realiza las siguientes sustituciones:

• l, h→R
• o, n, g→r
• p → -
• Espacio → espacio
• Todo lo demás → Nada

"longhp "!i.?eyN?"RrrrR- "y' " - "So@

"longhp "    Push this string
!            Immediately move to tape
i            Take input string
.            Duplicate
?ey          Remove all instances of the characters "longhp " from copy
N            Remove the remaining characters from the original, leaving only "longhp "
?"RrrrR- "y  Replace the characters in "longhp " with the corresponding characters in "RrrrR- "
' " - "S     Replace all spaces with " - "
o            Output
@            Terminate

Sed, 50 bytes

Toma entrada de stdin, imprime astdout

s/l\w*/Rrrr -/g
s/s\w*/Rr -/g
s/p\w*/- -/g
s/ -$//

Editar - guardado 2 bytes

Sed, 40 bytes

Copiando la idea de la respuesta de Nitrodon

s/[srtaue]//g
y/lhongp/RRrrr-/
s/ / - /g

Editar: guardado otros 2 bytes

Python 2, 69 bytes

lambda s:" - ".join((ord(i[0])&6)*"R"or"-"for i in s.split()).title()

Try it online!

Port of my Pyke answer

Paradoc (v0.2.10), 21 bytes (CP-1252)

Wμ‹6&'r\°"-":Ãu}« rTc

Try it online!

Takes a string on the stack and results in a string on the stack. Prepend i to turn into a full program that reads from STDIN.

Uses &6 like the Pyke answer and everybody else, but joins the tokens together slightly differently, by adding a "-" token after each noise, deleting the last one, and then joining these tokens by spaces. Seems to save a byte over joining by " - ".

Explanation:

W                     .. Break into words
 μ             }      .. Map over this block:
  ‹                   .. Take the first character
   6&                 .. Binary AND with 6, to get 4, 2, or 0
     'r               .. Character "r"
       \              .. Swap top two of stack
        °             .. Replicate, to get "rrrr", "rr", or ""
         "-"          .. Push string "-"
            :         .. Duplicate on stack
             Ã        .. Compute the max...
              u       .. ... underneath the top of the stack (so, of the
                      .. second and third elements on the stack, i.e. the
                      .. string of "r"s and "-")
                      .. The mappped block ends here; we now have
                      .. something like ["rrrr", "-", "-", "-", "rr", "-"]
                «     .. Take all but the last
                  r   .. Join with spaces (this built-in's name is two
                      .. characters, the first of which is a space)
                   Tc .. Title-case

v0.2.11 will support shaving two more bytes by replacing \° with x and "-" with '-.

SOGL V0.12, 28 bytes

θ{K;⁄5κ« r*; p=?X┌}}¹" - ”∑ū

Try it Here!

fun fact: if it was allowed to delimit with - or - it'd be a byte shorter

Ruby, 67 bytes

p ARGV[0].split(' ').map{|w|w<'m'?'Rrrr':w<'q'?'-':'Rr'}.join ' - '

This is Johan Karlsson's JavaScript solution ported to Ruby. If you like this answer, you should upvote Johan's answer.

The key idea is to compare the word strings 'short', etc. to a single character in order to distinguish between words.

| Word  | < 'm' | < 'q' | Output |
|-------|-------|-------|--------|
| short | false | false | 'Rr'   |
| long  | true  | N/A   | 'Rrrr' |
| pause | false | true  | '-'    |

Or, in alphabetical order:

• long
• m
• pause
• q
• short

Try it online!

Ruby, 78 bytes

p ARGV[0].chars.map{|c|{p:'-',o:'Rr',g:'rr',' '.to_sym=>' - '}[c.to_sym]}.join

The only important parts of the input are p, o, g, and space... ignore the rest.

• short becomes o
• long becomes og
• pause becomes p

Try it online!

V, 32 bytes

Í /ò
çl/CRrrr
ço/CRr
çp/-
HòJa- 

Try it online!

Python 3, 66 bytes

' - '.join(['Rrrr','-','Rr'][ord(s[1])%3]for s in input().split())

Try it online!