ให้ค่าเป็นจำนวนไม่ใช่ค่าลบ, ส่งคืนว่าเป็นตัวเลขสามหลักที่ลงท้ายด้วยหนึ่งในฐานจำนวนเต็มที่สอดคล้องกันหรือไม่ กล่าวอีกนัยหนึ่งตัวเลขต้องแสดงใน base-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

ส่งคืนจำนวนฐาน (ไม่ใช่ศูนย์เป็นความจริง, ศูนย์เป็นเท็จ) ซึ่งอินพุตเป็นตัวเลขสามหลักที่ลงท้ายด้วยหนึ่ง

ลองออนไลน์!

มันทำงานอย่างไร

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 ไบต์

ที่บันทึกไว้ 3 ไบต์ขอบคุณที่Adnan

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=#]&

ลองออนไลน์!

อย่างชัดเจนตรวจสอบว่าn% i = 1และฉัน² <n <i ³ฐานที่เป็นไปได้ฉัน เพื่อจุดประสงค์ในการเล่นกอล์ฟความไม่เท่าเทียมจะถูกจัดใหม่เป็น1 <n / i ² <iเพื่อที่จะได้ถูกล่ามโซ่ไว้บนความเท่าเทียมกัน

ทำความสะอาด , 58 56 ไบต์

-2ขอบคุณเดนนิส

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

ลองออนไลน์!

Huskขนาด 10 ไบต์

€;1ṠMo↓2Bḣ

ลองออนไลน์! ค่อนข้าง ใกล้เคียงกับคำตอบของ Jelly ของ Dennis

APL (Dyalog Unicode) , 21 20 14 ไบต์^SBCS

-5 ขอบคุณ @ngn

โซลูชันทางคณิตศาสตร์ล้วนๆ (ไม่ได้ทำการแปลงพื้นฐานใด ๆ ) และเร็วมาก

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

ลองออนไลน์!

⊢(... )⍨1↓⍳ หนึ่งลดลงจากɩ ndices 1 ... โต้แย้งและข้อโต้แย้งที่ใช้:

 | ส่วนที่เหลือ

 ×∘⌈ คูณปัดเศษขึ้น

 ⍟ log _Nอาร์กิวเมนต์

3∊ สมาชิกสามคนนั้นคืออะไร?

Pyth , 10 ไบต์

}]1>R2jLQS

ตรวจสอบกรณีทดสอบทั้งหมด

Huskขนาด 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สำหรับ falsy (หรืออินพุต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สำหรับเท็จ