ท้าทาย

รับค่าจำนวนเต็มบวกกำหนดว่าเป็นตัวเลขสามเหลี่ยมหรือไม่และส่งออกหนึ่งในสองค่าคงที่และค่าที่ต่างกัน

คำนิยาม

จำนวนสามเหลี่ยมเป็นจำนวนที่สามารถแสดงเป็นผลรวมของจำนวนเต็มบวกติดต่อกันเริ่มต้นที่ 1 พวกเขายังสามารถแสดงออกด้วยสูตรn(n + 1) / 2ที่nเป็นจำนวนเต็มบวกบาง

กรณีทดสอบ

Truthy:

1
3
6
10
15
21
55
276
1540
2701
5050
7626
18915
71253
173166
222111
303031
307720
500500
998991

Falsy:

2
4
5
7
8
9
11
16
32
50
290
555
4576
31988
187394
501500
999999

กฎระเบียบ

• ผลงานของคุณอาจเป็นฟังก์ชั่นหรือโปรแกรม
• คุณอาจจะคิดว่าการป้อนข้อมูลที่เป็นจำนวนเต็มบวกอายุต่ำกว่า 10 6
• คุณต้องเลือกเอาต์พุตสองค่าคงที่และแตกต่างกันเพื่อแยกความแตกต่างของสองหมวดหมู่

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์ในแต่ละภาษาจะชนะ

Haskell , 23 ไบต์

แก้ไข:

• -1 ไบต์: @xnor $ได้กำจัดวงเล็บด้วย

ฟังก์ชั่นที่ไม่ระบุชื่อสละและกลับIntChar

เอาท์พุท'1'สำหรับตัวเลขสามเหลี่ยมและ'0'สำหรับคนอื่น ๆ

(!!)$show.(10^)=<<[0..]

ลองออนไลน์!

• ((!!)$show.(10^)=<<[0..]) 998991ใช้เป็น

• สร้างตัวเลข 1, 10, 100, 1000, ... , แปลงตัวเลขเหล่านั้นเป็นสตริงและเชื่อมโยงมันเข้าด้วยกัน จากนั้นสร้างดัชนีลงในสตริงที่ไม่มีที่สิ้นสุดที่เป็นผลลัพธ์

  "1101001000100001000001000000...

Pythonขนาด 24 ไบต์

lambda n:(8*n+1)**.5%1>0

ลองออนไลน์!

เอาต์พุตFalseสำหรับตัวเลขสามเหลี่ยมTrueสำหรับส่วนที่เหลือ ตรวจสอบว่า8*n+1เป็นตารางที่สมบูรณ์แบบ Python จะใช้เวลากำลังสองที่สมบูรณ์แบบในจำนวนเต็มที่แน่นอนลอยไม่ว่าจะมีขนาดใหญ่เท่าใดจึงไม่มีปัญหาจุดลอยตัว

เยลลี่ 4 ไบต์

R+\ċ

ลองออนไลน์!

อย่างไร?

R+\ċ - Main link: n
R    - range(n)   -> [1,2,3,...,N]
  \  - cumulative reduce by:
 +   -   addition -> [1,3,6,...,T(N)]
   ċ - count occurrences of right (n) in left -> 1 if triangular, 0 otherwise

เรติน่า 10 ไบต์

(^1|1\1)+$

อินพุตไม่พร้อมกัน เอาท์พุทเป็นหรือ01

ลองออนไลน์! (เป็นชุดทดสอบที่แปลงเป็นทศนิยมแบบทศนิยมเพื่อความสะดวก)

คำอธิบาย

นี่คือการฝึกขั้นพื้นฐานที่สุดในการอ้างอิงล่วงหน้า คนส่วนใหญ่คุ้นเคยกับ backreferences ใน regex เช่น(.)\1เพื่อจับคู่อักขระซ้ำ อย่างไรก็ตามรสชาติขั้นสูงบางอย่างช่วยให้คุณสามารถใช้การอ้างอิงย้อนกลับก่อนหรือภายในกลุ่มที่อ้างอิง ในกรณีนี้มักเรียกว่าการอ้างอิงไปข้างหน้า วิธีนี้จะสมเหตุสมผลถ้ามีการอ้างอิงซ้ำ มันอาจไม่ได้กำหนดไว้อย่างดีในการทำซ้ำครั้งแรก แต่ในการทำซ้ำต่อมากลุ่มในภายหลังหรือโดยรอบได้จับบางสิ่งบางอย่างและสามารถนำกลับมาใช้

นี่เป็นวิธีที่ใช้กันมากที่สุดในการนำรูปแบบที่เกิดซ้ำไปใช้กับสายอักขระ ในกรณีนี้เราพยายามจับคู่อินพุทเป็นผลรวมของจำนวนเต็มต่อเนื่องกัน:

(        # This is group 1, which we'll repeat 1 or more times.
  ^1     #   Group 1 either matches a single 1 at the beginning of the string.
|        # or
  1\1    #   It matches whatever the previous iteration matched, plus another
         #   1, thereby incrementing our counter.
         # Note that the first alternative only works on the first iteration
         # due to the anchor, and the second alternative only works *after*
         # the first iteration, because only then the reference is valid.
)+
$        # Finally, we make sure that we can exactly hit the end of the
         # string with this process.

Python 2 , 25 ไบต์

ตรวจสอบว่า ( 8x + 1 ) เป็นหมายเลขตาราง

lambda x:(8*x+1)**.5%1==0

ลองออนไลน์!

Mathematica ขนาด 16 ไบต์

OddQ@Sqrt[1+8#]&

หลักพอร์ตของ XNOR เป็นวิธีการแก้ปัญหาหลาม เอาท์พุทTrueสำหรับตัวเลขสามเหลี่ยมFalseมิฉะนั้น

JavaScript (ES6), 30 27 ไบต์

บันทึก 2 ไบต์ขอบคุณ kamoroso94

f=(n,k)=>n>0?f(n+~k,-~k):!n

กรณีทดสอบ

f=(n,k)=>n>0?f(n+~k,-~k):!n

console.log('Testing truthy test cases');
console.log(f(1))
console.log(f(3))
console.log(f(6))
console.log(f(10))
console.log(f(15))
console.log(f(21))
console.log(f(55))
console.log(f(276))
console.log(f(1540))
console.log(f(2701))
console.log(f(5050))
console.log(f(7626))
console.log(f(18915))
console.log(f(71253))
console.log(f(173166))
console.log(f(222111))
console.log(f(303031))
console.log(f(307720))
console.log(f(500500))
console.log(f(998991))

console.log('Testing falsy test cases');
console.log(f(2))
console.log(f(4))
console.log(f(5))
console.log(f(7))
console.log(f(8))
console.log(f(9))
console.log(f(11))
console.log(f(16))
console.log(f(32))
console.log(f(50))
console.log(f(290))
console.log(f(555))
console.log(f(4576))
console.log(f(31988))
console.log(f(187394))
console.log(f(501500))
console.log(f(999999))

รุ่นที่ไม่ใช่แบบเรียกซ้ำ (ES7), 19 ไบต์

ท่าเรือคำตอบ Adnan ของ

x=>(8*x+1)**.5%1==0

CJam , 11 ไบต์

ri2*_mQ_)*=

เอาท์พุท1สำหรับรูปสามเหลี่ยม0มิฉะนั้น

ลองออนไลน์!

คำอธิบาย

21พิจารณาการป้อนข้อมูล

ri               e# Input integer.             STACK: 21
  2*             e# Multiply by 2.             STACK: 42
    _            e# Duplicate.                 STACK: 42, 42
     mQ          e# Integer square root.       STACK: 42, 6
       _)        e# Duplicate, increment.      STACK: 42, 6, 7
         *       e# Multiply.                  STACK: 42, 42
          =      e# Equal?                     STACK: 1

Brain-Flakขนาด 40 ไบต์

(([{}](((()))<>))<>){<>({}({}({})))}{}{}

ข้าวสาลีตัวช่วยสร้างและฉันมีการต่อสู้กับคำถามนี้ เมื่อเราตัดสินใจที่จะโพสต์โซลูชั่นของเราเราถูกผูกไว้ที่ 42 ไบต์ แต่ฉันพบ 2 ไบต์กอล์ฟของโซลูชั่นของเขา เราตัดสินใจว่าจะนับเป็นตัวแบ่งไทม์เมอร์ (โซลูชันของฉันอยู่ด้านล่าง)

ลองออนไลน์!

คำอธิบาย:

# Set up the stacks like this:  -input
                                     1     -input
                                     1          1
(([{}](((()))<>))<>)                 ^

# Output 1 for triangular and 0 for non-triangular 
{<>({}({}({})))}{}{}

สำหรับคำอธิบายทั้งหมดโปรดดูคำตอบข้าวสาลีของพ่อมด

Brain-Flakขนาด 42 ไบต์

(([({})])<>){(({}())<>{}({})){((<>))}{}{}}

เอาท์พุท0\n(ขึ้นบรรทัดใหม่ตามตัวอักษร) เพื่อความจริงและสตริงว่างสำหรับเท็จ

แนวคิดคือการลบ 1 จากนั้น 2 จากนั้น 3 ไปจนถึงทางเข้า หากคุณกด 0 คุณจะรู้ว่านี่เป็นตัวเลขสามเหลี่ยมดังนั้นคุณสามารถหยุดตรงนั้นได้

ลองออนไลน์! (ความจริง)
ลองออนไลน์! (falsy)

# Push -input on both stacks. One is a counter and the other is a running total
(([({})])<>)

# Count up from -input to 0
{
  # Push the new total which is: (counter += 1) + total (popped) + input (not popped)
  # This effectively adds 1, then 2, then 3 and so on to the running total
  (({}())<>{}({}))
  # If not 0
  {
    # Push to 0s and switch stacks to "protect" the other values
    ((<>))
  # End if
  }
  # Pop the two 0s, or empty the stack if we hit 0
  {}{}
# End loop
}

นี่เป็นวิธีแก้ปัญหา 46 ไบต์ที่ฉันคิดว่าน่าสนใจ

{<>(({}())){({}[()]<>{(<({}[()])>)}{}<>)}{}<>}

เอาท์พุท0\n(ขึ้นบรรทัดใหม่ตามตัวอักษร) สำหรับความจริงแล้วสตริงว่างสำหรับเท็จ

แนวคิดคือการนับถอยหลังจากการป้อนข้อมูลด้วยหมายเลขที่ต่อเนื่องกัน 1 ครั้ง input - (1) - (1,1) - (1,1,1)เช่น ทุกครั้งที่เราลบถ้าเรายังไม่อยู่ที่ 0 เราจะทิ้งมูลค่าไว้ที่กอง ด้วยวิธีนี้ถ้าเราอยู่ที่ 0 และยังคงลบเมื่อเราป๊อปเราจะลบค่าสุดท้ายในสแต็ก ถ้าอินพุตเป็นตัวเลขสามเหลี่ยมเราจะสิ้นสุดที่ 0 และจะไม่ปรากฏ 0

ลองออนไลน์! ความจริง
ลองออนไลน์! falsy

# Implicit input (call it I)

# Until we reach 0, or the stack is empty
{
  # Add 1 to the other stack and push it twice. This is our counter.
  <>(({}()))
  # While counter != 0
  {
    # counter -= 1
    ({}[()]
    # if I != 0 
    <>{
      # I -= 1, and push 0 to escape the if
      (<({}[()])>)
    # End if
    }
    # Pop from the stack with I. This is either the 0 from the if, or I
    {}
    # Get ready for next loop End while
    <>)
  # End While
  }
  # Pop the counter that we were subtracting from
  {}<>
# End Until we reach 0, or the stack is empty.
}

เยลลี่ 5 ไบต์

×8‘Ʋ

ลองออนไลน์!

พื้นหลัง

ให้nเป็นอินพุต ถ้าnเป็นk ^THสามเหลี่ยมจำนวนที่เรามี

ซึ่งหมายความว่าจะมีวิธีแก้ปัญหาตามธรรมชาติหาก1 + 8nเป็นสี่เหลี่ยมจัตุรัสที่แปลกและสมบูรณ์แบบ เห็นได้ชัดว่าไม่จำเป็นต้องตรวจสอบพาริตี้1 + 8n

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

×8‘Ʋ  Main link. Argument: n

×8     Yield 8n.
  ‘    Increment, yielding 8n + 1.
   Ʋ  Test if the result is a perfect square.

PowerShell , 31 30 ไบต์

"$args"-in(1..1e6|%{($s+=$_)})

ลองออนไลน์!

วิธีการบังคับดีและช้าเดียรัจฉาน จัดเรียงอาร์เรย์ของผลรวมทั้งหมดของ 1 ถึง 10 ⁶และดูว่ามีการโต้แย้งไหม

Brain-Flakขนาด 42 ไบต์

(([{}](<((())<>)>))<>){<>({}({}({})))}{}{}

ลองออนไลน์!

คำอธิบาย

เป้าหมายของโปรแกรมนี้คือการสร้างสถานะบนสแต็คสองตัวและดำเนินการอย่างต่อเนื่องบนทั้งสองสแต็คจนกระทั่งหนึ่งในนั้นเป็นศูนย์เราสามารถส่งออกตามสแต็คที่เราอยู่ สิ่งนี้คล้ายกับโปรแกรมที่พิจารณาเครื่องหมายของตัวเลข โปรแกรมเหล่านี้วางnบนหนึ่งกองและ-nอีกอันหนึ่งแล้วเพิ่มหนึ่งรายการและสลับสแต็กจนกว่าหนึ่งในสแต็กจะเป็นศูนย์ หากตัวเลขเป็นค่าลบในตำแหน่งแรกสแต็กแรกจะเข้าศูนย์ถ้าจำนวนเป็นบวกสแต็กอื่นจะเข้าศูนย์

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

แล้วเราจะตั้งค่าสแต็คอย่างไรเพื่อให้การดำเนินการเดียวกันลบตัวเลขที่ต่อเนื่องกันในหนึ่งและลบหนึ่งในอีกอัน? ในแต่ละสแต็คเรามีอินพุตอยู่ด้านบนเพื่อให้สามารถตรวจสอบได้ด้านล่างว่าเรามีความแตกต่างและด้านล่างที่เรามีความแตกต่าง ทุกครั้งที่เราเรียกใช้เราเพิ่ม "ความแตกต่างของความแตกต่าง" ใน "ความแตกต่าง" ปกติและลบสิ่งนั้นออกจากอินพุต สำหรับสแต็กที่ตรวจสอบความเป็นรูปสามเหลี่ยมเราตั้งค่าความแตกต่างเป็นสองเท่าเพื่อ1ให้เราได้จำนวนเต็มที่ต่อเนื่องทุกครั้งที่เราเรียกใช้สำหรับสแต็กอื่นที่เราตั้งค่าไว้เพื่อไม่0ให้เราเปลี่ยนความแตกต่าง วิธีตั้งค่าสแต็กที่จุดเริ่มต้นโดยที่nอินพุต:

-n  -n
 0   1
 1   0

ในที่สุดเมื่อเรายกเลิกเราสามารถใช้ความแตกต่างเหล่านี้เพื่อตรวจสอบว่าสแต็คใดที่เราอยู่เราป๊อปอัพสองค่าและเราได้รับ1สำหรับหมายเลขสามเหลี่ยมและ0สำหรับตัวเลขที่ไม่ใช่สามเหลี่ยม

รหัสข้อเขียน

(([{}](<((())<>)>))<>) Set up the stack
{                      While
 <>                    Switch stacks
 ({}({}({})))          Add bottom to second to bottom, add second to bottom to top
}                      End while
{}{}                   Pop the top two values

นี่เป็นวิธีแก้ปัญหา 50 ไบต์ที่ฉันชอบเช่นกัน

{(({}[()]))}(([[]])<>){({}{}())<>}({}{()<><{}>}{})

ลองออนไลน์!

Cubix , 23 24 25ไบต์

I1Wq/)s.;0..s;p-?\.+O@u

0 สำหรับความจริงและไม่มีอะไร0สำหรับความเท็จ เพิ่มกองกำลังโดยการเพิ่มตัวนับเพิ่มไปยังผลรวมสะสมและเปรียบเทียบกับอินพุต ทีนี้ลองและใส่มันลงในลูกบาศก์ 2x2x2 ทำไม่ได้!

    I 1
    W q
/ ) s . ; 0 . .
s ; p - ? \ . +
    O @
    u .

ลองออนไลน์!

• / สะท้อนกับใบหน้า
• I10\ รับอินพุตจำนวนเต็มกด 1 (ตัวนับ) กด 0 (รวม) และสะท้อนกลับ
• +s;p-ร่างกายห่วง เพิ่มผลรวมและตัวนับวางผลรวมก่อนหน้าเพิ่มอินพุตและลบ
• ? ทดสอบผลลัพธ์ของการลบ
  • สำหรับผลลัพธ์ 0 ที่ดำเนินการตรงไปข้างหน้า\.uO@สะท้อนไปที่ใบหน้าด้านล่าง no-op, U-turn, output และ halt
  • เพื่อผลลัพธ์ที่ดีให้หันไปทางขวาล่างของใบหน้าแล้ว@หยุด
  • สำหรับผลลัพธ์ด้าน;qWs)/suลบการลบการลบแบบหล่นซ้ายให้ใส่อินพุตไปด้านล่างเลื่อนไปทางซ้ายสลับตัวนับและผลรวมตัวนับเพิ่มตัวสะท้อนกลับผลรวมและตัวนับกลับรถไปที่ตัวหลักของวง

05AB1E , 7 6 ไบต์

แก้ไข : ขอบคุณ @Dennis: บันทึกไบต์เนื่องจากฉันลืมเกี่ยวกับตัวดำเนินการที่เพิ่มขึ้น

8*>t.ï

ลองออนไลน์!

nเป็นสามเหลี่ยมถ้าsqrt(8n + 1)เป็นจำนวนเต็ม

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

8* # multiply implicit input by 8
  > # add one
   t # sqrt
    .ï # is integer

Perl 6 , 17 ไบต์

{$_∈[\+] 1..$_}

การตรวจสอบเพียงแค่ว่า$_ใส่ฟังก์ชั่นที่มีค่าเท่ากับใด ๆ (1, 1+2, ..., 1+2+...+$_)ขององค์ประกอบของการลดลงนอกจากสามเหลี่ยม

อลิซ , 38 22 ไบต์

จำนวนไบต์ที่บันทึกไว้ต้องขอบคุณ Martin และ Leo

/ i \ 2 * .2RE.h * -n / o @

มีการขึ้นบรรทัดใหม่ เอาท์พุท1สำหรับรูปสามเหลี่ยม0มิฉะนั้น

ลองออนไลน์!

คำอธิบาย

วิธีนี้ใช้วิธีการเดียวกับคำตอบ CJamของฉันเท่านั้นที่ไม่แน่นอน ในรูปแบบเชิงเส้นโปรแกรมจะกลายเป็น

i2*.2RE.h*-no@

โดยที่iและoอยู่ในโหมดปกติ

พิจารณาการป้อนข้อมูล21เป็นตัวอย่าง

i         Input integer                       STACK: 21
2*        Multiply by 2                       STACK: 42
.         Duplicate                           STACK: 42, 42
2RE       Integer square root                 STACK: 42, 6
.         Duplicate                           STACK: 42, 6, 6
h         Increment                           STACK: 42, 6, 7
*         Multiply                            STACK: 42, 42
-         Subtract                            STACK: 0
n         Logical negation                    STACK: 1
o         Output integer                      STACK:
@         End program

Japt , 10 7 ไบต์

บันทึก 3 ไบต์ด้วย @Luke และ @ETHproductions

*8Ä ¬v1

ลองออนไลน์!

คำอธิบาย:

*8Ä ¬v1
    ¬    // Square root of:
*8       //   Input * 8
  Ä      //   +1
     v1  // Return 1 if divisible by 1; Else, return 0

õ å+ øU

คำอธิบาย:

õ å+ øU
õ           // Create a range from [1...Input]
  å+        // Cumulative reduce by addition
     øU     // Does it contain the input?

ลองออนไลน์!

R , 23 19 ไบต์

วิธีการที่คล้ายกันเป็นคำตอบอื่น ๆ ตรวจสอบเพื่อดูว่า8x+1เป็นตารางที่สมบูรณ์แบบ
-4 ไบต์ขอบคุณ Giuseppe และ MickyT

!(8*scan()+1)^.5%%1

ลองออนไลน์!

MATL , 5 ไบต์

t:Ysm

ลองออนไลน์!

คำอธิบาย:

t       % Duplicate input
 :      % Range(1, input)
  Ys    % Cumulative sum. This will push the first *n* triangular numbers
    m   % ismember. Pushes true if the input is contained within the array we just pushed

แบตช์ 72 ไบต์

@set/aj=i=0
:l
@if %1% gtr %j% set/aj+=i+=1&goto l
@if %1==%j% echo 1

แสดงผล 1 เมื่อสำเร็จไม่มีอะไรล้มเหลว ใช้งานได้เป็นศูนย์เช่นกันแม้ว่าจะไม่ได้ถามด้วยเหตุผลบางประการ

JavaScript (ES7), 19 18 ไบต์

จากคำตอบของฉันกับคำถามที่เกี่ยวข้อง

เอาท์พุทfalseสำหรับตัวเลขสามเหลี่ยมหรือที่trueไม่ใช่สามเหลี่ยมตามที่อนุญาตโดย OP

n=>(8*n+1)**.5%1>0

ลองมัน

f=
n=>(8*n+1)**.5%1>0
oninput=_=>o.innerText=f(+i.value)

<input id=i type=number><pre id=o>

PHP, 30 ไบต์

พิมพ์ 1 สำหรับจริงและไม่มีอะไรที่เป็นเท็จ

<?=fmod(sqrt(8*$argn+1),2)==1;

ลองออนไลน์!

fmod

PHP, 37 ไบต์

พิมพ์ 1 สำหรับจริงและไม่มีอะไรที่เป็นเท็จ

<?=($x=sqrt($q=2*$argn)^0)*$x+$x==$q;

ลองออนไลน์!

Mathematica ขนาด 28 ไบต์

!Accumulate@Range@#~FreeQ~#&

Pari / GPขนาด 18 ไบต์

n->issquare(8*n+1)

ลองออนไลน์!

มีในตัวเพื่อทดสอบว่าหมายเลขนั้นเป็นตัวเลขโพลิกอนหรือไม่ แต่จะมีความยาวหนึ่งไบต์

Pari / GP , 19 ไบต์

n->ispolygonal(n,3)

ลองออนไลน์!

Excel, 31 22 ไบต์

บันทึกไปแล้ว 9 ไบต์ด้วย Octopus

เอาต์พุตTRUEสำหรับตัวเลขสามเหลี่ยม FALSEอื่น ตรวจสอบว่า8*n+1เป็นตารางที่สมบูรณ์แบบ

=MOD(SQRT(8*B1+1),1)=0

Brachylogขนาด 5 ไบต์

≥ℕ⟦+?

ลองออนไลน์!

คำอธิบาย

≥ℕ⟦+?
≥ℕ     There is a number from 0 to {the input} inclusive
  ⟦    such that the range from 0 to that number
   +   has a sum
    ?  that equals the input

ฟูริเยร์ 26 ไบต์

I~X1(&N^*N/2{X}{1~O}N=X)Oo

ลองออนไลน์!

Python - 52 ไบต์

หมายเหตุ: ฉันรู้ว่าคำตอบของงูหลามอีกสองคำนั้นสั้นกว่ามาก แต่นี่เป็นวิธีเก่าแก่ของอัลกอริธึมมากกว่า

n=input();i=s=0
while s<n:s=(i*i+i)/2;i+=1
print s>n

APL (Dyalog) 6 ไบต์

⊢∊+\∘⍳

ลองออนไลน์!

คำอธิบาย

⊢∊+\∘⍳
      ⍳                 Creates a range from 1 to the right_argument
  +\                    Cumulative sum of this range; 1 1+2 1+2+3 .. 1+2+..+n. These are the triangular numbers
⊢∊                      Does the right argument belong to this list of integers in this cumulative sum

เอาต์พุต0สำหรับ false และ1true

TI-BASIC, 10 7 ไบต์

-3 ขอบคุณ@lirtosiast

:not(fPart(√(8Ans+1

Xใช้เวลาในการป้อนข้อมูล ตรวจสอบว่า√(8X+1)เป็นจำนวนเต็มหรือไม่