หากจำนวนเต็มมีตัวเลข / ลำดับของตัวเลขซึ่งทำซ้ำอย่างต่อเนื่อง (คุณจะเข้าใจว่าทำไมฉันถึงพูดว่า "ต่อเนื่อง") 5 ครั้งขึ้นไปเราเรียกมันว่า "น่าเบื่อ"

ตัวอย่างเช่น11111Boring 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.

ความจริงไม่ใช่ศูนย์และความเท็จเป็นศูนย์ ใช้การเข้ารหัส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();

ไชโยสำหรับ Java 8 lambdas! ผลตอบแทนtrueถ้าพบการแข่งขันและเป็นfalseอย่างอื่น

ลองออนไลน์! (Ideone)

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 ไบต์:

( -6 ไบต์ขอบคุณคำแนะนำจากMartin Ender ! )

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

ใช้ Expression ปกติเพื่อจับคู่ลำดับการซ้ำของอักขระทั้งหมดตราบใดที่พวกเขาทำซ้ำอย่างต่อเนื่อง 5 ครั้งขึ้นไป ส่งคืนreออบเจ็กต์การจับคู่ (เช่น<_sre.SRE_Match object; span=(0, 10), match='4242424242'>) หากพบว่าการจับคู่เป็นค่าจริงและไม่มีสิ่งใดหรือNoneเป็นค่าเท็จ

ลองออนไลน์! (Ideone)

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 ไบต์

1 ไบต์ต้องขอบคุณ Maltysen

เอสเอ็ม} * 5DQ .:
F} * 5TQ .:

ค่า Truthy เป็นอาร์เรย์ที่ไม่ว่างเปล่า

ค่า 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)

Mathematica, 46 40 36 ไบต์

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

ฟังก์ชัน สตริงเป็นอินพุทและเอาท์พุทหรือTrue Falseทดสอบสตริงกับนิพจน์a__~~a__~~a__~~a__~~a__ซึ่งแสดงถึงลำดับอักขระเดียวกันซ้ำ 5 ครั้ง สำหรับการอ้างอิงโซลูชันที่สั้นที่สุดที่ใช้ regex มีความยาว 45 ไบต์:

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

^{คุณสาปแช่ง Regular Expression!}

PHP, 37 33 ไบต์

ขอบคุณ NoOne ที่นี่ฉันลืมไปแล้ว <?=

โปรแกรมสำหรับ PHP <5.4, พิมพ์1สำหรับตัวเลขที่น่าเบื่อ, 0อื่น ๆ

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

การใช้งาน:

• ชุดregister_globals=1ในphp.iniสำหรับ PHP-cgi
  แล้วโทรphp-cgi <filename> n=<number>;echo""
• สำหรับ PHP> = 5.4 ให้แทนที่$nด้วย$_GET[n]

วิธีการแก้ปัญหาที่ไม่ regexp, 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)เพื่อการทดสอบหรืออาจวนซ้ำตลอดไป

Haskell, 80 (63?)

มันจะเป็น 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

Ungolfed:

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}"

ฉันไม่เคยเป็นผู้เชี่ยวชาญด้าน regex ดังนั้นให้เครดิตกับคำตอบอื่น ๆ

Clojure 24 ไบต์

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

ใช้ค่าเท็จของ clojure ของnil/ falseและค่าความจริงสำหรับทุกอย่างอื่น โดยเฉพาะอย่างยิ่งnilเมื่อไม่พบการแข่งขันที่เป็นเท็จและอาร์เรย์ที่[]เป็นจริงเมื่อพบการแข่งขันเช่นสำหรับ 11111 นั้น["11111" "1"]เป็นความจริง

JS ไม่มี regexes, 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'));