Yakın zamanda yeni bir telefonunuz var, ancak titreşim şeklini pek sevmiyorsunuz, kendi titreşim desenlerinizi oluşturmak istediğinize karar verdiniz. Yani, anahtar kelimeler kullanılan bir program yazdım long, shortve pausebu anahtar kelimelere göre senin telefonun titremesini sağlamak için.

Görev

Bir dizi kabul eden bir küçük program oluşturun long, shortve pauseve titreşimli bir telefon fonetik sesini temsil eden başka bir dize verir;Rrrr - Rr

longsesler Rrrr
shortsesler Rr
(Muhafaza konuları)
pausebir çizgi, -
tüm sesler çevreleyen boşluklarla çizgi ile sınırlandırılır' - '

Test Durumları

girdi:    long long short long short
çıktı:Rrrr - Rrrr - Rr - Rrrr - Rr

girdi:   long long long short short short
çıktı:Rrrr - Rrrr - Rrrr - Rr - Rr - Rr

girdi:   short short short pause short short short
çıktı:Rr - Rr - Rr - - - Rr - Rr - Rr

girdi:   long short short long long pause short short
çıktı:Rrrr - Rr - Rr - Rrrr - Rrrr - - - Rr - Rr

Bu bir kod golf sorusudur, bu yüzden cevaplar en az bayt kazanarak bayt cinsinden puanlanır.

Pyke , 22 20 bayt

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

Burada deneyin!

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

Bu cevabın özü, ["long", "short", "pause"]haline dönüşmektir [4, 2, 0]. Her kelimenin ilk harfinin kod noktasını alır ve AND6 ile siler. Şanslı tesadüfle aradığımız değerlere dönüşür. (Bunu bulmadan önce birkaç başka çözüm aradım). Bu yapıldıktan sonra, int'ümüzü ["RRRR", "RR", ""]çarparak "R"ve daha sonra ["RRRR", "RR", "-"]elde etmek için başlık muhafazasını çarparak bu ints listesini daha da dönüştürebiliriz ["Rrrr", "Rr", "-"]. Ardından, sonuç listesine" - "

JavaScript, 70 63 bayt

Luke sayesinde 2 bayt kurtardı

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

Çevrimiçi deneyin!

Haskell , 71 66 59 bayt

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

Çevrimiçi deneyin!

Ah doğru, =<<concatMap.

Gerçeği yararlanır "long"ve "short"hem mektup var o.

JavaScript (ES6), 65 59 bayt

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 bayt

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

Çevrimiçi deneyin!

açıklama

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

Çamurlu balıkların pke cevabındakiAND 6 numarayı kullanarak 3 bayt kaydedildi

Python 2 , 76 69 64 bayt

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

Çevrimiçi deneyin!

alternatifler:

Python 2 , 76 69 bayt

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

Çevrimiçi deneyin!

Python 2 , 69 bayt

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

Çevrimiçi deneyin!

Mathematica, 81 bayt

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

Çevrimiçi deneyin!

Retina , 31 29 bayt

1 bayt sayesinde kaydedilen Dom Hastings
1 bayt sayesinde kaydedilen Neil

[^lhp ]

l
hrr
h
Rr
p
-
 
 - 

Çevrimiçi deneyin!

Bu DomHastings en @ farklı bir yaklaşımdır cevap .

Perl 5 , 39 bayt

37 bayt kodu + 2 için -pa.

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

Çevrimiçi deneyin!

R , 77 bayt

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

STDIN yoluyla girişi alır çekler girdi eşleşip long, shortya pauseve swap eşleşmelerinin Rrrr, Rrveya -sırasıyla.

Bu daha sonra -ayırıcı olarak boşluklarla dolgulu olarak istenen çıktıyla eşleşecek şekilde yazdırılır .

Röda , 73 57 47 46 40 44 bayt

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

Çevrimiçi deneyin!

Kural değişikliği nedeniyle +4 bayt ( Rrrr4 harfli değişken yerine kullanılmalıdır ).

Önceki kod:

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

C (gcc) , 93 77 76 bayt

Scepheo sayesinde -2 bayt!
-1 byte Cyoce sayesinde!

Giriş olarak NULL sonlandırılmış ** karakter veya eşdeğerini alır.

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

Çevrimiçi deneyin!

açıklamalar:

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 bayt

Stdin'den girdi alır, stdout'a yazdırır.

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

Çevrimiçi deneyin!

Toplu, 88 bayt

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

STDIN üzerine girdi alır. Ne yazık ki döngü genel maliyeti 26 bayt, bu yüzden bu sadece sıkıcı yedek.

Retina , 31 bayt

short|l
Bz
ong
zz
pause
-
 
 - 

@ Fergusq sayesinde -1 bayt !

Çevrimiçi deneyin!

PHP, 113 bayt

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

Çevrimiçi deneyin!

Kod golf ilk denemede, bu yüzden muhtemelen çok optimizasyon mevcut!

Vim (52 ​​bayt)

:s/long/Rrrr/ge|s/short/Rr/ge|s/pause/-/ge|s/ / - /ggiriş

Muhtemelen daha kısa yapılabilir ...

Excel, 100 bayt

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

Örnekler doğrultusunda, girdi SPACEçıktı olarak ayrılır dizedir.

Sorunun kendisi, SPACEbiraz daha kısa 97 bayt çözümüne izin veren bir gereksinimden bahsetmiyor :

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

Otomatik , 145 bayt

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

(AutoIt kod golf için gerçekten kötü bir seçimdir, mümkün olduğunca küçük yapmak için elimden geleni yaptım)

Alice , 37 bayt

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

Çevrimiçi deneyin!

açıklama

Bu program aşağıdaki ikameleri yapar:

• l, h→R
• o, n, g→r
• p → -
• Uzay → Uzay
• Diğer her şey → Hiçbir şey

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

'Den girdi alır stdin,stdout

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

Düzenle - 2 bayt kaydedildi

Sed, 40 bayt

Nitrodon'un cevabından fikir kopyalanıyor

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

Düzenle: 2 bayt daha kaydetti

Python 2 , 69 bayt

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

Çevrimiçi deneyin!

Pyke cevabımın limanı

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

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

Çevrimiçi deneyin!

Yığında bir dize alır ve yığında bir dize ile sonuçlanır. STDIN'den okunan itam bir programa dönüşmek için önce.

Pyke yanıtı ve herkes &6gibi kullanır , ancak her gürültüden sonra bir jeton ekleyerek , sonuncuyu silerek ve daha sonra bu jetonları boşluklarla birleştirerek jetonları biraz farklı bir şekilde birleştirir. Tarafından katılmak için bir bayt kaydetmek gibi görünüyor ."-"" - "

Açıklama:

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 değiştirerek, tıraş iki bayt destekleyecek \°olan xve "-"birlikte '-.

SOGL V0.12 , 28 bayt

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

Buradan Deneyin!

eğlenceli gerçek: sınırlandırılmasına izin verilirse - veya - bir bayt daha kısa olurdu

Ruby , 67 bayt

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

Bu, Johan Karlsson'un Ruby'ye taşınan JavaScript çözümüdür . Bu yanıtı beğendiyseniz, Johan'ın cevabını onaylamalısınız.

Anahtar fikir, 'short'sözcükleri ayırt etmek için kelime dizgilerini , vb. Tek bir karakterle karşılaştırmaktır.

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

Veya alfabetik sırayla:

• uzun
• m
• Duraklat
• q
• kısa

Çevrimiçi deneyin!

Ruby , 78 bayt

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

Girdinin sadece önemli parçalarıdır p, o, g, ve uzay ... gerisini görmezden.

• short olur o
• long olur og
• pause olur p

Çevrimiçi deneyin!

V , 32 bayt

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

Çevrimiçi deneyin!

Python 3 , 66 bayt

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

Çevrimiçi deneyin!