정수가 연속적으로 반복되는 자릿수 / 자릿수의 자릿수를 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.

진실 은 0이 아니며 거짓 은 0입니다. CP-1252 인코딩을 사용합니다 .

온라인으로 사용해보십시오!

레티 나 , 9 바이트

(.+)\1{4}

모든 테스트 케이스를 확인하십시오! (모든 테스트 케이스를 한 번에 실행하도록 약간 수정했습니다.)

자바 8, 52 바이트

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

이 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

자바 8, 73 66 바이트 :

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

Java 8 람다를위한 Hooray! true일치하는 것이 있으면 반환 합니다 false.

온라인으로 사용해보십시오! (아이디어)

루아, 35 바이트

글쎄, 나는 루아의 패턴으로 더 잘하는 법을 모른다! nil잘못된 경우에 대한 입력 및 출력으로 명령 줄 인수를 사용하고 , 사실 일 때 반복되는 숫자를 사용합니다.

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

자바 스크립트, 16 바이트

node.js에서 (60 바이트)

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

소모성 톤 입력 / 출력에 바이트를.

자바 스크립트 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'>경기가 truthy 값, 아무것도 또는 발견되는 경우) Nonefalsey 값으로한다.

온라인으로 사용해보십시오! (아이디어)

펄, 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 .:

진실 값은 비어 있지 않은 배열입니다.

Falsey 값은 [](빈 배열)입니다.

테스트 스위트.

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)

매스 매 티카, 46 40 36 바이트

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

기능. 입력 및 출력으로서 얻어 문자열 True또는 False. a__~~a__~~a__~~a__~~a__5 번 반복되는 동일한 문자 시퀀스를 나타내는 expression에 대해 문자열을 테스트 합니다. 참고로 정규 표현식을 사용하는 가장 짧은 솔루션의 길이는 45 바이트입니다.

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

^{당신에게 RegularExpression을 저주하십시오!}

PHP, 37 33 바이트

NoOneIs 덕분에, 나는 잊었다 <?=

PHP <5.4을위한 프로그램, 인쇄 1번호를 지루를 들어, 0다른

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

용법:

• 설정 register_globals=1에서 php.iniPHP가 CGI에 대한은
  다음 전화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)+1또는 최소한으로 strlen($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}"

나는 결코 정규 표현식 마스터가 아니므로 다른 답변에 대한 신용도입니다.

클로저, 24 바이트

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

clojure의 잘못된 값 nil/ false및 다른 모든 값에 대한 진실 값을 사용합니다. 구체적으로, nilfalse와 일치하는 것이 없으면 []11111과 같이 일치하는 것이 있으면 true 의 배열 ["11111" "1"]이 참입니다.

정규 표현식이없는 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'));