Negatif olmayan bir tamsayı verildiğinde, tutarlı bir tamsayı tabanında biten üç basamaklı bir sayı olup olmadığını döndürün. Başka bir deyişle, sayının N bazında gösterilmesi gerekir, N sıfırdan büyük bir tamsayıdır.

kurallar

• Bu kod golf , bu yüzden en kısa cevap kazanır.
• Tekli davranır garip bir şekilde yana, giriş 3 davranış ₁₀ tanımlanmamış.
• Standart boşluklar yasaktır.

Örnekler

Doğru:

5   
73  
101 
1073
17
22
36
55
99  

Yanlış:

8
18
23
27
98
90
88
72
68

Çok fazla sayıda avuç:

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

Jöle , 7 bayt

bRṫ€3ċJ

Girdide biten üç basamaklı bir sayı olan taban sayısını (sıfır olmayan, hakikaten, sıfır sahtedir) döndürür.

Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

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

Test durumları

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

Yorumlananlar

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 bayt

-2 sayesinde bayt @LeakyNun
-1 bayt sayesinde @Dennis

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

Çevrimiçi deneyin!

Haskell , 41 40 bayt

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

1 baytlık golf oynamak için @ Zgarb'a teşekkürler!

Çevrimiçi deneyin!

Brachylog , 10 bayt

≥ℕ≜;?ḃ₍Ṫt1

Çevrimiçi deneyin!

05AB1E , 11 8 bayt

Adnan sayesinde 3 byte kurtarıldı .

Lв3ù€θ1å

Çevrimiçi deneyin!

açıklama

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?

Jöle , 12 bayt

bRµL€żṪ€3,1e

Çevrimiçi deneyin!

Mathematica, 43 bayt

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

Çevrimiçi deneyin!

veya Çevrimiçi deneyin! (büyük sayılar)

Martin Ender 3 bayt kurtardı

Wolfram Dili (Mathematica) , 35 bayt

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

Çevrimiçi deneyin!

Herhangi bir olası baz i için n% i = 1 ve i ² <n <i ³ olup olmadığını açıkça kontrol eder . Golf oynamak için eşitsizlik 1 <n / i ² <i olarak yeniden düzenlenir , böylece eşitlik üzerine zincirlenebilir.

Temiz , 58 56 bayt

-2 Dennis sayesinde

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

Çevrimiçi deneyin!

Kabuğu , 10 bayt

€;1ṠMo↓2Bḣ

Çevrimiçi deneyin! Dennis'in Jelly cevabına oldukça yakın .

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

-5 @ngn sayesinde.

Tamamen aritmetik çözüm (aslında herhangi bir temel dönüşüm yapmaz) ve dolayısıyla çok hızlı.

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

Çevrimiçi deneyin!

⊢(... )⍨1↓⍳ biri düştü üzerinde ɩ 1 ... argüman ve argüman ndices, geçerlidir:

 | bölüm kalanları

 ×∘⌈ yuvarlama süreleri

 ⍟ log _N Argümanı

3∊ üç üye mi?

Pyth , 10 bayt

}]1>R2jLQS

Tüm test durumlarını doğrulayın.

Kabuğu , 15 bayt

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

Çevrimiçi deneyin!

açıklama

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 bayt

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

ile çıkış 0için falsy (veya giriş 3), 1truthy için.
Pipe ile çalıştırın -nRveya çevrimiçi deneyin .

C, 60 bayt

Bağımsız değişken 1'de biten üç basamaklı bir sayı olarak gösterilebiliyorsa sıfır olmayan bir işlev:

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

Not: Bu, işlevlerin yerleşik olduğu GCC ile çalışır. Diğer derleyiciler için muhtemelen argüman ve dönüş tiplerinin bilindiğinden emin olmanız gerekir:

#include<math.h>

açıklama

Ki burada düşük taban n3 basamaklı temsil olduğu ⌊∛n⌋ve içinde en düşük taban n2 basamağı temsil olduğu ⌊√n⌋1 ila 3 haneli aralığında herhangi bir bazlar modulo sayı uyumlu olup olmadığını böylece sadece test. Durumu sağlayan, sıfır olmayan (truthy) veya sıfır (falsy) değeri uygun şekilde veren baz sayısının sayısını veririz.

Test programı

Konumsal parametreler olarak istediğiniz sayıda girişi iletin:

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

APL (Dyalog Unicode) , 19 bayt ^SBCS

Dennis'in yöntemi .

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

Çevrimiçi deneyin!

(⊂,1)∊ Mı [1]bir üyesi

2↓¨ her birinden iki öğe düştü

⊢⊥⍣¯1¨⍨ bazların her birinde temsil edilen argüman

1↓⍳ biri argüman boyunca 1ndices 1'den düştü ?

Julia , 31 bayt

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

Çevrimiçi deneyin!

Pyt , 35 33 bayt

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

Açıklama:

←ĐĐ                                             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

Çevrimiçi deneyin!

> <> , 42 bayt

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

Çevrimiçi deneyin!

İade 10truthy için, 00Falsey için.