คุณเพิ่งได้รับโทรศัพท์ใหม่ แต่คุณไม่ชอบวิธีที่มันสั่นสะเทือนคุณตัดสินใจที่จะสร้างรูปแบบการสั่นสะเทือนของคุณเอง ดังนั้นคุณได้เขียนโปรแกรมที่คุณใช้คำหลักที่long, shortและpauseเพื่อให้โทรศัพท์ของคุณสั่นตามคำหลักเหล่านี้

งาน

สร้างโปรแกรมขนาดเล็กที่ยอมรับสตริงของlong, shortและpauseและผลสตริงอื่นที่เป็นตัวแทนของเสียงการออกเสียงของโทรศัพท์สั่น;Rrrr - Rr

longเสียงเป็นRrrr
shortเสียงที่มีRr
(เรื่องปลอก)
pauseเป็นเส้นประ-
เสียงทั้งหมดจะถูกคั่นด้วยเส้นประที่มีช่องว่างโดยรอบ' - '

กรณีทดสอบ

อินพุต:    long long short long short
เอาต์พุต:Rrrr - Rrrr - Rr - Rrrr - Rr

อินพุต:   long long long short short short
เอาต์พุต:Rrrr - Rrrr - Rrrr - Rr - Rr - Rr

อินพุต:   short short short pause short short short
เอาต์พุต:Rr - Rr - Rr - - - Rr - Rr - Rr

อินพุต:   long short short long long pause short short
เอาต์พุต:Rrrr - Rr - Rr - Rrrr - Rrrr - - - Rr - Rr

นี่เป็นคำถามเกี่ยวกับรหัสกอล์ฟดังนั้นคำตอบจะได้คะแนนเป็นไบต์โดยมีจำนวนไบต์น้อยที่สุดที่ชนะ

Pyke , 22 20 ไบต์

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

ลองที่นี่!

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

ปมของคำตอบนี้คือการเปลี่ยนแปลงของเข้า["long", "short", "pause"] [4, 2, 0]มันจะได้รับรหัสจุดของตัวอักษรตัวแรกของแต่ละคำและANDด้วย 6 โดยบังเอิญโชคดีที่มันเปลี่ยนเป็นค่าที่เรากำลังมองหา (ฉันค้นหาวิธีแก้ปัญหาอื่น ๆ อีกต่อไปค่อนข้างน้อยก่อนที่จะค้นหาวิธีนี้) หลังจากที่ทำเรายังสามารถเปลี่ยนรายการ ints ที่เป็น["RRRR", "RR", ""]โดยการคูณ int ของเราโดย"R"ที่แล้วกลายเป็นและในที่สุดชื่อปลอกมันจะได้รับ["RRRR", "RR", "-"] ["Rrrr", "Rr", "-"]จากนั้นเราจะเข้าร่วมรายการผลลัพธ์โดย" - "

JavaScript, 70 63 ไบต์

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

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

ลองออนไลน์!

Haskell , 71 66 59 ไบต์

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

ลองออนไลน์!

โอ้ถูกต้องแล้ว=<<concatMap

ใช้ประโยชน์จากความจริงที่ว่า"long"และทั้งสองมีตัวอักษร"short"o

JavaScript (ES6), 65 59 ไบต์

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 ไบต์

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

ลองออนไลน์!

คำอธิบาย

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

บันทึก 3 ไบต์โดยใช้AND 6กลอุบายจากคำตอบ pyke ของ muddyfish

Python 2 , 76 69 64 ไบต์

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

ลองออนไลน์!

สลับ:

Python 2 , 76 69 bytes

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

ลองออนไลน์!

Python 2 , 69 ไบต์

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

ลองออนไลน์!

Mathematica, 81 ไบต์

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

ลองออนไลน์!

เรติน่า , 31 29 ไบต์

ขอบคุณ 1 ไบต์ที่บันทึกโดยDom Hastings
ขอบคุณที่Neilบันทึกไว้ 1 ไบต์

[^lhp ]

l
hrr
h
Rr
p
-
 
 - 

ลองออนไลน์!

นี่คือวิธีการที่แตกต่างกันกว่า @ DomHastings ของคำตอบ

Perl 5 , 39 ไบต์

37 รหัสไบต์ + -pa2

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

ลองออนไลน์!

R , 77 ไบต์

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

จะเข้าผ่าน STDIN ตรวจสอบว่าการป้อนข้อมูลที่ตรงกับlong, shortหรือpauseและแลกเปลี่ยนการแข่งขันสำหรับRrrr, Rrหรือ-ตามลำดับ

จากนั้นจะถูกพิมพ์ด้วย-เบาะที่มีช่องว่างเป็นตัวคั่นจับคู่เอาต์พุตที่ต้องการ

Röda , 73 57 47 46 40 44 ไบต์

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

ลองออนไลน์!

+4 ไบต์เนื่องจากการเปลี่ยนแปลงกฎ (ต้องใช้Rrrrแทนตัวอักษร 4 ตัวใด ๆ )

รหัสก่อนหน้า:

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

C (gcc) , 93 77 76 ไบต์

-2 ไบต์ขอบคุณ Scepheo!
-1 ไบต์ขอบคุณ Cyoce!

รับค่า NULL สิ้นสุด ** char หรือเทียบเท่าเป็นอินพุต

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

ลองออนไลน์!

คำอธิบาย:

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 ไบต์

รับอินพุตจาก stdin พิมพ์ไปยัง stdout

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

ลองออนไลน์!

แบตช์ 88 ไบต์

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

ใช้อินพุตบน STDIN น่าเสียดายที่ลูปโอเวอร์เฮดมีราคา 26 ไบต์ดังนั้นนี่เป็นเพียงการเปลี่ยนที่น่าเบื่อ

เรติน่า 31 ไบต์

short|l
Bz
ong
zz
pause
-
 
 - 

-1 ไบต์ต้องขอบคุณ @ fergusq !

ลองออนไลน์!

PHP, 113 bytes

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

Try it online!

First attempt at code golf, so probably a lot of optimisations available!

Vim (52 bytes)

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

Can probably be made shorter...

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.

Question itself does not mention a SPACE requirement, allowing for a slightly shorter 97 byte solution:

=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("))

(AutoIt is really bad choice for code golf, tried my best to make it small as possible)

Alice, 37 bytes

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

Try it online!

Explanation

This program makes the following substitutions:

• l, h → R
• o, n, g → r
• p → -
• Space → Space
• Everything else → Nothing

"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

Takes input from stdin, prints to stdout

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

Edit - saved 2 bytes

Sed, 40 bytes

Copying idea from Nitrodon's answer

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

Edit: saved another 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!