あなたは最近新しい電話を手に入れましたが、それが振動する方法があまり好きではないので、独自の振動パターンを作成したいと決めました。だから、あなたはあなたがキーワードを使用するプログラムを書いて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]。各単語の最初の文字のコードポイントを取得し、6でそれを取得しますAND。幸運な偶然により、探している値に変換されます。（これを見つける前に、他のかなり長いソリューションを検索しました）。それが完了したら、さらにintを["RRRR", "RR", ""]掛けることでintのリストをさらに変換し、"R"それがに["RRRR", "RR", "-"]なり、最後にタイトルを取得して取得し["Rrrr", "Rr", "-"]ます。次に、結果のリストに参加します" - "

JavaScript、70 63バイト

Lukeのおかげで2バイト節約

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

muddyfishのpyke answer のAND 6トリックを使用して3バイトを保存しました

パイソン2、76の 69、64バイト

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

オンラインでお試しください！

代替：

Pythonの2、76の 69バイト

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バイトのおかげで保存されたドムヘイスティングス
1バイトのおかげで保存されたニール

[^lhp ]

l
hrr
h
Rr
p
-
 
 - 

オンラインでお試しください！

これは@DomHastingsの答えとは異なるアプローチです。

Perl 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バイト

-2バイトはScepheoのおかげです！
チョイスのおかげで-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入る

おそらく短くすることができます...

Excel、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("))

（AutoItはコードゴルフには本当に悪い選択です。できるだけ小さくするように最善を尽くしました）

アリス、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バイト

から入力を受け取りstdin、出力しますstdout

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

編集-2バイト保存

Sed、40バイト

ニトロドンの答えからアイデアをコピーする

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

編集：別の2バイトを保存しました

Python 2、69バイト

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

オンラインでお試しください！

私のパイクの答えのポート

Paradoc（v0.2.10）、21バイト（CP-1252）

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

オンラインでお試しください！

スタック上の文字列を取得し、スタック上の文字列になります。プリペンドiSTDINから読み取る完全なプログラムに変わるをします。

Pykeの回答や他の人と&6同じように使用しますが、各ノイズの後にトークンを追加し、最後のトークンを削除してからスペースでこれらのトークンを結合することにより、トークンをわずかに異なる方法で結合します。による結合でバイトを節約するようです。"-"" - "

説明：

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は\°、xと"-"で置き換えることにより、さらに2バイトのシェービングをサポートし'-ます。

SOGL V0.12、28のバイト

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

ここで試してみてください！

楽しい事実：で区切ることが許可されていた場合、 - または - それよりも短い場合

ルビー、67バイト

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

これは、Rubyに移植されたJohan KarlssonのJavaScriptソリューションです。この答えが気に入ったら、ヨハンの答えに賛成してください。

重要な考え方は、単語'short'を区別するために、単語列などを単一の文字と比較することです。

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

または、アルファベット順に：

• 長いです
• m
• 一時停止
• q
• ショート

オンラインでお試しください！

ルビー、78バイト

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

入力の唯一の重要な部分でありp、o、g、、スペース...残りの部分を無視します。

• short になる o
• long になる og
• pause になる p

オンラインでお試しください！

V、32バイト

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

オンラインでお試しください！

Python 3、66バイト

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

オンラインでお試しください！