ท้าทาย

repdigitเป็นจำนวนเต็มไม่ใช่เชิงลบที่มีตัวเลขเท่ากันทั้งหมด

สร้างฟังก์ชั่นหรือโปรแกรมที่สมบูรณ์ที่ใช้จำนวนเต็มเดียวเป็นอินพุทและเอาท์พุทค่าความจริงถ้าหมายเลขอินพุทเป็น repdigit ในฐาน 10 และค่าเท็จ

อินพุตรับประกันว่าจะเป็นจำนวนเต็มบวก

คุณอาจใช้และใช้อินพุตเป็นตัวแทนสตริงในฐาน 10 ด้วยการยกเว้นโทษ

กรณีทดสอบ

เหล่านี้คือ repdigits ต่ำกว่า 1,000 ทั้งหมด

1
2
3
4
5
6
7
8
9
11
22
33
44
55
66
77
88
99
111
222
333
444
555
666
777
888
999

รายการที่มีขนาดใหญ่สามารถพบได้ใน OEIS

การชนะ

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ ไม่ได้หมายความว่าคำตอบที่ฉลาดในภาษา verbose จะไม่ได้รับการต้อนรับ

Brachylogขนาด 1 ไบต์

=

ลองออนไลน์!

สิ่งนี้ทำหน้าที่เป็นจำนวนเต็ม

จากsrc/predicates.pl#L1151:

brachylog_equal('integer':0, 'integer':0, 'integer':0).
brachylog_equal('integer':0, 'integer':I, 'integer':I) :-
    H #\= 0,
    integer_value('integer':_:[H|T], I),
    brachylog_equal('integer':0, [H|T], [H|T]).

C (gcc) , 33 30 29 ไบต์

f(n){n=n%100%11?9/n:f(n/10);}

ลองออนไลน์!

COBOL , 139 BYTES

ฉันรู้สึกเหมือนภาษาโคบอลไม่ได้รับความรักในการเล่นกอล์ฟรหัส (อาจเป็นเพราะไม่มีทางชนะ) แต่ที่นี่ไป:

IF A = ALL '1' OR ALL '2' OR ALL '3' OR ALL '4' OR ALL '5' OR
ALL '6' OR ALL '7' OR ALL '8' OR ALL '9' DISPLAY "TRUE" ELSE   
DISPLAY "FALSE".

A หมายถึง PIC 9 (4)

05AB1E , 1 ไบต์

Ë

ตรวจสอบว่าตัวเลขทั้งหมดเท่ากัน

ลองออนไลน์!

Python 3, 25, 24 19 ไบต์

len({*input()})>1>t

A stdin => ตัวแปรรหัสข้อผิดพลาด

ส่งคืนรหัสข้อผิดพลาด 0 หากเป็น repdigit - หรือมีข้อผิดพลาดเกี่ยวกับความล้มเหลว

ขอบคุณเดนนิสที่ช่วยฉันในความคิดเห็น

Mathematica ขนาด 27 ไบต์

AtomQ@Log10[9#/#~Mod~10+1]&

มันไม่ได้ชนะEqual@@IntegerDigits@#&แต่มันก็ชนะการแก้ปัญหาทางคณิตศาสตร์ที่ใช้เลขคณิตอื่น ๆ

Repdigits อยู่ในรูปแบบn = d (10 ^m -1) / 9โดยmคือจำนวนหลักและdคือตัวเลขซ้ำ เราสามารถกู้คืนdจากnโดยใช้มันโมดูโล 10 (เพราะถ้ามันเป็นตัวแทนหลักมันหลักสุดท้ายจะเป็นd ) ดังนั้นเราสามารถจัดเรียงใหม่นี้เป็นm = log ₁₀ (9 n / (n% 10) + 1)และตรวจสอบว่าmเป็นจำนวนเต็มหรือไม่

Haskellขนาด 15 ไบต์

all=<<(==).head

ลองออนไลน์! รับอินพุตสตริง

\s->all(==head s)sเทียบเท่า เต้นทางเลือกอื่น ๆ อย่างหวุดหวิด:

f s=all(==s!!0)s
f s=s==(s!!0<$s)
f(h:t)=all(==h)t
f(h:t)=(h<$t)==t
f s=(s<*s)==(s*>s)
f(h:t)=h:t==t++[h]

C (gcc), 41 ไบต์

f(char*s){s=!s[strspn(s,s+strlen(s)-1)];}

นี่คือฟังก์ชันที่รับอินพุตเป็นสตริงและส่งคืน1หากเป็น repdigit และเป็น0อย่างอื่น

มันทำได้โดยการใช้ strspnฟังก์ชั่นซึ่งใช้เวลาสองสายและส่งกลับความยาวของคำนำหน้ายาวที่สุดของสตริงแรกประกอบด้วยตัวอักษรเท่านั้นจากสตริงที่สอง ในที่นี้สตริงแรกคืออินพุตและสตริงที่สองคือตัวเลขสุดท้ายของอินพุตที่ได้รับโดยการส่งตัวชี้ไปยังอักขระตัวสุดท้ายของสตริงอินพุต

iff การป้อนข้อมูลที่เป็น repdigit แล้วผลของการโทรเพื่อจะstrspn strlen(s)จากนั้นการจัดทำดัชนีsจะส่งคืนค่าว่างหากเป็นกรณีนี้ ( str[strlen(str)]เสมอ\0) หรือตัวเลขตัวแรกที่ไม่ตรงกับหลักสุดท้าย ลบล้างสิ่งนี้ด้วย!ผลลัพธ์ว่าsแสดงถึง repdigit

ลองออนไลน์!

ขอบคุณ @Dennis ที่เตือนฉันเกี่ยวกับกลอุบายที่มอบหมายแทนที่แทนที่จะกลับมาโดยอ้อมผ่านคำตอบที่น่าประทับใจของเขาประหยัดกว่า 4 ไบต์!

PHP, 25 28 25

<?=!chop($argn,$argn[0]);

ลบตัวอักษรทั้งหมดออกจากด้านขวาที่เท่ากับตัวแรกและพิมพ์1หากตัวอักษรทั้งหมดถูกลบ

R, 31 ไบต์

function(x)grepl("^(.)\\1*$",x)

ฟังก์ชันนี้ทำงานกับอินพุตสตริงและใช้นิพจน์ทั่วไปเพื่อพิจารณาว่าอินพุตเป็น repdigit หรือไม่

ตัวอย่าง

> f <- function(x)grepl("^(.)\\1*$",x)
> x <- c("1", "2", "11", "12", "100", "121", "333")
> f(x)
[1]  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE

/// , 110 ไบต์

/11/1//22/2//33/3//44/4//55/5//66/6//77/7//88/8//99/9//1/.//2/.//3/.//4/.//5/.//6/.//7/.//8/.//9/.//T..///.//T

ลองออนไลน์!

ภาษา /// ไม่มีแนวคิดของความจริงและเท็จดังนั้นผลลัพธ์นี้ "T" ถ้าอินพุตเป็น repdigit และจะไม่ส่งออกอักขระใด ๆ หากอินพุตไม่ใช่ repdigit

เจลลี่ , 2 1 ไบต์

E

ลองออนไลน์!

ระดับเสียงคู่ 11 ไบต์

@(s)s==s(1)

ลองออนไลน์!

รับอินพุตเป็นสตริง

มันจะตรวจสอบตัวละครทั้งหมดเพื่อความเท่าเทียมกันกับตัวละครตัวแรก หากทั้งหมดเท่ากันผลลัพธ์จะเป็นเวกเตอร์ที่มีเฉพาะ1(เป็นจริงในระดับแปดเสียง) มิฉะนั้นจะมีอย่างน้อยหนึ่ง0(เป็นเท็จในระดับแปดเสียง) นี่เป็นหลักฐาน

grep, 17 ไบต์

grep -xP '(.)\1*'

จับคู่สตริงใด ๆ ที่ซ้ำซ้อนของอักขระตัวแรก

C #, 42 33 28 ไบต์

i=>i.Replace(i[0]+"","")==""

i จะต้องมีสตริง

ขอบคุณมากกับ @LethalCoder

Braingolfขนาด 6 ไบต์

iul1-n

ลองออนไลน์!

น่าเสียดายที่ Braingolf ของอินพุตจาก implline commandline args ไม่สามารถรับอินพุตทุกหลักเป็นสตริงมันจะส่งไปที่ตัวเลขเสมอดังนั้นวิธีแก้ปัญหาคือการส่งผ่าน STDIN ซึ่งเพิ่ม 1 ไบต์สำหรับการอ่าน STDIN ( i)

คำอธิบาย:

iul1-n
i       Read from STDIN as string, push each codepoint to stack
 u      Remove duplicates from stack
  l     Push length of stack
   1-   Subtract 1
     n  Boolean negate, replace each item on stack with 1 if it is a python falsey value
        replace each item on stack with 0 if it is a python truthy value
        Implicit output of last item on stack

หลังจากที่uความยาวของสแต็คเท่ากับจำนวนตัวอักษรที่ไม่ซ้ำกันในการป้อนข้อมูลลบ 1 หมายถึงมันจะเป็น0ถ้าหากมีตรง 1 ตัวละครที่ไม่ซ้ำกันในการป้อนข้อมูลที่0เป็นเพียงจำนวน falsey ในหลามดังนั้นnจะแทนที่0ด้วย1, 0และทุกอย่างอื่นด้วย

Japt , 4 ไบต์

¥çUg

ลองออนไลน์!

JavaScript (ES6), 23 21 ไบต์

บันทึก 2 ไบต์ต้องขอบคุณ Neil

รับอินพุตเป็นจำนวนเต็มหรือสตริง ส่งคืนบูลีน

n=>/^(.)\1*$/.test(n)

การสาธิต

let f =

n=>/^(.)\1*$/.test(n)

console.log(f(444))
console.log(f(12))

โอห์ม 4 ไบต์

Ul2<

ลองออนไลน์!

คำอธิบาย

 Ul2<
 U    # Push uniquified input
  l   # Length
   2< # Is it smaller than 2?

APL, 5 ไบต์

บันทึก 2 ไบต์ด้วย @KritixiLithos

⍕≡1⌽⍕

ลองออนไลน์!

Java, 21 ไบต์:

l->l.toSet().size()<2

lเป็นMutableList<Character>คอลเลกชันจาก eclipse

Kotlin , 28 19 ไบต์

{it.toSet().size<2}

ลองออนไลน์!

ใช้อินพุตเป็นStringเพราะ

คุณอาจใช้และใช้อินพุตเป็นตัวแทนสตริงในฐาน 10 ด้วยการยกเว้นโทษ

คำอธิบาย

{
    it.toSet()     // create a Set (collection with only unique entries)
                   // out of the characters of this string
        .size < 2  // not a repdigit if the set only has one entry
}

ถ้าคุณไม่ชอบความจริงที่จะใช้เวลาStringที่คุณสามารถมีหนึ่งที่ใช้เวลาIntสำหรับ24 ไบต์

{(""+it).toSet().size<2}

Regex (ECMAScript), 31 ไบต์

^(x{0,9})((x+)\3{8}(?=\3$)\1)*$

ลองออนไลน์!

ใช้อินพุตเป็น unary ตามปกติสำหรับคณิตศาสตร์ regexes (โปรดทราบว่าปัญหาเล็กน้อยกับอินพุตทศนิยม: เพียง^(.)\1*$)

คำอธิบาย:

^(x{0,9})           # \1 = candidate digit, N -= \1
(                   # Loop the following:
  (x+)\3{8}(?=\3$)  # N /= 10 (fails and backtracks if N isn’t a multiple of 10)
  \1                # N -= \1
)* $                # End loop, assert N = 0

PHP, 30 ไบต์

<?=($a=$argn).$a[0]==$a[0].$a;

Neim 1 ไบต์

𝐐

เพียงตรวจสอบว่าองค์ประกอบทั้งหมดเท่ากัน

ไม่มีตัวใน 2 ไบต์:

𝐮𝐥

คำอธิบาย:

𝐮     Calculate unique digits
 𝐥    Get the length

งานนี้เพราะ1ถือว่าเป็นความจริงใน Neim เท่านั้นและทุกอย่างอื่นเป็นเท็จ

อีกทางเลือกหนึ่งสำหรับ 4 ไบต์:

𝐮𝐣μ𝕃

คำอธิบาย:

𝐮      Calculate unique digits
 𝐣      Join list into an integer
   𝕃   Check that is is less than
  μ    Ten.

ลองมัน!

C, 38 ไบต์

f(char*s){return*s^s[1]?!s[1]:f(s+1);}

เดินสตริงซ้ำ ๆ หากตัวละครสองตัวแรกแตกต่างกัน ( *s^s[1]) แล้วเราจะประสบความสำเร็จก็ต่อเมื่อเราอยู่ที่จุดสิ้นสุดของสตริง ( !s[1]) มิฉะนั้นเราจะทำซ้ำการทดสอบในตำแหน่งต่อไป (f(s+1) )

โปรแกรมทดสอบ

#include <stdio.h>
int main(int argc, char **argv)
{
    while (*++argv)
        printf("%s: %s\n", *argv, f(*argv)?"yes":"no");
}

Java, 38 33 23 ไบต์

n->n.matches("(.)\\1*")

nเป็นStringธรรมชาติ

โปรดทราบว่าไม่จำเป็นต้องมี^...$ใน regex เพราะมันถูกใช้โดยอัตโนมัติสำหรับการจับคู่ที่แน่นอน (เช่นmatchวิธีการ) เมื่อเทียบกับการค้นหาในสตริง

ลองมัน!

ประหยัด

• -5 ไบต์: ใช้Stringตั้งแต่ "คุณอาจใช้และใช้อินพุตเป็นสตริงที่ไม่ต้องรับโทษ"
• -10 ไบต์: regex เป็นแบบที่ดี

R, 25 ไบต์

grepl("^(.)\\1*$",scan())

ลองออนไลน์

ทางออกที่ไม่ใช่ regex ที่ดีที่สุดที่ฉันสามารถหาได้คือ 36 ไบต์:

is.na(unique(el(strsplit(x,"")))[2])

Cubix , 15 ไบต์

uOn@ii?-?;.$@<_

ลองออนไลน์!

    u O
    n @
i i ? - ? ; . $
@ < _ . . . . .
    . .
    . .

ดูมันวิ่ง

เอาต์พุต 1 สำหรับความจริงและไม่มีอะไรผิดพลาด

อ่านอย่างง่ายมากอ่านในการป้อนข้อมูลหนึ่งตัวอักษรในเวลา ใช้อักขระปัจจุบันห่างจากก่อนหน้า หากผลลัพธ์ที่ไม่ใช่ศูนย์จะหยุดทันที มิฉะนั้นจะยังคงทำการป้อนข้อมูลและเปรียบเทียบจนกว่า EOI ใน EOI (-1) ปฏิเสธและออก

QBasic 4.5, 55 ไบต์

INPUT a
FOR x=1TO LEN(STR$(a))
c=c*10+1
NEXT
?a MOD c=0

ฉันคิดว่ามัน! FOR-loop ตรวจสอบจำนวนของตัวเลขในอินพุตจากนั้นสร้างcซึ่งเป็นชุดที่มีความยาวเท่ากับ 1 ของอินพุต จำนวนนั้นคือ repdigit ถ้ามัน modulo one-string == 0

ลองออนไลน์! โปรดทราบว่าล่ามออนไลน์นั้นค่อนข้างแปลกและฉันต้องเขียนข้อความสองสามข้อความที่ใช้ QBasic IDE ใน DOS จะขยายโดยอัตโนมัติ