도전

렙 디지트는 그 자리 모두 동일한 음이 아닌 정수이다.

입력 값으로 단일 정수를 사용하고 입력 번호가 10 진법의 정수이면 틀린 값을 출력하고 그렇지 않으면 거짓 값을 출력하는 함수 또는 완전한 프로그램을 작성하십시오.

입력은 양의 정수 여야합니다 .

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

온라인으로 사용해보십시오!

코볼 , 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 바이트

Ë

모든 숫자가 같은지 확인

온라인으로 사용해보십시오!

파이썬 3, 25, 24 19 바이트

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

stdin => 오류 코드 변형

비밀번호가 0이거나 오류 인 경우 오류 코드 0을 반환합니다.

의견에 도움을 주신 Dennis에게 감사합니다.

Mathematica, 27 바이트

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

이길 수 없다 Equal@@IntegerDigits@#& 뛰지 않지만 다른 산술 기반 Mathematica 솔루션보다 낫습니다.

반복 숫자는 n = d (10 ^m -1) / 9 형식 이며 여기서 m 은 자릿수이고 d 는 반복 자릿수입니다. 우리는 n 을 모듈로 10으로 가져 와서 n 에서 d 를 복구 할 수 있습니다 (반환 숫자 인 경우 마지막 숫자는 d입니다 ). 따라서 우리는 이것을 m = log ₁₀ (9 n / (n % 10) + 1) 로 재 배열 하고 m 이 정수 인지 확인할 수 있습니다.

하스켈 , 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.

strspn두 개의 문자열을 사용하고 두 번째 문자열의 문자로만 구성된 첫 번째 문자열의 가장 긴 접두사 길이를 반환 하는 함수 를 사용하여 이를 수행합니다. 여기서 첫 번째 문자열은 입력이고 두 번째 문자열은 입력 문자열의 마지막 문자에 대한 포인터를 전달하여 얻은 마지막 숫자입니다.

입력 값이 repdigit 인 경우 호출 결과 strspn는입니다 strlen(s). 그런 다음 s이 경우 ( str[strlen(str)]항상 \0) 또는 마지막 숫자와 일치하지 않는 첫 번째 숫자 인 경우 인덱싱 은 null 바이트를 반환합니다 . 이것을 부정 !여부 결과s 음수로 바꾸면 대표 숫자를 나타내는 나타납니다.

온라인으로 사용해보십시오!

@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

온라인으로 사용해보십시오!

/// 언어는 진실과 거짓의 개념을 가지고 있지 않기 때문에 입력이 repdigit이면 "T"를 출력하고 입력이 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의 암시 적 입력은 모든 숫자 입력을 문자열로 받아 들일 수 없으며 항상 숫자로 캐스트하므로 솔루션은 STDIN을 통해 전달하여 STDIN을 읽기 위해 1 바이트를 추가합니다 (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가 정확히 하나만있는 경우 0에만 파이썬에서 유일한 잘못된 숫자이므로으로 n대체 0됩니다 1. 와 다른 모든 것 0.

Japt , 4 바이트

¥çUg

온라인으로 사용해보십시오!

자바 스크립트 (ES6), 23 21 바이트

Neil 덕분에 2 바이트 절약

입력을 정수 또는 문자열로 취합니다. 부울을 반환합니다.

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 바이트

@KritixiLithos 덕분에 2 바이트 절약

⍕≡1⌽⍕

온라인으로 사용해보십시오!

자바, 21 바이트 :

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

lA는 MutableList<Character>이클립스 컬렉션에서.

코 틀린 , 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}

정규식 (ECMAScript), 31 바이트

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

온라인으로 사용해보십시오!

수학 정규 표현식에서 평소와 같이 단항으로 입력을 ^(.)\1*$받습니다 ( 소수점 입력 : just ).

설명:

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