Herausforderung

Ein Repdigit ist eine nicht negative Ganzzahl, deren Ziffern alle gleich sind.

Erstellen Sie eine Funktion oder ein vollständiges Programm, das eine einzelne Ganzzahl als Eingabe annimmt und einen Wahrheitswert ausgibt, wenn die eingegebene Zahl in der Basis 10 eine Umstellziffer ist, andernfalls einen falschen Wert.

Die Eingabe ist garantiert eine positive Ganzzahl.

Sie können die Eingabe ungestraft als Zeichenfolgendarstellung in Basis 10 verwenden.

Testfälle

Dies sind alles Umbuchungen unter 1000.

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

Eine größere Liste finden Sie auf OEIS .

Gewinnen

Der kürzeste Code in Bytes gewinnt. Das heißt nicht, dass kluge Antworten in ausführlichen Sprachen nicht erwünscht sind.

Brachylog , 1 Byte

=

Probieren Sie es online!

Dies wirkt sich auf ganze Zahlen aus.

Von 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 Byte

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

Probieren Sie es online!

COBOL , 139 BYTES

Ich habe das Gefühl, dass COBOL das Code-Golfen nicht mag (wahrscheinlich, weil es auf keinen Fall gewinnen kann), aber hier ist:

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 ist als PIC 9 (4) definiert.

05AB1E , 1 Byte

Ë

Prüft, ob alle Ziffern gleich sind

Probieren Sie es online!

Python 3, 25, 24, 19 Bytes.

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

Eine stdin => Fehlercodevariante.

Gibt den Fehlercode 0 zurück, wenn es sich um eine Neuziffer handelt - oder um einen Fehler bei einem Fehler.

Vielen Dank an Dennis, der mir in den Kommentaren geholfen hat.

Mathematica, 27 Bytes

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

Es schlägt nicht Equal@@IntegerDigits@#&, aber es schlägt die andere arithmetikbasierte Mathematica-Lösung.

Wiederholungsziffern haben die Form n = d (10 ^m & supmin; ¹ ) / 9, wobei m die Anzahl der Ziffern und d die wiederholte Ziffer ist. Wir können d von n wiederherstellen, indem wir es modulo 10 nehmen (denn wenn es eine Wiederholungsziffer ist, ist es die letzte Ziffer d ). Wir können dies also einfach als m = log ₁₀ (9 n / (n% 10) + 1) neu anordnen und prüfen, ob m eine ganze Zahl ist.

Haskell , 15 Bytes

all=<<(==).head

Probieren Sie es online! Übernimmt die Zeichenketteneingabe.

Entspricht \s->all(==head s)s. Schmale Alternativen:

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 Bytes

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

Dies ist eine Funktion, die Eingaben als Zeichenfolge 1akzeptiert und zurückgibt, wenn es sich um eine Umdigit handelt, und 0ansonsten.

Hierzu wird die strspnFunktion verwendet, die zwei Zeichenfolgen verwendet und die Länge des längsten Präfixes der ersten Zeichenfolge zurückgibt, das nur aus Zeichen der zweiten Zeichenfolge besteht. Hier ist die erste Zeichenfolge die Eingabe, und die zweite Zeichenfolge ist die letzte Ziffer der Eingabe, die durch Übergeben eines Zeigers auf das letzte Zeichen der Eingabezeichenfolge erhalten wird.

Iff dem Eingang ist eine Schnapszahl, dann auf das Ergebnis des Aufrufs strspnwird strlen(s). Die Indizierung in gibt sdann ein Null-Byte zurück, wenn dies der Fall ist ( str[strlen(str)]immer der Fall ist \0) oder die erste Ziffer, die sonst nicht mit der letzten Ziffer übereinstimmt. Wenn Sie dies mit negieren, wird festgestellt, !ob es sich sum eine Neuziffer handelt.

Probieren Sie es online!

Vielen Dank an @Dennis, der mich indirekt über seine unglaublich beeindruckende Antwort an den Trick "Zuweisen statt Zurückgeben" erinnert hat und dabei 4 Bytes gespart hat!

PHP, 25 28 25

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

entferne alle Zeichen von rechts, die gleich dem ersten sind und drucke, 1wenn alle Zeichen entfernt wurden.

R, 31 Bytes

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

Diese Funktion arbeitet mit Zeichenfolgeneingaben und verwendet einen regulären Ausdruck, um zu bestimmen, ob die Eingabe eine Umstellziffer ist.

Beispiel

> 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 Bytes

/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

Probieren Sie es online!

Die /// Sprache hat kein Konzept von Wahrhaftigkeit und Falschheit, daher gibt diese "T" aus, wenn die Eingabe eine Umstellziffer ist, und gibt keine Zeichen aus, wenn die Eingabe keine Umstellziffer ist.

Jelly , 2 1 Byte

E

Probieren Sie es online!

Oktave , 11 Bytes

@(s)s==s(1)

Probieren Sie es online!

Nimmt die Eingabe als String.

Es prüft alle Zeichen auf Gleichheit mit den ersten Zeichen. Wenn alle gleich sind, ist das Ergebnis ein Vektor mit nur 1(wahr in Oktave), andernfalls gibt es mindestens einen 0(falsch in Oktave). Hier ist ein Beweis .

grep, 17 bytes

grep -xP '(.)\1*'

Stimmt mit jeder Zeichenfolge überein, die eine Wiederholung des ersten Zeichens darstellt.

C #, 42 33 28 Bytes

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

i muss eine Zeichenfolge sein.

Dank @LethalCoder viel rasiert

Braingolf , 6 Bytes

iul1-n

Probieren Sie es online!

Leider kann Braingolfs implizite Eingabe von Kommandozeilenargumenten keine Ganzzahleingabe als Zeichenfolge akzeptieren. Sie wird immer in eine Zahl umgewandelt. Stattdessen besteht die Lösung darin, sie über STDIN zu übergeben, wodurch 1 Byte zum Lesen von STDIN ( i) hinzugefügt wird.

Erläuterung:

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

Nachdem udie Länge des Stapels die Anzahl der eindeutigen Zeichen in der Eingabe entspricht, Subtrahieren von 1 bedeutet , dass es sein , 0wenn , und nur , wenn es genau 1 eindeutige Zeichen in der Eingabe ist, 0ist die einzige Falsey Zahl in Python, so nersetzt 0mit 1, und alles andere mit0 .

Japt , 4 Bytes

¥çUg

Probieren Sie es online!

JavaScript (ES6), 23 21 Bytes

2 Bytes gespart dank Neil

Übernimmt die Eingabe entweder als Ganzzahl oder als Zeichenfolge. Gibt einen Booleschen Wert zurück.

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

Demo

let f =

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

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

Ohm , 4 Bytes

Ul2<

Probieren Sie es online!

Erläuterung

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

APL, 5 Bytes

2 Bytes gespart dank @KritixiLithos

⍕≡1⌽⍕

Probieren Sie es online!

Java, 21 Bytes:

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

list eine MutableList<Character>von Eclipse-Sammlungen.

Kotlin , 28 19 Bytes

{it.toSet().size<2}

Probieren Sie es online!

Nimmt Eingaben als Stringweil

Sie können die Eingabe ungestraft als Zeichenfolgendarstellung in Basis 10 verwenden.

Erläuterung

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

Wenn Sie die Tatsache nicht mögen, dass es eine braucht String, können Sie eine haben, die eine Intfür 24 Bytes benötigt .

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

Regex (ECMAScript), 31 Bytes

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

Probieren Sie es online!

Nimmt Eingaben in Unary auf, wie es für mathematische Regexes üblich ist (beachte, dass das Problem bei Dezimaleingaben trivial ist: just ^(.)\1*$ ).

Erläuterung:

^(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 Bytes

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

Neim , 1 Byte

𝐐

Überprüft einfach, ob alle Elemente gleich sind.

Ohne eingebautes, 2 Bytes:

𝐮𝐥

Erläuterung:

𝐮     Calculate unique digits
 𝐥    Get the length

Das funktioniert da nur 1 in Neim als wahr angesehen wird und alles andere falsch ist.

Alternativ für 4 Bytes:

𝐮𝐣μ𝕃

Erläuterung:

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

Versuch es!

C 38 Bytes

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

Geht rekursiv eine Zeichenfolge. Wenn sich die ersten beiden Zeichen unterscheiden ( *s^s[1]), ist dies nur dann erfolgreich, wenn wir am Ende der Zeichenfolge ( !s[1]) sind, andernfalls wiederholen wir den Test an der nächsten Position ( f(s+1)).

Testprogramm

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

Java, 38 33 23 Bytes

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

nist Stringnatürlich ein.

Beachten Sie, dass ^...$der reguläre Ausdruck nicht erforderlich ist, da er im matchVergleich zum Suchen in der Zeichenfolge automatisch für die exakte Zuordnung verwendet wird (z. B. die Methode).

Versuch es!

Speichert

• -5 Bytes: verwendet String seit "Sie können Eingaben ungestraft als Zeichenfolge verwenden."
• -10 Bytes: Regex ist anscheinend eine gute Passform.

R, 25 Bytes

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

Probieren Sie es online aus

Die beste Nicht-Regex-Lösung, die ich finden konnte, war 36 Byte:

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

Cubix , 15 Bytes

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

Probieren Sie es online!

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

Beobachten Sie es laufen

Gibt 1 für wahr und nichts für falsch aus

Ganz einfach lesen liest die Eingabe zeichenweise ein. Es entfernt das aktuelle Zeichen vom vorherigen. Wenn das Ergebnis nicht Null ist, wird es sofort angehalten. Andernfalls wird die Eingabe und der Vergleich bis zum EOI fortgesetzt. Negieren Sie auf EOI (-1) und beenden Sie

QBasic 4.5, 55 Bytes

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

Ich habe es nachgerechnet! Die FOR-Schleife überprüft die Anzahl der Stellen in der Eingabe und erstellt dann ceine Reihe von Einsen , deren Länge der Eingabe entspricht. Eine Zahl ist dann repdigit, wenn sie den Einstring == 0 moduliert.

Probieren Sie es online! Beachten Sie, dass der Online-Interpreter etwas schrullig ist und ich einige Anweisungen schreiben musste, dass die DOS-basierte QBasic-IDE automatisch erweitert wird.