ท้าทาย

เขียนโปรแกรมที่ใช้อาร์เรย์จำนวนเต็ม 4 ตัว ( ซึ่งหมายถึงลำดับของตัวเลขที่สร้างโดยอัลกอริธึมที่แน่นอน ) และส่งคืนจำนวนเต็มถัดไปที่จะตามมา

เราจะใช้อัลกอริธึมการบวกการลบการคูณและการหารอย่างง่าย ๆ ด้วยรูปแบบคงที่เท่านั้น (เช่นไม่มีตัวแปร)

สำหรับการหารเราจะใช้floorค่าจำนวนเต็ม: 133/4 = 33และ33/4 = 8

คุณสามารถสมมติว่าจะมีค่าส่งคืนที่ถูกต้องหนึ่งค่าเสมอ

กรณีทดสอบ

[14,24,34,44] ควรกลับ 54 (อัลกอริธึมเพิ่มเติม)

[105,45,-15,-75] ควรกลับมา -135 (อัลกอริทึมการลบ)

[5,25,125,625] ควรกลับ 3125 (อัลกอริทึมแบบ multiplicative)

[256,64,16,4] ควรกลับ 1 (อัลกอริทึมการหาร)

กฎทั่วไป

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

05AB1E , 18 16 18 ไบต์

D¥¬QPi`+s-ë`r/s\*î

คำอธิบาย

D                   # duplicate
 ¥                  # delta's
  ¬Q                # compare first delta to the other deltas
    P               # product (1 if all deltas are equal, otherwise 0)
     i              # if 1 (we're dealing with addition or subtraction)
      `+s-          # add the difference between the elements to the last element
          ë         # else (we're dealing with multiplication or division)
           `r/      # divide the 2nd element by the 1st
              s\*   # multiply with the 4th element
                 î  # round up

ลองออนไลน์!

Javascript (ES6),  44   42  44 ไบต์ (คงที่)

(a,b,c,d)=>a-b+d-c?d/(a<b?a/b:a/b|0)|0:d+c-b

บันทึก 2 ไบต์ตามคำแนะนำของ IsmaelMiguel
รุ่นที่แก้ไขสำหรับ[2,1,0,0]และ[1,0,0,0]ตามที่แนะนำโดย edc65

รุ่น 30 ไบต์

สำหรับบันทึกความพยายามครั้งแรกของฉันคือ32 30 ไบต์ แต่ขาดการสนับสนุน () สำหรับการแบ่ง นอกจากนี้ยังล้มเหลวสำหรับกรณีพิเศษเช่นและ[2,1,0,0][1,0,0,0]

(a,b,c,d)=>c-2*b+a?d*c/b:d+c-b

การสาธิต

var f =
(a,b,c,d)=>a-b+d-c?d/(a<b?a/b:a/b|0)|0:d+c-b

var test = [
  [ 14, 24, 34, 44 ],     // should return 54 (addition Algorithm)
  [ 105, 45, -15, -75 ],  // should return -135 (subtraction algorithm)
  [ 5, 25, 125, 625 ],    // should return 3125 (multiplicative algorithm)
  [ 256, 64, 16, 4 ],     // should return 1 (division algorithm)
  [ 260, 65, 16, 4 ],     // should return 1 (division algorithm with floor())
  [ 2, 1, 0, 0 ],         // should return 0 (special case of division algorithm)
  [ 1, 0, 0, 0 ]          // should return 0 (special case of division algorithm)
];

test.forEach(l => console.log('[' + l.join`, `+ '] => ' + f(...l)));

Brachylog , 37 33 27 ไบต์

b:[E]cL,?:Iz{:+a|:*a|:/a}Lt

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

ที่บันทึกไว้ 10 ไบต์ขอบคุณที่ @LeakyNun

คำอธิบาย

Input = [A:B:C:D]

b:[E]cL,     L = [B:C:D:E]
?:Iz         Create the list [[B:I]:[C:I]:[D:I]:[E:I]]
{            Either…
    :+a          Sum all couples of that list
|            or…
    :*a          Multiply all couples of that list
|            or…
    :/a          Integer divide all couples of that list
}L          The result is L
t           Output is the last element of L

ดังที่ LeakyNun ชี้ให้เห็นว่าเราไม่จำเป็นต้องใช้ตัวลบเพราะIสามารถเป็นจำนวนเต็มใด ๆ ได้

Haskell, 65 ไบต์

f l@[a,b,c,d]|[a,b..d]==l=d+b-a|z<-b+0^b=div(d*b)$a-mod(max b a)z

Python 2, 40 ไบต์

lambda(a,b,c,d):[d+c-b,d*c/b][c-2*b+a>0]

มันเป็นคำตอบของ JS ที่ได้รับการโอนย้ายไปยัง Python (ขอบคุณ @LeakyNun!) วิธีการก่อนหน้าของฉันมีความยาวน่าขัน แต่นี่คือ:

Python 2, 169 166 ไบต์

ระดับที่สองและสามเป็นแท็บดิบและแท็บดิบบวกพื้นที่ตามลำดับซึ่งเล่นจริงๆไม่ดีกับ Markdown เพื่อให้แท็บได้ถูกแทนที่ด้วย 2 คัน

x=input()
q='%d%s%d'
for i in range(max(x)):
 for o in'+-*/':
  a=1
  for e,n in zip(x,x[1:]):
   try:1/(eval(q%(e,o,i))==n)
   except:a=0
  if a:print eval(q%(x[-1],o,i))

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

ฉันแน่ใจว่ามีวิธีที่ดีกว่าที่นี่นี่เป็นวิธีที่ไร้เดียงสา

TSQL ขนาด 55 ไบต์

สคริปต์นี้กำลังพยายามเพิ่มและลบในการตรวจสอบเดียวกันจากนั้นจะพยายามคูณหากล้มเหลวจะต้องมีการหาร

DECLARE 
@1 INT=6561,
@2 INT=729,
@3 INT=81,
@  INT=9

PRINT IIF(@2-@1=@-@3,@*2-@3,IIF(@1*@2=@3,@*@1,sqrt(@)))

ซอ

C #, 63 ไบต์

int f(int[]x)=>2*x[1]-x[0]==x[2]?x[3]+x[1]-x[0]:x[3]*x[1]/x[0];

ตรวจสอบว่าความแตกต่างระหว่างองค์ประกอบที่หนึ่งและสองจะเหมือนกันกับความแตกต่างระหว่างองค์ประกอบที่สองและสาม ถ้าเป็นเช่นนั้นมันจะบวก / ลบมิฉะนั้นจะทำการคูณ / หาร

JavaScript, 73 ไบต์

(a,b,c,d)=>(x=b-a,c-b==x&&d-c==x)?d+x:(x=b/a,b*x|0==c&&c*x|0==d)?d*x|0:-1

การทดสอบ :

console.log(s.apply(null,[14,24,34,44]), 54);
console.log(s.apply(null,[105,45,-15,-75]), -135);
console.log(s.apply(null,[5,25,125,625]), 3125);
console.log(s.apply(null,[256,64,16,4]), 1);

console.log(s.apply(null,[2,1,0,0]),0);
console.log(s.apply(null,[1,0,0,0]),0);
console.log(s.apply(null,[-325,-82,-21,-6]),-1);

console.log(s.apply(null,[-1,-1,-1,-1]),-1);
console.log(s.apply(null,[0,0,0,0]),0);

ทำงานได้สำหรับพวกเขาทั้งหมด

GameMaker Language, 70 ไบต์

a=argument0;If a[3]+a[1]=a[2]*2return a[4]*2-a[3]return a[4]*a[4]/a[3]

R, 68 74

อาร์เรย์: 68 ไบต์

function(x)if(x[2]-x[1]==x[3]-x[2])x[4]+x[2]-x[1]else x[4]%/%(x[1]%/%x[2])

> (function(x)if(x[2]-x[1]==x[3]-x[2])x[4]+x[2]-x[1]else x[4]*x[2]/x[1])(c(14,24,34,44))
[1] 54

4 อินพุต: 45 ไบต์

function(a,b,c,d)if(b-a==c-b)d+b-a else d*b/a

ทางออกโบนัสด้วย log , exp, var71 ไบต์

if(var(v<-diff(x<-scan(,1)))==0)x[4]+v[1]else x[4]*exp(diff(log(x)))[1]

update: การหารจำนวนเต็ม

Java, 125 123 ไบต์

แข็งแรงเล่นกอล์ฟ:

int m(int[]a){int r=(a[1]>a[0])?a[1]/a[0]:a[0]/a[1];return(a[0]-a[1]==a[1]-a[2])?a[3]-a[0]+a[1]:(a[0]<a[1])?a[3]*r:a[3]/r;}

Ungolfed:

int m(int[] a)
{
    int r = (a[1] > a[0]) ? a[1] / a[0] : a[0] / a[1];
    return (a[0] - a[1] == a[1] - a[2]) ? a[3] - a[0] + a[1] : (a[0] < a[1]) ? a[3] * r : a[3] / r;
}

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

ลองใช้: https://ideone.com/nELH5I

TI-Basic, 37 ไบต์

ใช้งานได้กับเครื่องคิดเลข TI-83/84

Input L1                     gets input into an array
L1(4)²/L1(3                  calculate the fifth number in a geometric series
If not(sum(ΔList(ΔList(L1    if ΔList(ΔList(L1)) yields an array of all zeroes
L1(4)2-L1(3                  calculate the fifth number in an arithmetic series
                             Ans is implicitly returned

Python 2, 75 66 65 61 ไบต์

lambda(a,b,c,d):d*2-c if d-c==b-a else d*b/a or b and d/(a/b)

นานกว่ารายการ 38 ไบต์ก่อนหน้าของฉันซึ่งไม่รองรับชุดส่วนอย่างถูกต้อง (เช่นเดียวกับที่คนอื่นไม่ได้ทำ)

กรณีทดสอบและกรณีขอบเพิ่มเติมอยู่ในideone

หมายเหตุ: การแบ่งจำนวนเต็มเชิงลบที่นี่ถูกกำหนดให้เป็นมีที่เหลือที่มีเครื่องหมายเดียวกันเป็นตัวหารดังนั้น-81/4จะเป็น-21กับส่วนที่เหลือของ3และ-81/-4จะเป็นกับส่วนที่เหลือของ20-1

เยลลี่ 14 ไบต์

ṪḤ_ṪµṪ²:ṪµIE$?

ลองออนไลน์!

ṪḤ_ṪµṪ²:ṪµIE$?  Main Link =
             ?  If
          IE$   [condition]
          I     The differences between consecutive elements
           E    Is equal
ṪḤ_Ṫ            [then]
Ṫ               The last element
 Ḥ              Doubled
  _             Minus
   Ṫ            The last element (second-last of original list)
    µṪ²:Ṫµ      [else]
     Ṫ          The last element
      ²         Squared
       :        Divided by
        Ṫ       The last element (second-last of original list)

Pyth, 18 ไบต์

?-+vzJEyQ/^E2J-yEJ

ยอมรับอินพุตเป็นรายการค่าคั่นด้วยบรรทัดใหม่

ลองออนไลน์!

คำอธิบาย:

?                         If
 -                          the following are not equal:
  +vzJE                      the sum of first and third values (and call the third value J)
       yQ                    and the second value * 2;
                            (i.e. if it is not an additive or subtractive formula)
          ^E2             Then: square the fourth value
         /   J              and divide by the third
?                         Else:
               yE           double the fourth value
              -  J          and subtract the third