최근에 새 휴대 전화를 받았지만 진동 방식이 마음에 들지 않으면 서 고유 한 진동 패턴을 생성하기로 결정했습니다. 그래서, 당신은 당신이 키워드를 사용하는 프로그램을 작성했습니다 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

이것은 코드 골프 질문이므로 답은 바이트 단위로 기록되며 가장 적은 바이트 수를 얻습니다.

파이크 , 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]. 그것은 각 단어의 첫 글자의 코드 포인트를 얻고 AND6으로 씁니다. 운이 우연의 일치로 우리가 찾고있는 값으로 변환합니다. (이 것을 찾기 전에 다른 몇 가지 더 긴 솔루션을 검색했습니다). 이 작업이 끝나면 int를 ["RRRR", "RR", ""]곱한 "R"다음 int 로 바꾸어 ["RRRR", "RR", "-"]제목 을 대입하여 해당 int 목록을 추가로 변환 할 수 ["Rrrr", "Rr", "-"]있습니다. 그런 다음 결과 목록에" - "

자바 스크립트, 70 63 바이트

Luke 덕분에 2 바이트 절약

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

온라인으로 사용해보십시오!

하스켈 , 71 66 59 바이트

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

온라인으로 사용해보십시오!

아 맞다 =<< concatMap이다.

그 사실을 활용 "long"하고 "short"둘 다 문자가 o.

자바 스크립트 (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

muddyfish의 pyke answer 의AND 6 트릭을 사용하여 3 바이트를 절약했습니다.

파이썬 2 , 76 69 64 바이트

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

온라인으로 사용해보십시오!

대안 :

파이썬 2 , 76 69 바이트

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

온라인으로 사용해보십시오!

파이썬 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 바이트

Dom Hastings 덕분에
1 바이트 절약 Neil 덕분에 1 바이트 절약

[^lhp ]

l
hrr
h
Rr
p
-
 
 - 

온라인으로 사용해보십시오!

이것은 @DomHastings의 답변 과 다른 접근법 입니다.

펄 5 , 39 바이트

37 바이트 코드 + 2 -pa.

$_=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또는- 각각.

그런 다음 -원하는 출력과 일치하는 공백으로 구분 기호 로 채워져 인쇄됩니다 .

로다 , 73 57 47 46 40 44 바이트

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

온라인으로 사용해보십시오!

규칙 변경으로 인해 +4 바이트 ( Rrrr4 자 변형 대신 사용해야 함 )

이전 코드 :

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

C (gcc) , 93 77 76 바이트

Scepheo 덕분에 -2 바이트!
Cyoce 덕분에 -1 바이트!

입력으로 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
-
 
 - 

@ fergusq 덕분에 -1 바이트 !

온라인으로 사용해보십시오!

PHP, 113 바이트

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

온라인으로 사용해보십시오!

코드 골프에 대한 첫 시도, 아마도 많은 최적화가 가능합니다!

Vim (52 ​​바이트)

:s/long/Rrrr/ge|s/short/Rr/ge|s/pause/-/ge|s/ / - /g시작하다

아마도 더 짧아 질 수 있습니다 ...

엑셀, 100 바이트

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

예를 들어, 입력 SPACE은 출력과 같이 문자열 로 분리됩니다.

질문 자체에는 SPACE요구 사항이 언급되어 있지 않으므로 97 바이트 솔루션 이 약간 짧아집니다 .

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

AutoIt , 145 바이트

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

(자동 코드 골프는 정말 나쁜 선택입니다. 가능한 한 작게 만들려고 최선을 다했습니다)

Alice , 37 바이트

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

온라인으로 사용해보십시오!

설명

이 프로그램은 다음을 대체합니다.

• l, h→R
• o, n, g→r
• p → -
• 우주 → 우주
• 그 밖의 모든 것 → 아무것도

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