给定一个非负整数，以任何一致的整数为基础，返回是否为以1结尾的三位数。换句话说，该数字需要以N为底，N是大于零的整数。

规则

• 这是代码高尔夫球，因此最短的答案会获胜。
• 由于一元的行为很怪异，因此未定义输入3 ₁₀的行为。
• 禁止出现标准漏洞。

例子

真正：

5   
73  
101 
1073
17
22
36
55
99  

假：

8
18
23
27
98
90
88
72
68

少数大量：

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

果冻，7个字节

bRṫ€3ċJ

返回输入为三位数字（以1结尾）的基数（非零为真，零为伪造）。

在线尝试！

怎么运行的

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字节

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

测试用例

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

已评论

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个字节

-2字节由于@LeakyNun
-1由于字节@Dennis

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

在线尝试！

Haskell，41 40字节

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

感谢@Zgarb打高尔夫球1个字节！

在线尝试！

Brachylog，10个字节

≥ℕ≜;?ḃ₍Ṫt1

在线尝试！

05AB1E，11 8字节

感谢Adnan节省了3个字节。

Lв3ù€θ1å

在线尝试！

说明

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?

果冻，12字节

bRµL€żṪ€3,1e

在线尝试！

Mathematica，43个字节

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

在线尝试！

或在线尝试！（大数）

马丁·恩德（Martin Ender）保存了3个字节

Wolfram语言（Mathematica），35个字节

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

在线尝试！

显式检查是否对任何可能的底数i是否为n％i = 1和i ² <n <i ³。为了打高尔夫球，将不等式重新排列为1 <n / i ² <i，以便可以将其链接到等式上。

干净，58个 56字节

-2感谢Dennis

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

在线尝试！

外壳，10个字节

€;1ṠMo↓2Bḣ

在线尝试！与丹尼斯的果冻答案 很接近。

APL（Dyalog Unicode），21 20 14字节^SBCS

-5感谢@ngn。

纯算术解决方案（实际上不执行任何基本转换），因此非常快。

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

在线尝试！

⊢(… )⍨1↓⍳ 在从ndices 1…自变量和自变量中删除的一个上，适用：

 | 该师余数

 ×∘⌈ 乘以四舍五入

 ⍟ log _N参数

3∊ 是其中的三个吗？

Pyth，10个字节

}]1>R2jLQS

验证所有测试用例。

外壳，15个字节

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

在线尝试！

说明

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字节

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

0为虚假（或输入3）退出，1为真。
与管道一起运行-nR或在线尝试。

C，60字节

如果参数可以表示为以1结尾的三位数，则该函数返回非零值：

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

注意：这适用于内置功能的GCC。对于其他编译器，您可能需要确保知道参数和返回类型：

#include<math.h>

说明

在其中最低碱n在3位被表示为⌊∛n⌋，并且其中的最低基n在2位被表示为⌊√n⌋的，所以我们简单地测试的数量是否全等1模的3位数范围内的任何碱。我们返回满足条件的碱基数的计数，并根据情况给出一个非零（真实）或零（虚假）值。

测试程序

传递任意数量的输入作为位置参数：

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

APL（Dyalog Unicode），19字节^SBCS

丹尼斯的方法。

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

在线尝试！

(⊂,1)∊ 是[1]的成员

2↓¨ 从每个元素中删除两个元素

⊢⊥⍣¯1¨⍨ 每个基础中表示的论点

1↓⍳通过论证 从ndices 1 丢掉一个？

朱莉娅，31个字节

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

在线尝试！

Pyt，35 33 字节

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

说明：

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

在线尝试！

> <>，42字节

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

在线尝试！

返回10真假，00假。