チャレンジ

ぞろ目には、その数字全て等しい正の整数です。

入力として単一の整数を取り、入力数が10進数のrepdigitである場合は真理値を出力し、それ以外の場合は偽値を出力する関数または完全なプログラムを作成します。

入力は正の整数であることが保証されています。

入力を基本10の文字列表現として使用し、免責することができます。

テストケース

これらはすべて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

より大きなリストはOEISにあります。

勝ち

バイト単位の最短コードが優先されます。それは、冗長言語での賢い答えが歓迎されないということではありません。

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バイト

COBOLはコードゴルフに愛着を感じていないようです（おそらく勝つ方法がないためです）が、ここに行きます。

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

stdin =>エラーコードのバリアント。

repdigitの場合はエラーコード0を返し、失敗した場合はエラーを返します。

コメントで助けてくれたデニスに感謝します。

Mathematica、27バイト

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

に勝るものはありませんがEqual@@IntegerDigits@#&、他の算術ベースのMathematicaソリューションに勝っています。

Repdigitsの形式は、n = d（10 ^m -1）/ 9です。ここで、mは桁数、dは繰り返し桁です。10を法とすることで、nからdを復元できます（rep桁の場合、最後の桁は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受け取り、0それがrepdigitであるかどうかを返す関数です。

これはstrspn、2つの文字列を受け取り、2番目の文字列の文字のみで構成される最初の文字列の最も長いプレフィックスの長さを返す関数を使用してこれを行います。ここで、最初の文字列は入力であり、2番目の文字列は入力文字列の最後の文字へのポインタを渡すことによって取得される入力の最後の数字です。

入力がレプディジットの場合、呼び出し結果はにstrspnなりますstrlen(s)。次に、インデックスが作成されたs場合、nullバイトが返されます（そうでない場合str[strlen(str)]は常に\0）、そうでない場合は最後の数字と一致しない最初の数字。これを否定すると、repdigitを表す!かどうかsが決まります。

オンラインでお試しください！

@Dennisに、彼の非常に印象的な答えを介して、4バイトを節約して、代わりに返り値を割り当てるトリックを間接的に思い出させてくれてありがとう！

PHP、25 28 25

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

最初の1文字と等しいすべての文字を右側から削除し、すべての文字が削除された場合に出力します。

R、31バイト

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

この関数は文字列入力で機能し、正規表現を使用して入力がレプディジットかどうかを判断します。

例

> 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

オンラインでお試しください！

///言語には真実と偽の概念がないため、入力がrepdigitの場合は "T"を出力し、入力がrepdigitでない場合は文字を出力しません。

ゼリー、2 1バイト

E

オンラインでお試しください！

オクターブ、11バイト

@(s)s==s(1)

オンラインでお試しください！

入力を文字列として受け取ります。

すべての文字が最初の文字と等しいかどうかをチェックします。すべてが等しい場合、結果はベクトルのみ1（Octaveではtrue）、そうでない場合は少なくとも1つ0（Octaveではfalse）になります。ここに証拠があります。

grep、17バイト

grep -xP '(.)\1*'

最初の文字の繰り返しである任意の文字列に一致します。

C＃、42 33 28バイト

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

i 文字列でなければなりません。

@LethalCoderのおかげで大幅に削減

Braingolf、6バイト

iul1-n

オンラインでお試しください！

残念ながら、コマンドライン引数からのBraingolfの暗黙的な入力は、文字列として全桁の入力を受け入れることができず、常に数値にキャストされるため、代わりに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を引くと、入力に一意の文字が1つ0だけ存在する場合にのみ0Pythonで唯一の偽の数字にnなるため0、1に置き換えられますとで他のすべて0。

Japt、4バイト

¥çUg

オンラインでお試しください！

JavaScript（ES6）、23 21バイト

ニールのおかげで2バイト節約

入力を整数または文字列として受け取ります。ブール値を返します。

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

デモ

let f =

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

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

Ohm, 4 bytes

Ul2<

Try it online!

Explanation

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

APL, 5 bytes

2 bytes saved thanks to @KritixiLithos

⍕≡1⌽⍕

Try it online!

Java, 21 bytes:

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

l is a MutableList<Character> from eclipse collections.

Kotlin, 28 19 bytes

{it.toSet().size<2}

Try it online!

Takes input as a String because

You may take and use input as a string representation in base 10 with impunity.

Explanation

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

If you don't like the fact it takes a String, you can have one that takes an Int for 24 bytes.

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

Regex (ECMAScript), 31 bytes

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

Try it online!

Takes input in unary, as usual for math regexes (note that the problem is trivial with decimal input: just ^(.)\1*$).

Explanation:

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

𝐐

Simply checks that all elements are equal.

Without builtin, 2 bytes:

𝐮𝐥

Explanation:

𝐮     Calculate unique digits
 𝐥    Get the length

This works because only 1 is considered truthy in Neim, and everything else is falsy.

Alternatively, for 4 bytes:

𝐮𝐣μ𝕃

Explanation:

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

Try it!

C, 38 bytes

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

Recursively walks a string. If the first two characters differ (*s^s[1]) then we succeed only if we're at the end of the string (!s[1]) otherwise we repeat the test at the next position (f(s+1)).

Test program

#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*")

n is a String, naturally.

Note that there is no need for ^...$ in the regex since it's automatically used for exact matching (such as the match method), compared to finding in the string.

Try it!

Saves

• -5 bytes: used String since "You may take and use input as a string with impunity."
• -10 bytes: regex is apparently a good fit.

R, 25 bytes

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

Try it online

Best non-regex solution I could come up with was 36 bytes:

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

Cubix, 15 bytes

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

Try it online!

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

Watch It Run

Outputs 1 for truthy and nothing for falsey

Very simply read reads in the input one character at a time. It takes the current character away from the previous. If a non zero result then it halts immediately. Otherwise it continues inputting and comparing until the EOI. On EOI (-1), negate and exit

QBasic 4.5, 55 bytes

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

I've mathed it! The FOR-loop checks the number of digits in the input, then creates c, which is a series of 1's of length equal to the input. A number then is repdigit if it modulo the one-string == 0.

Try it online! Note that the online interpreter is a bit quirky and I had to write out a couple of statements that the DOS-based QBasic IDE would expand automatically.