整数に連続して繰り返される数字/数字のシーケンスが含まれている場合（私が「連続的に」と言った理由は理解できます）、5回以上、「退屈」と呼びます。

たとえば、11111退屈ですが、そうで12345はありません。

説明書

入力として整数を取る

整数が退屈であれば真理値を出力し、整数が退屈でなければ偽値を出力します。

例

11111=> trueまたは1（1回5回繰り返す）

12345=> falseまたは0

1112111=> falseまたは0

4242424242=> trueまたは1（42回5回繰り返す）

-11111=> trueまたは1

3452514263534543543543543543876514264527473275=> trueまたは1（543回5回繰り返す）

他のタイプの「真」および「偽」を使用する場合は、それを指定します。

ルール

基本的なコードゴルフ規則が適用されます。

がんばろう！

05AB1E、8バイト

コード：

Œv¹y5×åO

説明：

Π        # Compute all substrings from the input.
 v        # For each substring.
   y5×    # Repeat the substring 5 times (42 × 5 = 4242424242).
  ¹   å   # Check if it's in the input string.
       O  # Sum up the result. Non-boring numbers should give 0.

Truthyはゼロではなく、falsyはゼロです。CP-1252エンコードを使用します。

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

網膜、9バイト

(.+)\1{4}

すべてのテストケースを確認してください！（すべてのテストケースを一度に実行するために少し変更されています。）

Java 8、52バイト

s->s.matches(".*(.+)\\1{4}.*")

Outgolfed 、このJava 8の答え、直接ではString#matches。

説明：

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

s->              // Method with String parameter and boolean return-type
  s.matches(     //  Return whether the entire String matches the following regex:
    ".*          //   0 or more leading characters
     (.+)\\1{4}  //   group of 1 or more characters, repeated 5 times
     .*")        //   0 or more trailing characters

Java 8、73 66バイト：

L->java.util.regex.Pattern.compile("(.+)\\1{4}").matcher(L).find();

Hooray for Java 8ラムダ！true一致が見つかった場合とfalseそうでない場合を返します。

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

Lua、35バイト

まあ、私はLuaのパターンをもっと良くする方法がわかりません！nil虚偽の場合の入力および出力としてコマンドライン引数を受け取り、真実のときに繰り返される数。

print((...):match("(%d+)%1%1%1%1"))

JavaScript、16バイト

node.js（60バイト）

process.stdin.on('data',t=>console.log(/(.+)\1{4}/.test(t)))

無駄トン入力/出力にバイトを。

JavaScript ES6（33バイト）

alert(/(.+)\1{4}/.test(prompt()))

再び入力/出力のバイトを無駄にします。

できれば、匿名関数として（22バイト）

n=>/(.+)\1{4}/.test(n)

またはさらに短い（16バイト）

/(.+)\1{4}/.test

間違いを指摘してくれた@BusinessCatに感謝します。

Pythonの3.5、49 43バイト：

（Martin Enderからのヒントのおかげで-6バイト！）

import re;lambda u:re.search(r'(.+)\1{4}',u)

正規表現を使用して、5回以上連続して繰り返される限り、すべての繰り返し文字シーケンスに一致します。一致が真の値として検出され、何もまたは偽の値として検出されない場合、re一致オブジェクト（など<_sre.SRE_Match object; span=(0, 10), match='4242424242'>）を返しますNone。

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

Perl、17 15バイト

$_=/(.+)\1{4}/

+ pフラグ。

（で実行perl -pe '$_=/(.+)\1{4}/'）

の(.+)代わりにDom Hastingに感謝し(\d+)ます。

必要に応じて説明： (.+)番号の任意の部分に一致し、\1{4}$連続して4回繰り返されるかどうかを検索します。

C＃-93 38バイト

s=>new Regex(@"(.+)\1{4}").IsMatch(s);

文字列を受け取り、整数を返します。

たくさんのバイトを節約してくれたaloisdgに感謝します！

Pyth、9 8バイト

Maltysenのおかげで1バイト。

sm} * 5dQ .:
f} * 5TQ .:

真の値は空ではない配列です。

偽の値は[]（空の配列）です。

テストスイート。

f}*5TQ.:   input as a string stored in Q
f}*5TQ.:Q  implicit arguments
        Q  input
      .:   all substrings of.
f   T      filter for this condition, keep those returning true:
  *5           repeat five times
 }   Q         in Q? (True/False)

Mathematica、46 40 36バイト

b=a__;StringContainsQ[b~~b~~b~~b~~b]

関数。入力および出力として文字列を受け取りますTrueまたはFalse。a__~~a__~~a__~~a__~~a__5回繰り返される同じ文字シーケンスを表す式に対して文字列をテストします。参考までに、正規表現を使用した最短のソリューションは45バイト長です。

StringContainsQ@RegularExpression@"(.+)\1{4}"

^{RegularExpressionを呪ってください！}

PHP、37 33バイト

NoOneIsHereのおかげで、私は忘れていました <?=

PHP <5.4のプログラム、1退屈な数字の印刷、0その他

<?=preg_match('/(.+)\1{4}/U',$n);

使用法：

• php-cgiに設定register_globals=1しphp.iniて
  から呼び出しますphp-cgi <filename> n=<number>;echo""
• PHP> = 5.4の場合は$n、$_GET[n]

非正規表現ソリューション、152 147 140バイト

<?for($e=$n+1;--$e;)for($f=$e;$f--;)for($a=str_split(substr($n,$f),$e),$k=$c='';strlen($v=array_pop($a));)$c-$v?$k=0&$c=$v:($k++<3?:die(1));

• 退屈な数字のために戻って終了コード1、そうでなければ0を
  置き換えるdie(1)とdie(print 1)し、追加echo 0;の代わりに印刷するには
• 上記と同じ使用法short_open_tags=1ですが、無効の場合も設定されます
• アウターループは、ゴルフで不合理な開始値を取得しました。テスト用に置き換え$n+1られます。ceil(strlen($n)/5)+1strlen($n)

ハスケル、80（63？）

importステートメントがない場合は63になります。

import Data.List
f x=or$tail[isInfixOf(concat$replicate 5 b)x|b<-subsequences x]

使用法

f "11111211"
f "11111"
f "12345" 
f "1112111"
f "4242424242"
f "-11111"
f "3452514263534543543543543543876514264527473275"

ちなみに、連続は連続よりも理にかなっています。

（すみません、まだコメントできません。）

MATLAB、26または13バイト

s=int2str(i);all(s==s(1))

これは整数変数「i」を取ります。文字列は最後の部分です。

all(s==s(1))

改行を文字としてカウントしました。

TSQL、151バイト

ゴルフ：

DECLARE @t varchar(99)='11111'

,@z bit=0,@a INT=1,@ INT=1WHILE @a<LEN(@t)SELECT @z=IIF(@t LIKE'%'+replicate(SUBSTRING(@t,@a,@),5)+'%',1,@z),@=IIF(@=20,1,@+1),@a+=IIF(@=1,1,0)PRINT @z

ゴルフをしていない：

DECLARE @t varchar(99)='11111'

,@z bit=0,
@a INT=1,
@ INT=1
WHILE @a<LEN(@t)
  SELECT
    @z=IIF(@t LIKE'%'+replicate(SUBSTRING(@t,@a,@),5)+'%',1,@z),
    @=IIF(@=20,1,@+1),
    @a+=IIF(@=1,1,0)

PRINT @z

フィドル

PowerShell、26バイト

$args[0]-match"(.+)\1{4}"

私は決して正規表現マスターではないので、そのための他の答えを信用してください。

Clojure、24バイト

#(re-find #"(.+)\1{4}"%)

clojureのfalseの値をnil/に使用し、false他のすべてにtrueの値を使用します。具体的にnilは、falseに一致するものが見つからない[]場合、11111のように一致する場合にtrueの配列["11111" "1"]はtrueです。

正規表現のないJS、166

b=s=>{for(let i=0;i<s.length-4;i++){for(let n=1;n<=Math.floor((s.length-i)/5);n++){if([1,2,3,4].every(k=>s.slice(i,i+n)==s.slice(i+n*k,i+n*(k+1))))return 1}}return 0}

非縮小：

// test any start pos, and length
var b = s => {
    for (let i = 0; i <= s.length - 5; i++) {
        for (let n = 1; n <= Math.floor((s.length - i) / 5); n++) {
            // test if s is boring at position i, with length n
            if ([1, 2, 3, 4].every(k => s.slice(i, i + n) === s.slice(i + n * k, i + n * (k + 1)))) {
                return 1;
            }
        }
    }
    return 0;
};

console.log(b('11111'));
console.log(b('12345'));
console.log(b('1112111'));
console.log(b('-11111'));
console.log(b('3452514263534543543543543543876514264527473275'));