Tantangan

Sebuah repdigit adalah bilangan bulat non-negatif yang digit semua sama.

Buat fungsi atau program lengkap yang mengambil integer tunggal sebagai input dan output nilai kebenaran jika nomor input adalah repdigit di basis 10 dan nilai falsy sebaliknya.

Input dijamin menjadi bilangan bulat positif .

Anda dapat mengambil dan menggunakan input sebagai representasi string di basis 10 dengan impunitas.

Uji kasus

Ini semua repdigits di bawah 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

Daftar yang lebih besar dapat ditemukan di OEIS .

Kemenangan

Kode terpendek dalam byte menang. Itu tidak berarti bahwa jawaban yang cerdas dalam bahasa verbal tidak akan diterima.

Brachylog , 1 byte

=

Cobalah online!

Ini bekerja pada bilangan bulat.

Dari 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);}

Cobalah online!

COBOL , 139 Byte

Saya merasa COBOL tidak suka bermain golf kode (mungkin karena tidak mungkin menang) tetapi begini:

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 didefinisikan sebagai PIC 9 (4).

05AB1E , 1 byte

Ë

Cek apakah semua digit sama

Cobalah online!

Python 3, 25, 24 19 byte.

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

Varian kode kesalahan stdin =>.

Mengembalikan kode kesalahan 0 jika itu adalah repdigit - atau kesalahan pada kegagalan.

Terima kasih untuk Dennis yang telah membantu saya dalam komentar.

Mathematica, 27 byte

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

Itu tidak mengalahkan Equal@@IntegerDigits@#&, tetapi mengalahkan solusi Mathematica berbasis aritmatika lainnya.

Repdigits adalah dari bentuk n = d (10 ^m -1) / 9 di mana m adalah jumlah digit dan d adalah digit yang diulang. Kita dapat memulihkan d dari n dengan mengambilnya modulo 10 (karena jika itu adalah digit rep, itu digit terakhir akan menjadi d ). Jadi kita bisa mengatur ulang ini sebagai m = log ₁₀ (9 n / (n% 10) + 1) dan memeriksa apakah m adalah bilangan bulat.

Haskell , 15 byte

all=<<(==).head

Cobalah online! Mengambil input string.

Setara dengan \s->all(==head s)s. Mengalahkan alternatif:

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 byte

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

Ini adalah fungsi yang mengambil input sebagai string dan mengembalikan 1jika itu adalah repdigit dan 0sebaliknya.

Ini dilakukan dengan memanfaatkan strspnfungsi, yang mengambil dua string dan mengembalikan panjang awalan terpanjang dari string pertama yang hanya terdiri dari karakter dari string kedua. Di sini, string pertama adalah input, dan string kedua adalah digit terakhir dari input, diperoleh dengan melewatkan sebuah pointer ke karakter terakhir dari string input.

Jika inputnya adalah repdigit, maka hasil dari panggilan strspnitu adalah strlen(s). Kemudian, pengindeksan ke sakan mengembalikan byte nol jika hal ini terjadi ( str[strlen(str)]selalu \0) atau digit pertama yang tidak cocok dengan digit terakhir. Meniadakan ini dengan !hasil apakah smewakili repdigit.

Cobalah online!

Terima kasih kepada @Dennis karena secara tidak langsung mengingatkan saya pada trik assign-bukan-return melalui jawaban yang luar biasa mengesankan , menghemat 4 byte!

PHP, 25 28 25

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

hapus semua karakter dari kanan yang sama dengan karakter pertama dan cetak 1jika semua karakter dihapus.

R, 31 byte

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

Fungsi ini bekerja dengan input string dan menggunakan ekspresi reguler untuk menentukan apakah input tersebut adalah repdigit.

Contoh

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

/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

Cobalah online!

Bahasa /// tidak memiliki konsep truthy dan falsey, jadi ini menghasilkan "T" jika inputnya adalah repdigit, dan tidak menampilkan karakter apa pun jika inputnya bukan repdigit.

Jelly , 2 1 byte

E

Cobalah online!

Oktaf , 11 byte

@(s)s==s(1)

Cobalah online!

Mengambil input sebagai string.

Ini memeriksa semua karakter untuk kesetaraan dengan karakter pertama. Jika semua sama, hasilnya akan menjadi vektor hanya 1(true in Octave), jika tidak akan ada setidaknya satu 0(false dalam Octave). Ini buktinya .

grep, 17 byte

grep -xP '(.)\1*'

Cocok dengan string apa pun yang merupakan pengulangan karakter pertama.

C #, 42 33 28 byte

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

i harus berupa string.

Banyak dicukur berkat @LethalCoder

Braingolf , 6 byte

iul1-n

Cobalah online!

Sayangnya, input implisit Braingolf dari commandline args tidak dapat menerima input semua digit sebagai string, itu akan selalu melemparkannya ke angka, jadi alih-alih solusinya adalah melewatinya melalui STDIN, yang menambahkan 1 byte untuk membaca STDIN ( i)

Penjelasan:

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

Setelah u, panjang tumpukan sama dengan jumlah karakter unik dalam input, kurangi 1 artinya akan menjadi 0dan jika hanya ada 1 karakter unik dalam input, 0adalah satu-satunya angka falsey dalam Python, jadi nakan diganti 0dengan 1, dan yang lainnya 0.

Japt , 4 byte

¥çUg

Cobalah online!

JavaScript (ES6), 23 21 byte

Disimpan 2 byte berkat Neil

Mengambil input sebagai integer atau string. Mengembalikan boolean.

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

Demo

let f =

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

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

Ohm , 4 byte

Ul2<

Cobalah online!

Penjelasan

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

APL, 5 byte

2 byte disimpan berkat @KritixiLithos

⍕≡1⌽⍕

Cobalah online!

Java, 21 byte:

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

ladalah MutableList<Character>dari koleksi gerhana.

Kotlin , 28 19 byte

{it.toSet().size<2}

Cobalah online!

Mengambil input sebagai Stringkarena

Anda dapat mengambil dan menggunakan input sebagai representasi string di basis 10 dengan impunitas.

Penjelasan

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

Jika Anda tidak suka fakta dibutuhkan String, Anda dapat memiliki satu yang mengambil Intuntuk 24 byte .

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

Regex (ECMAScript), 31 byte

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

Cobalah online!

Mengambil input di unary, seperti biasa untuk regex matematika (perhatikan bahwa masalahnya sepele dengan input desimal: adil ^(.)\1*$).

Penjelasan:

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

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

Neim , 1 byte

𝐐

Cukup periksa bahwa semua elemen sama.

Tanpa builtin, 2 byte:

𝐮𝐥

Penjelasan:

𝐮     Calculate unique digits
 𝐥    Get the length

Ini bekerja karena hanya 1dianggap benar di Neim, dan yang lainnya salah.

Atau, untuk 4 byte:

𝐮𝐣μ𝕃

Penjelasan:

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

Cobalah!

C, 38 byte

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

Secara rekursif berjalan seutas tali. Jika dua karakter pertama berbeda ( *s^s[1]) maka kita berhasil hanya jika kita berada di akhir string ( !s[1]) kalau tidak kita ulangi tes di posisi berikutnya ( f(s+1)).

Program uji

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

Java, 38 33 23 byte

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

nadalah String, secara alami.

Perhatikan bahwa tidak perlu untuk ^...$dalam regex karena secara otomatis digunakan untuk pencocokan tepat (seperti matchmetode), dibandingkan dengan menemukan dalam string.

Cobalah!

Menghemat

• -5 byte: digunakan String karena "Anda dapat mengambil dan menggunakan input sebagai string dengan impunitas."
• -10 byte: regex tampaknya cocok.

R, 25 byte

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

Cobalah online

Solusi non-regex terbaik yang bisa saya buat adalah 36 byte:

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

Cubix , 15 byte

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

Cobalah online!

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

Tonton Jalankan

Keluaran 1 untuk kebenaran dan tidak ada untuk falsey

Sangat mudah dibaca membaca di input satu karakter sekaligus. Ini menghilangkan karakter saat ini dari sebelumnya. Jika bukan hasil nol maka segera berhenti. Kalau tidak, itu terus memasukkan dan membandingkan sampai EOI. Pada EOI (-1), negasikan dan keluar

QBasic 4.5, 55 byte

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

Saya sudah menghitungnya! FOR-loop memeriksa jumlah digit pada input, lalu membuatc , yang merupakan serangkaian panjang 1 sama dengan input. Angka kemudian adalah repdigit jika ia memodulasi satu-string == 0.

Cobalah online! Perhatikan bahwa penerjemah online agak aneh dan saya harus menulis beberapa pernyataan bahwa IDE QBasic berbasis DOS akan berkembang secara otomatis.