（これは私の最初のコードゴルフの質問です）

私が子供の頃、父と私は、車にあるナンバープレートがいくつかの単純なルールに基づいて特定のポイントを与えることができるゲームを発明しました。

同じ文字または数字のX個の量は、X-1ポイントを与えます。例：

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

数字は互いに隣り合っている必要があるため3353、5は3のシーケンスを中断するため、1ポイントしか与えません。

昇順または降順のX番号のシーケンス、最低3、Xポイントを与えます、例：

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

ポイントシステムは1桁の数字に対してのみ機能するため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)

ただし、追加のポイントのために、大きなシーケンスを2つの小さなシーケンスに分割する1234 = 123, 234 (6 points)ことは許可されていません：許可されていません。

タスクは、シーケンスが与えられ、ナンバープレートが与えるポイントの数を決定します。

デンマークでは、ナンバープレートは次のように構成されています。CCII 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バイト

@Zgarbのおかげで-1バイト

スペースなしで小文字で入力します。

ṁ??¬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バイト

Lynnのおかげで-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;}

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

フェリペ・ナルディ・バティスタのパイソン回答から盗まれたアイデア。

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}

未縮小

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バイト）
• 4つの同一の数字が3ではなく7のスコアを与えるバグを修正しました（+16バイト）
• 最後のセミコロンを削除しました。（-1バイト）
• コードの誤字を修正しました。（バイト変更なし）