Geben Sie bei einer nichtnegativen Ganzzahl zurück, ob es sich um eine dreistellige Zahl handelt, die auf einer beliebigen konsistenten Ganzzahlbasis endet. Mit anderen Worten muss die Zahl in der Basis N dargestellt werden, wobei N eine ganze Zahl größer als Null ist.

Regeln

• Das ist Code-Golf , also gewinnt die kürzeste Antwort.
• Da sich unary komisch verhält, ist das Verhalten mit Eingang 3 ₁₀ undefiniert.
• Standardlücken sind verboten.

Beispiele

Wahr:

5   
73  
101 
1073
17
22
36
55
99  

Falsch:

8
18
23
27
98
90
88
72
68

Eine Handvoll großer Zahlen:

46656 true
46657 true
46658 true
46659 true
46660 true
46661 false
46662 false
46663 true
46664 false
46665 true
46666 true
46667 false
46668 false
46669 false
46670 true
46671 true

Gelee , 7 Bytes

bRṫ€3ċJ

Gibt die Anzahl der Basen zurück (Nicht-Null ist wahr, Null ist falsch), in denen die Eingabe eine dreistellige Zahl ist, die auf Eins endet.

Probieren Sie es online!

Wie es funktioniert

bRṫ€3ċJ  Main link. Argument: n

 R       Range; yield [1, ..., n].
b        Base; convert n to bases 1, ..., n.
  ṫ€3    Tail each 3; remove the first two elements of each digit array.
      J  Indices of [n]; yield [1].
     ċ   Count the number of times [1] appears in the result to the left.

JavaScript (ES7), 43 40 39 Byte

f=(n,b)=>n<b*b?0:n%b==1&n<b**3|f(n,-~b)

Testfälle

f=(n,b)=>n<b*b?0:n%b==1&n<b**3|f(n,-~b)

console.log('[Truthy]')
console.log(f(5))
console.log(f(73))
console.log(f(101))
console.log(f(1073))
console.log(f(17))
console.log(f(22))
console.log(f(36))
console.log(f(55))
console.log(f(99))
console.log(f(46656))
console.log(f(46657))
console.log(f(46658))
console.log(f(46659))
console.log(f(46660))
console.log(f(46663))
console.log(f(46665))
console.log(f(46666))
console.log(f(46670))
console.log(f(46671))

console.log('[Falsy]')
console.log(f(8))
console.log(f(18))
console.log(f(23))
console.log(f(27))
console.log(f(98))
console.log(f(90))
console.log(f(88))
console.log(f(72))
console.log(f(68))
console.log(f(46661))
console.log(f(46662))
console.log(f(46664))
console.log(f(46667))
console.log(f(46668))
console.log(f(46669))

Kommentiert

f = (n,           // given n = input
        b) =>     // and using b = base, initially undefined
  n < b * b ?     // if n is less than b²:
    0             //   n has less than 3 digits in base b or above -> failure
  :               // else:
    n % b == 1 &  //   return a truthy value if n is congruent to 1 modulo b
    n < b**3 |    //   and n is less than b³ (i.e. has less than 4 digits in base b)
    f(n, -~b)     //   or the above conditions are true for some greater value of b

Python 3 , 50 47 Bytes

-2 Bytes dank @LeakyNun
-1 Bytes dank @Dennis

lambda n:any(i>n/i/i>n%i==1for i in range(2,n))

Probieren Sie es online!

Haskell , 41-40 Bytes

f n=or[mod n k==1|k<-[2..n],k^2<n,n<k^3]

Vielen Dank an @Zgarb für das Golfen ab 1 Byte!

Probieren Sie es online!

Brachylog , 10 Bytes

≥ℕ≜;?ḃ₍Ṫt1

Probieren Sie es online!

05AB1E , 11 8 Bytes

3 Bytes gespart dank Adnan .

Lв3ù€θ1å

Probieren Sie es online!

Erläuterung

Lв            # convert input to bases [1 ... input]
  ʒg3Q}       # keep only elements of length 3
       €θ     # get the last item of each
         1å   # is there any 1?

Gelee , 12 Bytes

bRµL€żṪ€3,1e

Probieren Sie es online!

Mathematica, 43 Bytes

!FreeQ[IntegerDigits[#,2~Range~#],{_,_,1}]&

Probieren Sie es online!

oder Online ausprobieren! (große Zahlen)

Martin Ender sparte 3 Bytes

Wolfram Language (Mathematica) , 35 Byte

Or@@Array[x~Mod~#==1<x/#^2<#&,x=#]&

Probieren Sie es online!

Prüft explizit, ob n% i = 1 und i ² <n <i ³ für eine mögliche Basis i . Für Golfzwecke wird die Ungleichung auf 1 <n / i ² <i umgestellt , so dass sie an die Gleichheit angekettet werden kann.

Sauber , 58 56 Bytes

-2 danke an Dennis

import StdEnv
@n=or[n>m^2&&n<m^3&&n rem m==1\\m<-[2..n]]

Probieren Sie es online!

Schale , 10 Bytes

€;1ṠMo↓2Bḣ

Probieren Sie es online! Ganz in der Nähe der Gelee-Antwort von Dennis .

APL (Dyalog Unicode) , 21 20 14 Bytes ^SBCS

-5 danke an @ngn.

Rein arithmetische Lösung (führt eigentlich keine Basisumrechnungen durch) und damit sehr schnell.

3∊⊢(|×∘⌈⍟)⍨1↓⍳

Probieren Sie es online!

⊢(… )⍨1↓⍳ Auf ein Argument, das aus den 1ndices 1… und dem Argument gestrichen wurde, gilt:

 | der Geschäftsbereich bleibt übrig

 ×∘⌈ mal die aufgerundeten

 ⍟ log _N Argument

3∊ Ist drei ein Mitglied davon?

Pyth , 10 Bytes

}]1>R2jLQS

Überprüfen Sie alle Testfälle.

Schale , 15 Bytes

V§&o=1→o=3LṠMBḣ

Probieren Sie es online!

Erläuterung

V§&(=1→)(=3L)ṠMBḣ  -- implicit input, for example: 5
             ṠMB   -- map "convert 5 to base" over..
                ḣ  --   range [1..5]
                   -- [[1,1,1,1,1],[1,0,1],[1,2],[1,1],[1,0]]
V                  -- does any of the elements satisfy the following
 §&( 1 )( 2 )      --   apply functions 1,2 and join with & (logical and)
         =3L       --     is length equals to 3?
    =1→            --     is last digit 1?

PHP, 48 + 1 Bytes

while(++$b**2<$n=$argn)$n%$b-1|$n>$b**3||die(1);

Ausgänge mit 0für falsch (oder Eingabe 3), 1für wahr.
Laufen Sie als Pipe mit -nRoder versuchen Sie es online .

C 60 Bytes

Eine Funktion, die einen Wert ungleich Null zurückgibt, wenn das Argument als dreistellige Zahl mit der Endung 1 dargestellt werden kann:

i,j;f(n){for(j=0,i=sqrt(n);i>cbrt(n);)j+=n%i--==1;return j;}

Hinweis: Dies funktioniert mit GCC, wo die Funktionen eingebaut sind. Für andere Compiler müssen Sie wahrscheinlich sicherstellen, dass die Argument- und Rückgabetypen bekannt sind:

#include<math.h>

Erläuterung

Die niedrigste Basis, in der n3 Stellen dargestellt sind ⌊∛n⌋, ist und die niedrigste Basis, in der n2 Stellen dargestellt sind, ist⌊√n⌋ dreistellig , . Wir testen also einfach, ob die Zahl mit 1 Modulo für alle Basen im dreistelligen Bereich übereinstimmt. Wir geben die Anzahl der Basen zurück, die die Bedingung erfüllen, wobei wir einen Wert ungleich Null (wahr) oder Null (falsch) angeben.

Testprogramm

Übergeben Sie eine beliebige Anzahl von Eingaben als Positionsparameter:

#include<stdio.h>
int main(int c,char**v)
{
    while(*++v)
        printf("%s => %d\n", *v, f(atoi(*v)));
}

APL (Dyalog Unicode) , 19 Byte ^SBCS

Dennis 'Methode .

(⊂,1)∊2↓¨⊢⊥⍣¯1¨⍨1↓⍳

Probieren Sie es online!

(⊂,1)∊ Ist [1]ein Mitglied von

2↓¨ zwei Elemente fielen aus jedem von

⊢⊥⍣¯1¨⍨ das in jeder der Basen dargestellte Argument

1↓⍳ man ist durch das Argument von den Anfängen abgefallen?

Julia , 31 Bytes

n->any(i>n/i^2>n%i==1for i=2:n)

Probieren Sie es online!

Pyt , 35 33 Bytes

←ĐĐ3=?∧∧:ŕĐ2⇹Ř⇹Ľ⅟⌊⁺3=⇹Đ2⇹Ř%*ž1⇹∈;

Erläuterung:

←ĐĐ                                             Push input onto stack 3 times
   3=?  :                       ;               If input equals 3, execute code after the question mark;otherwise, execute code after the colon. In either case, afterwards, execute the code after the semicolon
      ∧∧                                        Get 'True'
        :                                       Input not equal to 3
         ŕ                                      Remove 'False'
          Đ2⇹Ř                                  Push [2,3,...,n]
              ⇹Ľ⅟⌊⁺                             Push [floor(log_2(n))+1,floor(log_3(n))+1,...,floor(log_n(n))+1]
                   3=                           Is each element equal to 3
                     ⇹                          Swap the top two elements on the stack (putting n back on top)
                      Đ2⇹Ř                      Push [2,3,...,n]
                          %                     Push [n%2,n%3,...,n%n]
                           *                    Multiply [n%x] by the other array (i.e. is floor(log_x(n))+1=3?)
                            ž                   Remove all zeroes from the array
                             1⇹∈                Is 1 in the array?
                                ;               End conditional
                                                Implicit print

Probieren Sie es online!

> <> , 42 Bytes

1<v?)}:{*::+
n~\1-:::**{:}):?!n~:{:}$%1=:?

Probieren Sie es online!

Returns 10für truthy, 00für Falsey.