4chanでは、人気のゲームが入手できます。サイト上のすべての投稿には、連続した投稿IDが付与されます。あなたはそれらに影響を与えたり決定したりすることはできないので、人々は自分の投稿番号（少なくとも一部）、通常は最初の数桁を推測しようとします。ゲームの別のバージョンはダブと呼ばれ、目標は数字の最後に数字を繰り返すことです（つまり、1234555）。

あなたの仕事は、あなたがそれを受け入れたいなら、入力として投稿IDを取り（標準整数、2 ^ 32以下と仮定できます）、最後に何桁の繰り返しがあるかを返すプログラムを書くことです。

ルール

• 標準的な抜け穴は許可されません。
• プログラムは、それを実行するために外部のカウントされていないコード/引数が必要ない限り、実際に機能するものであれば、関数、完全なプログラム、REPLコマンドでありえます。
• 入力は、STDIN、関数の引数、コマンドラインの引数、ファイルなど、あなたに合ったものから得ることができます。

テストケース

Input: 14892093
Output: 1

Input: 12344444
Output: 5

Input: 112311
Output: 2

Input: 888888
Output: 6

Input: 135866667 //Post number I got on /pol/ few days ago, rip
Output: 1

Mathematica、29バイト

算術解法はどうですか？

IntegerExponent[9#+#~Mod~10]&

これがMathematicaの単純なアプローチに勝ることを非常に嬉しく思います。

説明

コード自体は9 * n + n％10を計算し、入力を除算する最大の10の累乗を見つけます。つまり、末尾のゼロをカウントします。nがk個の繰り返し数字で終わる場合、9 * n + n％10にはk個の後続ゼロがあることを示す必要があります。

Rep-digitsは、99999（10 ⁵ -1）のような数値を9で除算し、繰り返し桁を掛けることで数学的に最も簡単に表現できます。我々は、書くことができるように、N = M * 10 ^K + D *（10 ^K -1）/ 9、M≢D（MOD 10） 、ことを保証するために、nがで終わっていないよりよりK繰り返さ桁。d = n％10であることに注意してください。

それを式9 * n + n％10にプラグインしましょう。我々は、取得9 * M * 10 ^K + D *（10 ^K -1）+ D。最後のdはキャンセルされるため、次のようになります：9 * m * 10 ^k + d * 10 ^k =（9 * m + d）* 10 ^k。しかし、9≡-1（mod 10）、したがって9 * m + d≡d-m（mod 10）です。しかし、m≢d（mod 10）であり、したがってd-m≢0 （mod 10）であると断言しました。

つまり、9 * m + dが10で割り切れないことを示したため、9 * n + n％10 =（9 * m + d）* 10 ^kを除算する10のべき乗はkであり、末尾の繰り返し数字の数。

ボーナスとして、このソリューションは、∞入力用に正しい結果を出力します0。

網膜、9バイト

&`(.)\1*$

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

重複する一致の数をカウントし(.)\1*$ます。一致する一致は、同じ文字のサフィックスに一致する正規表現です。

Brachylog、4バイト

ẹḅtl

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

説明

ẹ       Elements: split to a list of digits
 ḅ      Blocks: group consecutive equal digits into lists
  t     Tail: take the last list
   l    Length: Output is the length of that last list

ḅ整数に直接取り組んだ場合（そして、なぜそうするように実装しなかったのかわからない）、これは必要ないので3バイトだけẹです。

パイソン2、47の 41バイト

lambda s:len(`s`)-len(`s`.rstrip(`s%10`))

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

36バイト-より柔軟な入力用

lambda s:len(s)-len(s.rstrip(s[-1]))

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

Javascript（ES6）、55 52 32 30バイト

a=>a.match`(.)\\1*$`[0].length

• 保存された19は、正規表現を置き換えることにより、@MartinEnderのおかげでバイト
• タグ付きテンプレートリテラルを使用した@ user81655のおかげで2バイト節約

正規表現を使用して、最後の数字の最後のグループと一致させる

注：最初の投稿。発言することをheしないでください。

f=a=>a.match`(.)\\1*$`[0].length


console.log(f("14892093"));//1
console.log(f("12344444"));//5
console.log(f("112311"));//2
console.log(f("888888"));//6
console.log(f("135866667 "));//1

C、62 56 48 47バイト

@Steadyboxのおかげで1バイト節約できました！

j,k;f(n){for(k=j=n%10;j==n%10;n/=10,k++);k-=j;}

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

PHP、47 45 40バイト

while($argn[-++$i]==$argn[-1]);echo$i-1;

で実行 echo <n> | php -nR '<code>

ループは私の最初の答えよりもまだ小さいようです。最後に等しい文字を数えるだけです。これは、負の文字列オフセットを使用します PHP 7.1の。

-5バイトTitusによる。ありがとう！

古い答え：

<?=strlen($a=$argv[1])-strlen(chop($a,$a[-1]));

右端の文字に一致するすべての文字を右側から削除し、長さの差を計算します。

05AB1E、4バイト

.¡¤g

オンラインでお試しください！ またはとしてテストスイート

説明

.¡    # group consecutive equal elements in input
  ¤   # get the last group
   g  # push its length

CJam、7バイト

re`W=0=

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

説明

r   e# Read input.
e`  e# Run-length encode.
W=  e# Get last run.
0=  e# Get length.

ゼリー、5バイト

DŒgṪL

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

説明

D      # convert from integer to decimal   
 Œg    # group runs of equal elements
   Ṫ   # tail
    L  # length

Perl 5バイト

21バイトのコード+ -pフラグ。

/(.)\1*$/;$_=length$&

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

/(.)\1*$/最後の同一の番号を取得し、$_=length$&その長さを$_に割り当て-pます。これは、フラグのおかげで暗黙的に出力されます。

C（gcc）、32 29バイト

f(x){x=x%100%11?1:-~f(x/10);}

これは私のPython回答の移植版です。

これはgccで機能しますが、returnステートメントの欠如は未定義の動作です。

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

Python 2、51バイト

入力として整数を受け取ります。オンラインで試す

lambda S:[x==`S`[-1]for x in`S`[::-1]+'~'].index(0)

入力としての文字列に48バイト。オンラインで試す

lambda S:[x==S[-1]for x in S[::-1]+'~'].index(0)

C＃、63 62バイト

ゴルフ

i=>{int a=i.Length-1,b=a;while(a-->0&&i[a]==i[b]);return b-a;}

非ゴルフ

i => {
    int a = i.Length - 1,
        b = a;

    while( a-- > 0 && i[ a ] == i[ b ] );

    return b - a;
}

読みやすい

i => {
    int a = i.Length - 1, // Store the length of the input
        b = a ;           // Get the position of the last char

    // Cycle through the string from the right to the left
    //   while the current char is equal to the last char
    while( a-- > 0 && i[ a ] == i[ b ] );

    // Return the difference between the last position
    //   and the last occurrence of the same char
    return b - a;
}

完全なコード

using System;

namespace Namespace {
   class Program {
      static void Main( String[] args ) {
         Func<String, Int32> f = i => {
            int a = i.Length - 1, b = a;
            while( a-- > 0 && i[ a ] == i[ b ] );
            return b - a;
         };

         List<String>
            testCases = new List<String>() {
               "14892093",
               "12344444",
               "112311",
               "888888",
               "135866667"
            };

         foreach( String testCase in testCases ) {
            Console.WriteLine( $" Input: {testCase}\nOutput: {f( testCase )}\n" );
         }

         Console.ReadLine();
      }
   }
}

リリース

• v1.1 -- Kevinのコメントに- 1 byte 感謝します。
• v1.0の -  63 bytes-初期ソリューション。

ノート

追加するものはありません

パイソン2、38の、32バイト

f=lambda n:0<n%100%11or-~f(n/10)

6バイトを節約してくれた@xnorに感謝します！

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

MATL、6 5バイト

@Luisのおかげで1バイト節約

&Y'O)

MATL Onlineでお試しください

説明

        % Implicitly grab input as a string
&Y'     % Perform run-length encoding on the string but keep only the second output
        % Which is the number of successive times an element appeared
O)      % Grab the last element from this array
        % Implicitly display

Cubix、24 19バイト

)uO)ABq-!wpUp)W.@;;

注意

• 入力の最後に同じ文字がいくつあるかを実際に数えるので、これは本当に大きな整数と本当に長い文字列に対しても機能します（最後の同じ文字の量がJavaScriptの最大精度よりも小さい場合（ 10進数で約15桁）。
• 入力は入力フィールドに入り、出力は出力フィールドに出力されます

ここで試してみてください

説明

まず、キューブを展開しましょう

    ) u
    O )
A B q - ! w p U
p ) W . @ ; ; .
    . .
    . .

実行のステップは、3つのフェーズに分割できます。

1. 入力を解析する
2. 文字を比較する
3. 印刷結果

フェーズ1：入力

実行された最初の2つの文字があるAとB。Aすべての入力を読み取り、文字コードとしてスタックにプッシュします。これは逆に行われ、最初の文字がスタックの一番上になり、最後の文字がほぼ一番下になることに注意してください。一番下に、-1（EOF）が配置されます。これは、文字列の末尾にある連続した文字の量のカウンターとして使用されます。スタックの一番上に最後の2文字を含める必要があるため、ループに入る前にスタックを逆にします。スタックの上部は次のようになります..., C[n-1], C[n], -1。

キューブ上のIPの場所は、その場所であり、E右を向いています。まだ実行されていないすべての命令は、ノーオペレーション（フルストップ）に置き換えられました。

    . .
    . .
A B E . . . . .
. . . . . . . .
    . .
    . .

フェーズ2：文字の比較

スタックはです..., C[a-1], C[a], counter。ここcounterで、チェックする2つの文字（C[a]およびC[a-1]）が等しい場合に増分するカウンターです。IPは最初にSキャラクターでこのループに入り、右に移動します。E文字は、IP（右向き）してしまう位置であるC[a]とC[a-1]差し引くことを意味同じ値、持っていないC[a]からC[a-1]得られない0命令は、以下その場合に、!（あるスキップされますw）。

    . .
    . .
. S q - ! w E .
p ) W . . ; ; .
    . .
    . .

完全なループ中に実行される命令は次のとおりです。

q-!;;p) # Explanation
q       # Push counter to the bottom of the stack
        #     Stack (counter, ..., C[a-1], C[a])
 -      # Subtract C[a] from C[a-1], which is 0 if both are equal
        #     Stack (counter, ..., C[a-1], C[a], C[a-1]-C[a])
  !     # Leave the loop if C[a-1]-C[a] does not equal 0
   ;;   # Remove result of subtraction and C[a] from stack
        #     Stack (counter, ..., C[a-1])
     p  # Move the bottom of the stack to the top
        #     Stack (..., C[a-1], counter)
      ) # Increment the counter
        #     Stack (..., C[a-1], counter + 1)

そして、ループします。

フェーズ3：結果の印刷

ループを早期に終了したため、スタックは次のようになりますcounter, ..., C[a-1]-C[a]。これは、カウンターを印刷するのは簡単ですが、我々は我々がでカウントを開始したので、我々はもう一度、ループの最後の繰り返しでそれを行う、としなかったため、いったんカウンタをインクリメントしなければならない-1代わりに0。キューブのパスは、から始まりS、右を指すこのようになります。IPによって実行される2つのno-opは、IPの方向を指す矢印に置き換えられます。

    ) u
    O )
. B . . . S p U
. ) . . @ . . .
    > >
    . .

命令は次の順序で実行されます。B)最後の命令はスタックを変更しますが、プログラムを終了しようとしているため、プログラムには影響を与えず、スタックを使用しないことに注意してください。

p))OB)@ # Explanation
p       # Pull the counter to the top
        #     Stack: (..., counter)
 ))     # Add two
        #     Stack: (..., counter + 2)
   O    # Output as number
    B)  # Reverse the stack and increment the top
      @ # End the program

アレア・イクタ

バッチ、91バイト

@set s=-%1
@set n=1
:l
@if %s:~-2,1%==%s:~-1% set s=%s:~,-1%&set/an+=1&goto l
@echo %n%

これ-により、テストが文字列の先頭から実行されなくなります。

JavaScript（ES6）、34バイト

f=(n,p)=>n%10-p?0:1+f(n/10|0,n%10)

正規表現ソリューションよりも短くありません。

数字を右から左に評価し、別の数字に遭遇したときに停止する再帰関数。結果は、反復回数です。pはundefined最初の反復にあり、n%10-p戻り値NaN（偽）を意味します。その後p、前の数字とに等しくなりn%10ます。現在の数字（n%10）と前の数字（p）が異なる場合、ループは終了します。

ロダ、12バイト

{count|tail}

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

これは、入力文字列の各文字がストリームにプッシュされることを期待する匿名関数です（これは最近のメタ質問の精神で有効だと思います）。

これは、2つの組み込みコマンドを使用しますcountと、tail：

1. count ストリームから値を読み取り、連続する要素の数をストリームにプッシュします。
2. tail ストリームの最後の値を返します。

T-SQL、238 214バイト

declare @ varchar(max) = '' declare @i int=0, @e int=0, @n int=right(@,1), @m int while (@i<=len(@)) begin set @m=(substring(@,len(@)-@i,1)) if (@n=@m) set @e=@e+1 else if (@i=0) set @e=1 set @i=@i+1 end select @e

または：

declare @ varchar(max) = '12345678999999'
declare 
    @i int = 0,
    @e int = 0,
    @n int = right(@,1),
    @m int

while (@i <= len(@))
begin
    set @m = (substring(@,len(@)-@i,1))
    if (@n = @m) set @e = @e + 1
    else
    if (@i) = 0 set @e = 1
    set @i = @i + 1
end
select @e

Java 7、78バイト

int c(int n){return(""+n).length()-(""+n).replaceAll("(.)\\1*$","").length();}

ここで試してみてください。

再帰またはループを使用していくつかのことを試しましたが、両方とも100バイトを超えてしまいました。

Powershell、41バイト

for($n="$args";$n[-1]-eq$n[-++$a]){};$a-1

文字が文字列の最後の文字と一致しなくなるまで単純なループを逆方向にループし、その文字のインデックス-1を返します。

-3 @AdmBorkBorkに感謝-しばらくの代わりにforループを使用します。

Mathematica、33 30バイト

3バイトを節約してくれたGreg Martinに感謝します。

Tr[1^Last@Split@Characters@#]&

入力を文字列として受け取ります。

10進数字（文字の形式）を取得し、それらを同一の要素の実行に分割し、最後の実行を取得し、ベクトルの合計を取る標準の手法で長さを計算し1^listます。

Bash + Unixユーティリティ、34バイト

sed s/.*[^${1: -1}].//<<<x$1|wc -c

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

JavaScript（ES6）、39 38 37 27バイト

f=n=>n%100%11?1:1+f(n/10|0)

正規表現ベースのソリューションよりも短くないかもしれませんが、私は完全に算術に基づいたソリューションを書くことに抵抗できませんでした。この手法はn % 100 % 11、結果がゼロ以外になるまで繰り返し10で除算し、繰り返しをカウントすることです。これが機能するのは、最後の2桁が同じ場合n % 100 % 11はになるため0です。

Haskell、33バイト

f(h:t)=sum[1|all(==h)t]+f t
f _=0

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

文字列を入力します。最初の文字を繰り返し切り取り、接尾辞のすべての文字が最初の文字と等しい場合は1を追加します。

R、35バイト

rle(rev(charToRaw(scan(,''))))$l[1]

簡単な説明

                  scan(,'')         # get input as a string
        charToRaw(         )        # convert to a vector of raws (splits the string)
    rev(                    )       # reverse the vector
rle(                         )$l[1] # the first length from run length encoding

Befunge-98、19バイト

01g3j@.$~:01p-!j$1+

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

スタックのみを使用できた場合、これを短くすることができます。

使い方：

01g3j@.$~:01p-!j$1+
01g                 ; Get the stored value (default: 32)                 ;
   3j               ; Skip to the ~                                      ;
        ~           ; Get the next character of input                    ;
         :01p       ; Overwrite the stored value with the new char       ;
             -!     ; Compare the old value and the new                  ;
               j$   ; Skip the $ when equal, else pop the counter        ;
                 1+ ; Increment the counter                              ;

; When the input runs out, ~ reflects the IP and we run: ;
   @.$
     $              ; Pop the extraneous value (the stored value) ;
   @.               ; Print the number and exit                   ;

Python 3- 50 44バイト

完全なプログラム（Python 3ではinput()、入力に関係なく文字列を返します）：

g=input();print(len(g)-len(g.rstrip(g[-1])))