Wszyscy jesteśmy przyzwyczajeni do old-schoolowej klawiatury telefonu, prawda? W celach informacyjnych wygląda to tak:

Biorąc pod uwagę ciąg znaków składający się tylko z małych liter ASCII i pojedynczych spacji , Twoim zadaniem jest zwrócenie liczby naciśnięć, które należy wykonać, aby wpisać pełny ciąg za pomocą klawiatury telefonu, jak powyżej.

Dla tych, którzy nie są zaznajomieni z tym, oto jak to działa:

• Na przykład klucz z cyfrą 2ma również abczapisany ciąg znaków . Aby pisać a, musisz nacisnąć ten klawisz jeden raz, ponieważ bmusisz nacisnąć dwa razy, a także ctrzy razy.

• W przypadku kolejnych liter tego samego klawisza należy odczekać 1 sekundę przed ponownym naciśnięciem. Tak więc, jeśli chcesz pisać cb, musisz nacisnąć 3 razy c, poczekać sekundę, a następnie nacisnąć dwa razy b, aby nadal 5 dotknięć.

• To samo dotyczy wszystkich pozostałych klawiszy, z wyjątkiem pojedynczej spacji, która wymaga tylko 1 naciśnięcia. Należy również pamiętać, że klucze 7i 9mają na nich cztery litery. Zastosowano ten sam algorytm, a jedyną różnicą jest liczba liter. Ciągi odpowiadające każdemu kluczowi można znaleźć na obrazku powyżej (ale małymi literami) lub na poniższej liście, która zawiera wszystkie znaki, które możesz otrzymać:

  "abc", "def", "ghi", "jkl", "mno", "pqrs", "tuv", "wxyz", " "
  

Przypadki testowe

Wejście -> Wyjście (objaśnienie)

„” -> 0 (nic nie należy stukać)
„woda” -> 8 („w, a, t” każdy wymaga 1 dotknięcia (na klawiszach 9, 2 i 8), „e” wymaga 2 uderzeń (na klawiszu 3), „r” wymaga 3 uderzeń (na klawiszu 7 ), 1 + 1 + 1 + 2 + 3 = 8)
„mydło” -> 9 (4 + 3 + 1 + 1)
„candela” -> 13 (3 + 1 + 2 + 1 + 2 + 3 + 1)
„kod golfa” -> 20 (3 + 3 + 1 + 2 + 1 (dla miejsca) + 1 + 3 + 3 + 3)
„król wzgórza” -> 33 (2 + 3 + 2 + 1 + 1 + 3 + 3 + 1 + 1 + 2 + 2 + 1 + 2 + 3 + 3 + 3)

Okular

• Obowiązują standardowe reguły we / wy i domyślne luki.

• Możesz wprowadzać dane tylko w rodzimym typie łańcucha w swoim języku. Wyjściem może być liczba całkowita lub ciąg znaków reprezentujący tę liczbę całkowitą.

• To jest golf golfowy , wygrywa najkrótsza odpowiedź w każdym języku .

JavaScript (ES6) 77 66 64 60 bajtów

(Zapisano kilka bajtów dzięki @Johan Karlsson i @Arnauld).

s=>[...s].map(l=>s=~~s+2+'behknquxcfilorvysz'.search(l)/8)|s

f=

s=>[...s].map(l=>s=~~s+2+'behknquxcfilorvysz'.search(l)/8)|s

console.log(f(''));                 //0
console.log(f('water'));            //8
console.log(f('soap'));             //9
console.log(f('candela'));          //13
console.log(f('code golf'));        //20
console.log(f('king of the hill')); //33

05AB1E , 29 26 25 bajtów

ð¢svA•22ā₂•S£ð«øðδKy.åƶOO

Wypróbuj online!

Wyjaśnienie

ð¢                         # count spaces in input
  sv                       # for each char y in input
    A                      # push the lowercase alphabet
     •22ā₂•S               # push the base-10 digit list [3,3,3,3,3,4,3,4]
            £              # split the alphabet into pieces of these sizes
             ð«            # append a space to each
               ø           # transpose
                ðδK        # deep remove spaces
                   y.å     # check y for membership of each
                      ƶ    # lift each by their index in the list
                       O   # sum the list
                        O  # sum the stack

Python 2 , 56 bajtów

Używa tego samego algorytmu, co rozwiązanie Javascript @ RickHitchcock

lambda x:sum('behknquxcfilorvysz'.find(c)/8+2for c in x)

Wypróbuj online!

Python 3 , 69 67 65 64 bajtów

1 bajt dzięki Mr. Xcoder.

1 bajt dzięki Felipe Nardi Batista.

lambda x:sum((ord(i)+~(i>"s"))%3+3*(i in"sz")+(i>" ")for i in x)

Wypróbuj online!

Dyalog APL, 37 bajtów

+/⌈9÷⍨'adgjmptw behknqux~cfilorvy~'⍳⍞

Wypróbuj online!

W jaki sposób?

Uzyskaj ⍳ndex każdego znaku wejściowego w ciągu 'adgjmptw behknqux~cfilorvy~'( si zdomyślnie wyniesie 28), podziel przez 9, zaokrąglij w górę i zsumuj.

JavaScript (ES6), 71 bajtów

f=
s=>[...s].map(c=>t+=((c=parseInt(0+c,36))>23?c+3:c&&~-c%3)%7%4+1,t=0)|t

<input oninput=o.textContent=f(this.value)><pre id=o>

Nie szukaj tablic z literami! Nie do końca zrozumiałem formułę @ LeakyNun, więc wymyśliłem własną.

DO, 211 196 bajtów

Pierwsze zgłoszenie tutaj ... wygląda na dość długie i widzę, że nie jest to skuteczne podejście, ale przynajmniej działa :)

f(char*n){char*k=" abcdefghijklmnopqrstuvwxyz";int t[]={0,3,3,3,3,3,4,3,4};int l=0,s,j,i;while(*n){i=0;while(k[i]){if(k[i]==*n){s=0;for(j=0;s<i-t[j];s+=t[j++]);*n++;l+=(!i?1:i-s);}i++;}}return l;}

Wersja bez golfa:

int f(char *n){
  char *k=" abcdefghijklmnopqrstuvwxyz";
  int t[]={0,3,3,3,3,3,4,3,4};
  int l=0,s,j,i;
  while(*n){                          // loop through input characters
    i=0;
    while(k[i]){
      if(k[i]==*n){                   // find matching char in k
        s=0;
        for(j=0;s<i-t[j];s+=t[j++]);  // sum up the "key sizes" up to the key found
        *n++;
        l+=(!i?1:i-s);                // key presses are i-s except for space (1)
      }
      i++;
    }
  }
  return l;
}

Haskell - 74 71 62 bajtów

Edycja: usunąłem 3 bajty, używając zrozumienia listy zamiast filtru

Edycja: Zaoszczędź 9 bajtów dzięki Siracusa, Laikoni i Zgarb!

f=sum.(>>= \x->1:[1|y<-"bcceffhiikllnooqrrsssuvvxyyzzz",y==x])

Stosowanie

λ> f "candela"
13
λ>

Wypróbuj online!

Galaretka , 25 bajtów

Øaḟ⁾sz©;⁶s3Z®ṭċ@€€⁸×"J$ẎS

Wypróbuj online!

Clojure, 82 76 bajtów

#(apply +(for[c %](+(count(filter #{c}"bcceffhiikllnooqrrsssuvvxyyzzz"))1)))

Och, jest prostszy w użyciu filteri countniż w użyciu frequencies. Oryginalny:

#(apply +(count %)(for[c %](get(frequencies"bcceffhiikllnooqrrsssuvvxyyzzz")c 0)))

Ciąg koduje, ile razy więcej niż raz trzeba nacisnąć klawisz dla danego znaku :)

Python 3 , 91 bajtów

lambda x:sum(j.find(i)+1for j in' !abc!def!ghi!jkl!mno!pqrs!tuv!wxyz'.split('!')for i in x)

Wypróbuj online!

Python 3 , 60 bajtów

Prawdopodobnie nieoptymalny, ponieważ jest to mój pierwszy golf w Pythonie.

lambda x:sum((ord(i)-8)%3.15//1+3*(i>'y')+(i>' ')for i in x)

Wypróbuj online!

Siatkówka , 46 36 bajtów

Dzięki CalculatorFeline za oszczędność 6 bajtów.

s|z
,c
[cfilorvy]
,b
[behknqux]
,,
.

Wypróbuj online!

Java, 95 73 bajtów

a->a.chars().map(b->1+(b<64?0:b+(Math.abs(b-115)<4?4:5))%(3+b/112)).sum()

Podziękowania dla Kevina Cruijssena za uczynienie tej funkcji wyrażeniem lambda (gdzie ajest typu String). 95 bajtów stało się 73 bajtami!

Wyrażenie lambda podsumowuje liczbę naciśnięć każdego użytego znaku map(). map()konwertuje każdy znak (ASCII w dolnym zakresie sprawa jest 97-122) w strumieniu na odpowiednią wartość (wygląda jak prosty fali piły, ale biorąc pod uwagę zarówno 4 cykle to denerwujące) za pomocą tej matematyki: 1+(b<64?0:b+(Math.abs(b-115)<4?4:5))%(3+b/112). Oto wykres desmos tego modelu.

Mathematica, 83 bajty

c=Characters;Tr[Tr@Mod[c@"bc1def1ghi1jkl1mno1pqrstuv1wxyz "~Position~#,4]+1&/@c@#]&

QBIC , 94 bajty

[_l;||_SA,a,1|p=p-(instr(@sz`,B)>0)-(instr(@cfilorvy`+C,B)>0)-(instr(@behknqux`+C+D,B)>0)+1}?p

Wyjaśnienie

[    |      FOR a = 1 TO
 _l |         the length of
   ;            the input string (A$)
_SA,a,1|    Take the a'th char of A$ and assign it to B$
p=p         p is our tap-counter, and in each iteration it gets increased by the code below
            which consist of this pattern:
                instr(@xyz`,B)>0    where 
                - instr tests if arg 2 is in arg 1 (it either returns 0 or X where X is the index of a2 in a1)
                - @...` defines the letters we want to test as arg1
                - B is the current letter to count the taps for
            Each of these blocks adds 1 tap to the counter, and each block has the letters of its level
            (4-taps, 3-taps or 2-taps) and the level 'above' it.
    -(instr(@sz`,B)>0)              <-- letters that require 4 taps
    -(instr(@cfilorvy`+C,B)>0)      <-- 3 or 4 taps
    -(instr(@behknqux`+C+D,B)>0)    <-- 2, 3,or 4 taps
    +1                              <-- and always a 1-tap
}           NEXT
?p          PRINT the number of taps

Bash ,69 68 bajtów

bc<<<`fold -1|tr "\n "adgjmptwbehknquxcfilorvysz +[1*9][2*8][3*8]44`

Wypróbuj online!

Składa jeden znak w wierszu, transliteruje każdą nową linię, +każdą spację 1i każdą literę z odpowiednią liczbą naciśnięć. bc robi sumę.

C, 92 88 bajtów

c,n;f(char*s){n=0;while(c=*s++)n+=(c=='s')+3*(c>'y')+1+(c+1+(c<'s'))%3-(c<33);return n;}

APL (Dyalog) , 36 bajtów

{+/(3×⍵∊'sz'),1+3|¯1+⍵⍳⍨819⌶⎕A~'SZ'}

Wypróbuj online!

Znajdzie mod-3 wskaźniki alfabetu bez S i Z . Ponieważ nie znaleziono spacji, S i Z , mają one „indeks” 25 (jeden więcej niż indeks maksymalny), co jest dobre dla spacji. Następnie wystarczy dodać 3 dla każdego S lub Z .

{ funkcja anonimowa, w której argument jest reprezentowany przez ⍵ :

 ⎕A~'SZ' wielkie litery lphabet wyjątkiem S i Z.

 819⌶ małe litery

 ⍵⍳⍨ z ɩ ndices z argumentem, że

 ¯1+ dodaj jeden negatywny

 3| mod-3

 1+ dodaj jeden (konwertuje wszystkie 0-mody do 3)

 (… ), Poprzedzają:

  ⍵∊'sz' Boolean, gdzie argument to s lub z

  3× pomnóż przez 3

 +/ suma

C (gcc) , 7577 bajty

n,b;f(char*a){for(n=0;b=*a++;)n+=b<'s'?--b%3+(b>31):""[b-'s'];a=n;}

Ciąg niedrukowalny ""to tabela 04 01 02 03 01 02 03 04.

Wypróbuj online!

Pip , 100 90 bajtów

a:qb:["abc""def""ghi""jkl""mno""pqrs""tuv""wxyz"s]Fc,#a{Fd,#b{e:((bd)@?(ac))e<4?i+:e+1x}}i

Sprawdź, czy każdy znak wejściowy jest zgodny w każdym elemencie b. Indeks tego meczu plus 1 zostaje dodany do sumy.

Wypróbuj online!