Wyzwanie

Repdigit jest liczbą całkowitą nieujemną których cyfry są równe.

Utwórz funkcję lub pełny program, który pobiera jedną liczbę całkowitą jako dane wejściowe i wyświetla prawdziwą wartość, jeśli liczba wejściowa to powtórka w bazie 10, a w przeciwnym razie wartość fałsz.

Dane wejściowe mają być dodatnią liczbą całkowitą.

Możesz bezkarnie pobierać i wykorzystywać dane wejściowe jako ciąg znaków w bazie 10.

Przypadki testowe

Są to wszystkie reprodukcje poniżej 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

Większą listę można znaleźć w OEIS .

Zwycięski

Najkrótszy kod w bajtach wygrywa. Nie oznacza to, że sprytne odpowiedzi w pełnych językach nie będą mile widziane.

Brachylog , 1 bajt

=

Wypróbuj online!

Działa to na liczbach całkowitych.

Od 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 bajtów

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

Wypróbuj online!

COBOL , 139 BYTÓW

Wydaje mi się, że COBOL nie kocha się w golfa kodowego (prawdopodobnie dlatego, że nie ma szans, by wygrał), ale oto:

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 jest zdefiniowane jako PIC 9 (4).

05AB1E , 1 bajt

Ë

Sprawdza, czy wszystkie cyfry są równe

Wypróbuj online!

Python 3, 25, 24 19 bajtów.

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

Wariant stdin => kod błędu.

Zwraca kod błędu 0, jeśli jest to repdigit - lub błąd w przypadku niepowodzenia.

Dzięki Dennisowi za pomoc w komentarzach.

Mathematica, 27 bajtów

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

Nie bije Equal@@IntegerDigits@#&, ale bije inne rozwiązania matematyczne oparte na arytmetyce.

Repdigity mają postać n = d (10 ^m -1) / 9, gdzie m jest liczbą cyfr, a d jest cyfrą powtarzaną. Możemy odzyskać d od n , biorąc go modulo 10 (ponieważ jeśli jest to cyfra powtórzenia, to ostatnią cyfrą będzie d ). Możemy więc zmienić to na m = log ₁₀ (9 n / (n% 10) + 1) i sprawdzić, czy m jest liczbą całkowitą.

Haskell , 15 bajtów

all=<<(==).head

Wypróbuj online! Pobiera ciąg znaków.

Odpowiednik \s->all(==head s)s. Wąsko pokonuje alternatywy:

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 bajtów

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

Jest to funkcja, która pobiera dane wejściowe jako ciąg znaków i zwraca, 1jeśli jest to repdigit i 0inaczej.

Robi to za pomocą strspnfunkcji, która pobiera dwa ciągi i zwraca długość najdłuższego prefiksu pierwszego ciągu składającego się tylko z znaków z drugiego ciągu. Tutaj pierwszy ciąg jest wejściem, a drugi ciąg jest ostatnią cyfrą wejścia, uzyskaną przez przekazanie wskaźnika do ostatniego znaku ciągu wejściowego.

Iff wejście jest repdigit, a następnie wynikiem połączenia strspnbędzie strlen(s). Następnie indeksowanie do szwróci bajt zerowy, jeśli tak jest ( str[strlen(str)]zawsze \0) lub pierwsza cyfra, która w innym przypadku nie pasuje do ostatniej cyfry. Negowanie tego !powoduje, że sreprezentuje repdigit.

Wypróbuj online!

Dzięki @Dennis za pośrednie przypomnienie mi sztuczki polegającej na przypisaniu zamiast powrotu za pomocą jego niesamowicie imponującej odpowiedzi , oszczędzając 4 bajty!

PHP, 25 28 25

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

usuń wszystkie znaki z prawej strony, które są równe pierwszemu i wydrukuj, 1jeśli wszystkie znaki zostały usunięte.

R, 31 bajtów

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

Ta funkcja działa z wejściowymi ciągami znaków i używa wyrażenia regularnego do ustalenia, czy dane wejściowe są repdigit.

Przykład

> 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 bajtów

/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

Wypróbuj online!

Język /// nie ma pojęcia prawdy i falseya, więc to wypisuje „T”, jeśli wejście jest repdigit, i nie wypisuje żadnych znaków, jeśli wejście nie jest repdigit.

Galaretka , 2 1 bajt

E

Wypróbuj online!

Oktawa , 11 bajtów

@(s)s==s(1)

Wypróbuj online!

Pobiera dane wejściowe jako ciąg.

Sprawdza równość wszystkich znaków z pierwszymi. Jeśli wszystkie są równe, wynikiem będzie wektor z tylko 1(prawda w oktawie), w przeciwnym razie będzie co najmniej jeden 0(fałsz w oktawie). Oto dowód .

grep, 17 bajtów

grep -xP '(.)\1*'

Dopasowuje dowolny ciąg znaków, który jest powtórzeniem jego pierwszego znaku.

C #, 42 33 28 bajtów

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

i musi być ciągiem.

Dużo się ogoliłem dzięki @LethalCoder

Braingolf , 6 bajtów

iul1-n

Wypróbuj online!

Niestety, niejawne dane wejściowe Braingolfa z argumentów wiersza poleceń nie mogą zaakceptować danych składających się z samych cyfr jako ciągów znaków, zawsze będą one rzutować je na liczby, więc zamiast tego rozwiązaniem jest przekazanie ich przez STDIN, który dodaje 1 bajt do odczytu STDIN ( i)

Wyjaśnienie:

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

Po udługość stosu jest równa liczbie unikalnych znaków na wejściu, odjęcie 1 oznacza, to będzie 0wtedy i tylko wtedy, gdy istnieje dokładnie jeden wyjątkowy charakter na wejściu, 0to jedyna liczba falsey w Pythonie, więc nzastąpi 0z 1, i wszystko inne z 0.

Japt , 4 bajty

¥çUg

Wypróbuj online!

JavaScript (ES6), 23 21 bajtów

Zaoszczędzono 2 bajty dzięki Neilowi

Pobiera dane wejściowe jako liczbę całkowitą lub ciąg znaków. Zwraca wartość logiczną.

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

Próbny

let f =

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

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

Ohm , 4 bajty

Ul2<

Wypróbuj online!

Wyjaśnienie

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

APL, 5 bajtów

2 bajty zapisane dzięki @KritixiLithos

⍕≡1⌽⍕

Wypróbuj online!

Java, 21 bajtów:

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

lpochodzi MutableList<Character>z kolekcji Eclipse.

Kotlin , 28 19 bajtów

{it.toSet().size<2}

Wypróbuj online!

Pobiera dane wejściowe jako Stringponieważ

Możesz bezkarnie pobierać i wykorzystywać dane wejściowe jako ciąg znaków w bazie 10.

Wyjaśnienie

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

Jeśli nie podoba się fakt, że trwa String, można mieć jeden, który trwa Intdo 24 bajtów .

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

Regex (ECMAScript), 31 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe jednoargumentowe, jak zwykle w przypadku wyrażeń regularnych matematycznych (zwróć uwagę, że problem jest prosty w przypadku liczb dziesiętnych: po prostu ^(.)\1*$).

Wyjaśnienie:

^(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 bajtów

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

Neim , 1 bajt

𝐐

Po prostu sprawdza, czy wszystkie elementy są równe.

Bez wbudowanego 2 bajty:

𝐮𝐥

Wyjaśnienie:

𝐮     Calculate unique digits
 𝐥    Get the length

To działa, ponieważ tylko 1 w Neim jest uważane za prawdziwe, a wszystko inne jest fałszem.

Alternatywnie, dla 4 bajtów:

𝐮𝐣μ𝕃

Wyjaśnienie:

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

Spróbuj!

C, 38 bajtów

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

Rekurencyjnie chodzi po sznurku. Jeśli pierwsze dwa znaki różnią się ( *s^s[1]), to odniesiemy sukces tylko wtedy, gdy znajdziemy się na końcu ciągu ( !s[1]), w przeciwnym razie powtórzymy test na następnej pozycji ( f(s+1)).

Program testowy

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

Java, 38 33 23 bajty

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

n jest String oczywiście.

Zauważ, że nie ma potrzeby ^...$wyrażenia regularnego, ponieważ jest ono automatycznie używane do dokładnego dopasowania (takiego jak matchmetoda), w porównaniu do znalezienia w ciągu.

Spróbuj!

Oszczędza

• -5 bajtów: używane String ponieważ „Możesz bezkarnie pobierać i wykorzystywać dane wejściowe jako ciąg znaków”.
• -10 bajtów: regex jest najwyraźniej dobrym dopasowaniem.

R, 25 bajtów

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

Wypróbuj online

Najlepsze rozwiązanie nieregexowe, jakie mogłem wymyślić, to 36 bajtów:

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

Cubix , 15 bajtów

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

Wypróbuj online!

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

Watch It Run

Wyjście 1 dla prawdy i nic dla falsey

Bardzo prosty odczyt czyta z wejścia po jednym znaku na raz. Odciąga obecną postać od poprzedniej. Jeżeli wynik jest niezerowy, natychmiast się zatrzymuje. W przeciwnym razie kontynuuje wprowadzanie i porównywanie do EOI. Na EOI (-1) zaneguj i wyjdź

QBasic 4.5, 55 bajtów

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

Dopasowałem to! Pętla FOR sprawdza liczbę cyfr na wejściu, a następnie tworzy c, która jest ciągiem 1 długości równej wejściowej. Liczba jest następnie reprodukowana, jeśli moduluje jeden ciąg == 0.

Wypróbuj online! Zauważ, że interpreter online jest nieco dziwaczny i musiałem napisać kilka stwierdzeń, że oparte na DOS QBasic IDE rozszerzy się automatycznie.