Gần đây bạn có một chiếc điện thoại mới, nhưng bạn không thích cách nó rung, bạn đã quyết định muốn tạo các kiểu rung của riêng mình. Vì vậy, bạn đã viết một chương trình mà bạn sử dụng các từ khóa long, shortvà pauseđể làm rung điện thoại của bạn theo các từ khóa này.

Bài tập

Tạo một chương trình nhỏ mà chấp nhận một chuỗi long, shortvà pausevà kết quả đầu ra một chuỗi đại diện cho thanh âm của một chiếc điện thoại rung;Rrrr - Rr

longâm thanh là Rrrr
shortâm thanh là Rr
(vấn đề vỏ)
pauselà một dấu gạch ngang -
tất cả các âm thanh được phân định bởi dấu gạch ngang với không gian xung quanh' - '

Các trường hợp thử nghiệm

đầu vào:    long long short long short
đầu ra:Rrrr - Rrrr - Rr - Rrrr - Rr

đầu vào:   long long long short short short
đầu ra:Rrrr - Rrrr - Rrrr - Rr - Rr - Rr

đầu vào:   short short short pause short short short
đầu ra:Rr - Rr - Rr - - - Rr - Rr - Rr

đầu vào:   long short short long long pause short short
đầu ra:Rrrr - Rr - Rr - Rrrr - Rrrr - - - Rr - Rr

Đây là một câu hỏi về môn đánh gôn, vì vậy các câu trả lời sẽ được tính theo byte, với số byte ít nhất sẽ giành chiến thắng.

Pyke , 22 20 byte

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

Hãy thử nó ở đây!

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

Mấu chốt của câu trả lời này là sự chuyển đổi ["long", "short", "pause"]thành [4, 2, 0]. Nó nhận được điểm mã của chữ cái đầu tiên của mỗi từ và ANDbằng 6. Với sự trùng hợp may mắn, nó biến đổi thành các giá trị mà chúng ta đang tìm kiếm. (Tôi đã tìm kiếm thông qua một vài giải pháp dài hơn khác trước khi tìm ra giải pháp này). Khi đã xong, chúng ta có thể chuyển đổi thêm danh sách ints đó ["RRRR", "RR", ""]bằng cách nhân int của chúng ta "R"sau đó biến thành ["RRRR", "RR", "-"]cuối cùng và đặt tiêu đề cho nó ["Rrrr", "Rr", "-"]. Sau đó chúng tôi tham gia danh sách kết quả bằng cách" - "

JavaScript, 70 63 byte

Lưu 2 byte nhờ Luke

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

Hãy thử trực tuyến!

Haskell , 71 66 59 byte

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

Hãy thử trực tuyến!

Oh đúng, =<<là concatMap.

Lợi dụng thực tế là "long"và "short"cả hai đều có thư o.

JavaScript (ES6), 65 59 byte

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 byte

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

Hãy thử trực tuyến!

Giải trình

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

Đã lưu 3 byte bằng cách sử dụng AND 6mẹo từ câu trả lời pyke của bùn

Python 2 , 76 69 64 byte

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

Hãy thử trực tuyến!

Người thay thế:

Python 2 , 76 69 byte

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

Hãy thử trực tuyến!

Python 2 , 69 byte

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

Hãy thử trực tuyến!

Toán học, 81 byte

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

Hãy thử trực tuyến!

Võng mạc , 31 29 byte

1 byte được lưu nhờ vào Dom Hastings Lưu
1 byte nhờ Neil

[^lhp ]

l
hrr
h
Rr
p
-
 
 - 

Hãy thử trực tuyến!

Đây là cách tiếp cận khác với câu trả lời của @ DomHastings .

Perl 5 , 39 byte

Mã 37 byte + 2 cho -pa.

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

Hãy thử trực tuyến!

R , 77 byte

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

Đưa đầu vào thông qua STDIN, kiểm tra xem các đầu vào phù hợp long, shorthoặc pausevà giao dịch hoán đổi các trận đấu cho Rrrr, Rrhoặc -tương ứng.

Điều này sau đó được in với phần -đệm với khoảng trắng dưới dạng dấu phân cách, khớp với đầu ra mong muốn.

Röda , 73 57 47 46 40 44 byte

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

Hãy thử trực tuyến!

+4 byte do thay đổi quy tắc (phải sử dụng Rrrrthay vì bất kỳ biến thể 4 chữ cái nào).

Mã trước:

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

C (gcc) , 93 77 76 byte

-2 byte nhờ Scepheo!
-1 byte nhờ Cyoce!

Làm cho NULL chấm dứt ** char hoặc tương đương làm đầu vào.

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

Hãy thử trực tuyến!

Giải thích:

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 byte

Đưa đầu vào từ stdin, in ra thiết bị xuất chuẩn.

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

Hãy thử trực tuyến!

Mẻ, 88 byte

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

Đưa đầu vào vào STDIN. Thật không may, chi phí vòng lặp là 26 byte nên đây chỉ là sự thay thế nhàm chán.

Võng mạc , 31 byte

short|l
Bz
ong
zz
pause
-
 
 - 

-1 byte nhờ @ fergusq !

Hãy thử trực tuyến!

PHP, 113 byte

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

Hãy thử trực tuyến!

Lần thử đầu tiên tại mã golf, vì vậy có lẽ rất nhiều tối ưu có sẵn!

Vim (52 ​​byte)

:s/long/Rrrr/ge|s/short/Rr/ge|s/pause/-/ge|s/ / - /gđi vào

Có thể rút ngắn lại ...

Excel, 100 byte

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

Mỗi ví dụ, đầu vào là SPACE chuỗi riêng biệt, như là đầu ra.

Bản thân câu hỏi không đề cập đến một SPACEyêu cầu, cho phép giải pháp 97 byte ngắn hơn một chút :

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

Tự động , 145 byte

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

(AutoIt thực sự là lựa chọn tồi cho môn đánh gôn, đã cố gắng hết sức để làm cho nó nhỏ nhất có thể)

Alice , 37 byte

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

Hãy thử trực tuyến!

Giải trình

Chương trình này thực hiện các thay thế sau:

• l, h→R
• o, n, g→r
• p → -
• Không gian → Không gian
• Mọi thứ khác → Không có gì

"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 byte

Đưa đầu vào từ stdin, in rastdout

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

Chỉnh sửa - đã lưu 2 byte

Sed, 40 byte

Sao chép ý tưởng từ câu trả lời của Nitrodon

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

Chỉnh sửa: đã lưu 2 byte khác

Python 2 , 69 byte

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

Hãy thử trực tuyến!

Câu trả lời của cảng Pyke của tôi

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

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

Hãy thử trực tuyến!

Lấy một chuỗi trên ngăn xếp và kết quả là một chuỗi trên ngăn xếp. Chuẩn bị iđể biến thành một chương trình đầy đủ đọc từ STDIN.

Sử dụng &6như câu trả lời Pyke và mọi người khác, nhưng kết hợp các mã thông báo với nhau một chút khác nhau, bằng cách thêm "-"mã thông báo sau mỗi tiếng ồn, xóa mã cuối cùng và sau đó nối các mã thông báo này bằng khoảng trắng. Có vẻ để tiết kiệm một byte hơn khi tham gia" - " .

Giải trình:

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 sẽ hỗ trợ cạo thêm hai byte bằng cách thay thế \°bằng xvà "-"bằng '-.

SOGL V0.12 , 28 byte

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

Hãy thử nó ở đây!

sự thật thú vị: nếu nó được phép phân định bằng - hoặc - nó sẽ ngắn hơn một byte

Ruby , 67 byte

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

Đây là giải pháp JavaScript của Johan Karlsson được chuyển đến Ruby. Nếu bạn thích câu trả lời này, bạn nên nêu lên câu trả lời của Johan.

Ý tưởng chính là so sánh các chuỗi từ 'short', v.v ... với một ký tự đơn để phân biệt giữa các từ.

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

Hoặc, theo thứ tự bảng chữ cái:

• Dài
• m
• tạm ngừng
• q
• ngắn

Hãy thử trực tuyến!

Ruby , 78 byte

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

Các bộ phận chỉ quan trọng của đầu vào là p, o, g, và không gian ... bỏ qua phần còn lại.

• short trở thành o
• long trở thành og
• pause trở thành p

Hãy thử trực tuyến!

V , 32 byte

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

Hãy thử trực tuyến!

Python 3 , 66 byte

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

Hãy thử trực tuyến!