Ми всі звикли до старої школи клавіатури телефону, правда? Для довідки, ось як це виглядає:

Враховуючи рядок, що складається лише з малих букв ASCII та одинарних пробілів , ваше завдання полягає в тому, щоб повернути кількість дотиків, які слід зробити, щоб набрати повну рядок за допомогою клавіатури телефону, як вище.

Для тих, хто з цим незнайомий, ось як це працює:

• Наприклад, ключ із цифрою 2також містить рядок, abcзаписаний на ньому. Для введення aпотрібно натиснути цю клавішу один раз, оскільки bви повинні натиснути двічі, а для цього - cтричі.

• Для послідовних листів, які знаходяться на одній клавіші, потрібно почекати 1 секунду, перш ніж знову натиснути. Отже, якщо ви хочете ввести cb, потрібно натиснути 3 рази c, зачекати секунду, а потім натиснути двічі b, тому ще 5 натискань.

• Те саме стосується всіх інших клавіш, за винятком одного пробілу, на який потрібно лише 1 натискання. Також зауважте, що ключі 7і на 9них чотири літери. Застосовується той самий алгоритм, різниця лише в кількості букв. Рядки, що відповідають кожній клавіші, можна знайти на зображенні вище (але в нижньому регістрі) або в наступному списку, який містить усі символи, які ви можете отримати:

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

Випробування

Введення -> Вихід (Пояснення)

"" -> 0 (нічого не слід натискати)
"вода" -> 8 ("w, a, t" кожен потребує 1 крана (на клавішах 9, 2 і 8), "e" вимагає 2 крана (на клавіші 3), "r" вимагає 3 крана (на клавіші 7 ), 1 + 1 + 1 + 2 + 3 = 8)
"мило" -> 9 (4 + 3 + 1 + 1)
"кандела" -> 13 (3 + 1 + 2 + 1 + 2 + 3 + 1)
"кодовий гольф" -> 20 (3 + 3 + 1 + 2 + 1 (для місця) + 1 + 3 + 3 + 3)
"цар пагорба" -> 33 (2 + 3 + 2 + 1 + 1 + 3 + 3 + 1 + 1 + 2 + 2 + 1 + 2 + 3 + 3 + 3)

Технічні характеристики

• Застосовуються стандартні правила вводу / виводу та лазівки за замовчуванням.

• Ви можете брати дані лише в рідному типі String для вашої мови. Вихідним може бути ціле число або рядкове подання цього цілого числа.

• Це код-гольф , найкоротша відповідь на кожній мові виграє.

JavaScript (ES6) 77 66 64 60 байт

(Збережено кілька байт завдяки @Johan Karlsson та @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 байт

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

Спробуйте в Інтернеті!

Пояснення

ð¢                         # 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 байт

Використовується той же алгоритм, що і рішення Javascript @ RickHitchcock

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

Спробуйте в Інтернеті!

Python 3 , 69 67 65 64 байт

1 байт дякую містеру Xcoder.

1 байт завдяки Феліпе Нарді Батісті.

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

Спробуйте в Інтернеті!

Діалог APL, 37 байт

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

Спробуйте в Інтернеті!

Як?

Отримайте ⍳ndex кожного символу введення в рядку 'adgjmptw behknqux~cfilorvy~'( sі zбуде за замовчуванням 28), розділіть на 9, округніть і підсумовуйте.

JavaScript (ES6), 71 байт

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>

Не дивіться таблиць з літерами! Я не зовсім зрозумів формулу @ LeakyNun, тому придумав свою.

C, 211 196 байт

Перше подання тут ... виглядає досить тривалим, і я бачу, що це не ефективний підхід, але принаймні це працює :)

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;}

Негольована версія:

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 байт

Редагувати: видалено 3 байти за допомогою розуміння списку замість фільтра

Редагувати: Збережіть 9 байт завдяки Сиракузі, Лайконі та Згарбу!

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

Використання

λ> f "candela"
13
λ>

Спробуйте в Інтернеті!

Желе , 25 байт

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

Спробуйте в Інтернеті!

Clojure, 82 76 байт

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

О, це простіше просто filterі countніж використовувати frequencies. Оригінал:

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

Рядок кодує в скільки разів більше, ніж раз, коли потрібно натиснути клавішу для заданого символу :)

Python 3 , 91 байт

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

Спробуйте в Інтернеті!

Python 3 , 60 байт

Напевно, неоптимальне, оскільки це мій перший гольф на Питоні.

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

Спробуйте в Інтернеті!

Сітківка , 46 36 байт

Завдяки CalculatorFeline за збереження 6 байт.

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

Спробуйте в Інтернеті!

Java, 95 73 байт

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

Завдяки Кевіну Крейсейну за те, що він зробив функцію лямбда-виразом (де aє тип String). 95 байт стали 73 байти!

Лямбда-вираз підсумовує кількість натискань кожного символу за допомогою map(). map()перетворює кожен символ (ASCII в діапазоні сатиричного є 97-122) в потоці до відповідного значення (виглядає як проста пила хвиля, але , беручи до уваги як 4 циклу напружує) , використовуючи цю математику: 1+(b<64?0:b+(Math.abs(b-115)<4?4:5))%(3+b/112). Ось графік десмосу цієї моделі.

Математика, 83 байти

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

QBIC , 94 байти

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

Пояснення

[    |      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 байт

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

Спробуйте в Інтернеті!

Складає по одному знаку на рядок, транслітерує кожний новий рядок +, кожний пробіл 1і кожну букву з відповідною кількістю натискань. bc робить суму.

C, 92 88 байт

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 байт

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

Спробуйте в Інтернеті!

Знаходять моди-3 індексів в алфавіті без S і Z . Оскільки простір S і Z не знайдені, вони "мають" індекс 25 (на один більше, ніж максимальний індекс), що добре для простору. Тоді нам просто потрібно додати 3 для кожного S або Z .

{ анонімна функція, де аргумент представлений ⍵ :

 ⎕A~'SZ' верхній регістр A lphabet, за винятком S і Z

 819⌶ малі літери

 ⍵⍳⍨ в ɩ ndices аргументу в тому , що

 ¯1+ додати негативну

 3| мод-3

 1+ додати один (це перетворює всі 0-моди в 3)

 (… ), Доплата:

  ⍵∊'sz' Булевий, де аргумент або s, або z

  3× помножити на 3

 +/ сума

C (gcc) , 7577 байт

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

Недрукований рядок ""- це таблиця 04 01 02 03 01 02 03 04.

Спробуйте в Інтернеті!

Піп , 100 90 байт

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

Перевірте кожен символ введення на відповідність у кожному елементі b. Індекс цієї відповідності плюс 1 додається до загальної суми.

Спробуйте в Інтернеті!