(Это мой первый вопрос по коду-гольфу)

Когда я был ребенком, мы с отцом изобрели игру, в которой номерной знак, который мы видим на автомобилях, может давать определенные очки на основе довольно простых правил:

X количество одинаковых букв или цифр дает X-1 баллов, примеры:

22 = 1 point
aa = 1 point
5555 = 3 points

Числа должны быть рядом друг с другом, поэтому 3353дает только 1 балл, так как 5 разрывает последовательность 3-х.

Последовательность чисел X в порядке возрастания или убывания, как минимум 3, дает X баллов, примеры:

123 = 3 points
9753 = 4 points
147 = 3 points

Система баллов работает только для однозначных чисел, поэтому 1919не дает баллов и 14710дает только 3, (147).

Последовательности могут быть объединены, чтобы получить больше очков, примеры:

1135 = 4 points (1 point for 11 and 3 points for 135)
34543 = 6 points (3 points for 345 and 3 points for 543)

Однако вам не разрешается разбивать большую последовательность на две меньшие последовательности для дополнительных очков: 1234 = 123, 234 (6 points)не допускается.

Ваша задача, учитывая последовательность, определить количество баллов, которые дает номерной знак.

В Дании номерные знаки имеют следующую структуру: CC II III, где C - символ, а I - целое число, и, следовательно, входные данные моего примера будут отражать эту структуру. Если вы хотите, вы можете настроить последовательность в соответствии со своей собственной структурой или, если вы чувствуете себя действительно предприимчивой, позволить программе проанализировать структуру номерного знака и, таким образом, заставить его работать с любым типом номерного знака по всему миру. Явно укажите структуру, которую вы решили использовать в своем ответе.

Вы можете принимать входные данные любым удобным для вас способом: строка или массив кажутся мне наиболее подходящими.

Тестовый ввод | выход:

AA 11 111 | 5
AB 15 436 | 3
OJ 82 645 | 0
UI 65 456 | 6
HH 45 670 | 5
YH 00 244 | 5
AJ 00 754 | 1

Из-за природы выбора вашей собственной структуры или даже охвата всех структур, я не обязательно вижу, как можно точно определить победителя. Я предполагаю, что победителем будут самые короткие байты в структуре, которую он определил. (И не принимайте такие данные, как CICIC, просто чтобы вам было проще)

РЕДАКТИРОВАТЬ:

Из-за комментариев, у меня есть несколько дополнительных фрагментов информации: последовательность возрастающих или убывающих чисел относится к арифметической последовательности, поэтому X +/- a * 0, X +/- a * 1, ... X +/- a * n и т. д. Так, например, 3-5-7 - это 3 + 2 * 0, 3 + 2 * 1, 3 + 2 * 2. Последовательность, однако, не должна начинаться с 0 и заканчиваться на 0.

БОЛЬШЕ РЕДАКТИРОВАТЬ:

Вы можете вводить данные любым удобным для вас способом, вам не нужно вводить пробелы, тире или любые другие вещи, которые делают номерной знак более читабельным. Если вы можете сохранять байты, принимая только заглавные буквы или что-то подобное, вы можете сделать это также. Единственное требование - ваша программа может взять строку / массив / что угодно, содержащее как символы, так и цифры, и вывести правильное количество точек в соответствии с указанными правилами.

05AB1E , 25 22 20 18 байт

Принимает строку строчных букв и цифр без пробелов.

Ç¥0Kγ€gXK>OIγ€g<OO

Попробуйте онлайн! или как тестовый набор

Шелуха , 20 16 15 байт

-1 байт благодаря @Zgarb

Принимает ввод без пробелов и в нижнем регистре.

ṁ??¬o→LεL←gẊ¤-c

Попробуйте онлайн!

объяснение

           Ẋ      Map over all adjacent pairs
            ¤-c   get the difference of their codepoints
          g       Split into groups of equal elements
ṁ                 Map then sum
 ?       ←          If the head of the list is truthy (not 0)
  ?    ε              If the length of the list is 1
   ¬                    return 0
                       Else
    o→L                 return the length + 1
                     Else
        L             return the length

Python 3 , 193 85 байт

-3 байта благодаря Линн

Принимает входные данные как байт-строку с прописными буквами , как: b'aa11111'.

def f(s):
 d=l=L=p=0
 for c in s:C=0!=d==c-l;p+=(c==l)+C*L;L=3>>C;d=c-l;l=c
 return p

Попробуйте онлайн!

Java 8, 195 байт

a->{int r=a[0]==a[1]?1:0,i=3,j,p=a[2],x,y,z;for(;i<7;p=a[i++])for(r+=(x=a[i])==p?1:0,j=-4;++j<4;r+=j==0?0:i<6&&p+j==x&x+j==(y=a[i+1])?++i<6&&y+j==(z=a[i+1])?++i<6&&z+j==a[i+1]?5:4:3:0);return r;}

Определенно можно играть в гольф, используя другую технику для проверки последовательности.

Объяснение:

Попробуй это здесь.

a->{                      // Method with character-array parameter and integer return-type
  int r=                  //  Result-integer
        a[0]==a[1]?       //   If the two letters are equal:
         1                //    Start this result-integer at 1
        :                 //   Else:
         0,               //    Start the result-integer at 0 instead
      i=3,j,              //  Index-integers
      p=a[2],x,y,z;       //  Temp integers
   for(;i<7;              //  Loop (1) from index 3 to 7 (exclusive)
       p=a[i++])          //    And after every iteration: Set `p` and raise `i` by 1
     for(r+=(x=a[i])==p?  //   If the current digit (now `x`) equals the previous `p`:
             1            //    Raise the result-integer by 1
            :             //   Else:
             0,           //    Keep the result-integer the same
         j=-4;++j<4;      //   Inner loop (2) from -3 to 3 (inclusive)
       r+=j==0?           //    If `j` is 0:
           0              //     Skip it, so keep the result-integer the same
          :i<6            //    Else-if `i` is not 6,
           &&p+j==x       //    and the previous digit `p` + `j` equals the current digit,
           &x+j==(y=a[i+1])?
                          //    and the current digit `x` + `j` equals the next digit `y`:
            ++            //     Raise index `i` by 1 first,
              i<6         //     and check if `i` is not 6 again,
              &&y+j==(z=a[i+1])?
                          //     and if the new current digit `y` + `j` equals the next digit `z`:
               ++         //      Raise index `i` by 1 first again,
                 i<6      //      and check if `i` is not 6 again,
                 &&z+j==a[i+1]?
                          //      and if the new current digit `z` + `j` equals the next digit:
                  5       //       Raise the result-integer by 5
                 :        //      Else:
                  4       //       Raise it by 4 instead
              :           //     Else:
               3          //      Raise it by 3 instead
           :              //    Else:
            0             //     Keep it the same
     );                   //   End of inner loop (2)
                          //  End of loop (1) (implicit / single-line body)
  return r;               //  Return the result-integer
}                         // End of method

Pyth ,  51  50 байт (шатается)

+/|R0.+QZslM.MlZ+kfTsmm?&!-K.+sMkhK.AKkY.:>Q2d}3 5

Проверьте все контрольные примеры или попробуйте здесь.

R , 153 , 145 , 143 байт

function(x){p=0;s=sum;if(x[1]==x[2])p=1;a=diff(strtoi(x[3:7]));p=p+s(a==0);l=sort(table(a[a!=0]),T);(p=p+s(l[(l[((s(l)>0)&(l[1]>1))]+1)>2]+1))}

Анонимная функция, которая принимает символьный вектор и возвращает целое число.
Ожидаемый вкладz(c("A", "A", "1", "1", "1", "1", "1"))

Попробуйте онлайн!

Неуправляемая версия

function(x){
  pnt <- 0; s <- sum
  if(x[1] == x[2]) pnt <- 1
  a <- diff(strtoi(x[3:7]))
  pnt <- pnt + s(a == 0)
  l <- sort(table(a[a!=0]), T)
  (pnt <- pnt + s(l[(l[((s(l) > 0) & (l[1] > 1))] + 1) > 2] + 1))
}

C (gcc) , 91 байт

f(p,r,d,D,s,l)char*p;{for(r=D=0;d=p[1]-*p,*++p;D=d){s=d&&d==D;r+=!d+s*l;l=3-2*s;}return r;}

Попробуйте онлайн!

Идея украдена у Фелипе Нарди Батисты в Python .

Pyth , 48 42 байта

Прямой порт из моего ответа Python. Принимает ввод в виде байтовой строки с строчными буквами как: b'aa11111 '.

Я впервые пишу на Pyth, поэтому любые советы приветствуются: D

KJ=b0VQ=d&KqK-NJ=+b+qNJ*dZ=Z-3yd=K-NJ=JN;b

Попробуй здесь

JavaScript, 216 192 186 202 201 байт

function f(s){var a=s.split(" "),c=a[1],a=a[0],r,h=b=i=p=0;for(i=0;i<4;i++){if(i<2&(r=a[i+1]-a[i]==a[i+2]-a[i+1])){p++;b=2}if(i>0){if(a[i]==a[i-1]){p++;h++}if(i<3&c[i]==c[i-1])p++}}return h==4?p+b:p-b}

Unminified

function f(s){
    var a=s.split(" "),c=a[1],a=a[0],r,h=b=i=p=0;
    for(i=0;i<4;i++){
        if(i<2&(r=a[i+1]-a[i]==a[i+2]-a[i+1])){
            p++;
            b=2
        }
        if(i>0){
            if(a[i]==a[i-1]){
                p++;
                h++;
            }
            if(i<3&c[i]==c[i-1]) 
                p++;
        }
    }

    return h==4?p+b:p-b
}

Редактировать историю:

• Сузили код, чтобы работать только с 0000 XXXформатом. (-24 байта)
• Редактирует в соответствии с предложением @Titus. (-6 байт)
• исправлена ​​ошибка, при которой четыре одинаковых числа давали оценку 7 вместо 3. (+16 байт)
• Удалена последняя точка с запятой. (-1 байт)
• Исправлена ​​опечатка в коде. (без изменения байтов)