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

ตัวอย่างเช่นอาร์เรย์ต่อไปนี้ไม่มีนัยสำคัญ:

[1, 2, 3, 4, 3, 4, 5, 5, 5, 4]

เนื่องจากความแตกต่าง (สัมบูรณ์) ที่สอดคล้องกันคือ:

[1, 1, 1, 1, 1, 1, 0, 0, 1]

ซึ่งทั้งหมดมีขนาดเล็กกว่าหรือเท่ากับ1

งานของคุณคือการพิจารณาว่าอาร์เรย์จำนวนเต็มที่กำหนดนั้นไม่มีนัยสำคัญหรือไม่

• คุณอาจคิดว่าอาร์เรย์มีองค์ประกอบอย่างน้อยสององค์ประกอบเสมอ
• ใช้กฎอินพุตและเอาต์พุตมาตรฐาน คุณสามารถรับอินพุต (และเอาท์พุท) ในรูปแบบที่สมเหตุสมผล
• ช่องโหว่เริ่มต้นเป็นสิ่งต้องห้าม
• ค่าความจริง / เท็จต้องชัดเจนและสอดคล้องกัน
• นี่คือโค้ดกอล์ฟดังนั้นคำตอบที่สั้นที่สุดในหน่วยไบต์ชนะ

กรณีทดสอบ

อินพุต -> เอาท์พุท

[1, 2, 3, 4, 3, 4, 5, 5, 5, 4] -> จริง
[1, 2, 3, 4, 5, 6, 7, 8, 9, 8] -> จริง
[3, 3, 3, 3, 3, 3, 3] -> จริง
[3, 4, 4, 4, 3, 3, 3, 4, 4, 4] -> จริง
[1, 2, 3, 4] -> จริง 
[5, 4, 3, 2] -> จริง 
[1, 3, 5, 7, 9, 7, 5, 3, 1] -> false
[1, 1, 1, 2, 3, 4, 5, 6, 19] -> เท็จ
[3, 4, 5, 6, 7, 8, 7, 5] -> false
[1, 2, 4, 10, 18, 10, 100] -> false
[10, 20, 30, 30, 30] -> false

ผมใช้ค่าและtruefalse

เยลลี่ 3 ไบต์

IỊẠ

ลองออนไลน์!

อย่างไร?

เพียงแค่ความท้าทายที่สมบูรณ์แบบสำหรับเยลลี่

ฉันเต็มโปรแกรม

ฉันเพิ่มขึ้น; รับความแตกต่างระหว่างองค์ประกอบต่อเนื่อง
 Ịไม่สำคัญ ABS คืน (หมายเลข) ≤ 1
  Ạทั้งหมด; ส่งกลับ 1 ถ้าองค์ประกอบทั้งหมดเป็นความจริงมิฉะนั้น 0

JavaScript (ES7), 33 29 ไบต์

บันทึกแล้ว 4 ไบต์ขอบคุณ @JohanKarlsson

a=>!a.some(v=>(a-(a=v))**2>1)

อย่างไร?

เมื่อบังคับให้อาร์เรย์อย่างน้อยสององค์ประกอบจะมีการประเมินเพื่อNumber NaNโดยการใช้อินพุตaเป็นตัวแปรที่ถือค่าก่อนหน้าการวนซ้ำครั้งแรกของบางอย่าง ()จะให้ผลลัพธ์ใน([v0, v1, ... ] - a [0]) ** 2 = NaNไม่ว่า ค่าของa [0] ดังนั้นการทดสอบครั้งแรกจะผิดพลาดและการเปรียบเทียบที่แท้จริงเริ่มต้นที่การทำซ้ำครั้งที่ 2 เช่นเดียวกับที่พวกเขาต้องการ

กรณีทดสอบ

let f =

(a,p)=>!a.some(v=>(p-(p=v))**2>1)

console.log(f([1, 2, 3, 4, 3, 4, 5, 5, 5, 4])) // true
console.log(f([1, 2, 3, 4, 5, 6, 7, 8, 9, 8])) // true
console.log(f([3, 3, 3, 3, 3, 3, 3]         )) // true
console.log(f([3, 4, 4, 4, 3, 3, 3, 4, 4, 4])) // true
console.log(f([1, 2, 3, 4]                  )) // true
console.log(f([5, 4, 3, 2]                  )) // true
console.log(f([1, 3, 5, 7, 9, 7, 5, 3, 1]   )) // false
console.log(f([1, 1, 1, 2, 3, 4, 5, 6, 19]  )) // false
console.log(f([3, 4, 5, 6, 7, 8, 7, 5]      )) // false
console.log(f([1, 2, 4, 10, 18, 10, 100]    )) // false
console.log(f([10, 20, 30, 30, 30]          )) // false

Python 3 , 40 ไบต์

f=lambda n,*t:t==()or-2<n-t[0]<=1==f(*t)

ลองออนไลน์!

Mathematica ขนาด 24 ไบต์

Max@Abs@Differences@#<2&

Python 2 , 35 ไบต์

x=input()
while-2<x.pop(0)-x[0]<2:1

มีอยู่ด้วยรหัสสถานะ1สำหรับอาร์เรย์ที่ไม่สำคัญโดยมีรหัสสถานะ0 เป็นอย่างอื่น

ลองออนไลน์!

Husk , 4 ไบต์

ΛεẊ-

ลองออนไลน์!

คำอธิบาย:

ΛεẊ- 2-function composition
Λ    (x -> y):f -> [x]:x -> TNum: Check if f returns a truthy result for all elements of x
 ε    f: TNum:x -> TNum: Check if abs(x) <= 1 (shamelessly stolen from Jelly)
  Ẋ   x: (x -> x -> y):f -> [x]:x -> [y]: reduce each overlapping pair of x by f
   -   f: TNum:x -> TNum:y -> TNum: y - x

อ็อกเทฟ 21 ไบต์

@(x)all(diff(x).^2<2)

ฟังก์ชั่นไม่ระบุชื่อที่อินพุตเวกเตอร์ตัวเลขและ ouputs 1หากไม่มีนัยสำคัญหรือ0อย่างอื่น

ลองออนไลน์!

Haskell , 34 33 ไบต์

all((<2).abs).(zipWith(-)=<<tail)

ลองออนไลน์! -1 ไบต์ต้องขอบคุณ@ user1472751

วิธีแก้ปัญหาแบบไม่มีจุดคือหนึ่ง สองอีกครั้งเพียงหนึ่งไบต์ ( ขอบคุณ -1 ไบต์จาก@Dennis ) สั้นกว่าวิธีแบบเรียกซ้ำ:

f(a:b:r)=2>(a-b)^2&&f(b:r)
f _=1>0

ลองออนไลน์!

Pyth , 6 ไบต์

._MI.+

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

Pyth , 8 ไบต์

.A<R2aVt

ลองออนไลน์!

คำอธิบาย

._MI.+   Full program.

    .+   Deltas.
   I     Is invariant under...
._M      Mapping with Sign. 0 if n == 0, -1 if n < 0, 1 if n > 0.

.A<R2aVt    Full program.

      Vt    Vectorize function, applied on the input zipped with the tail of the input.
     a      Absolute difference.
  <R2       For each, check if it is smaller than 2.
.A          All.

โปรตอน , 41 ไบต์

a=>all(-2<a[i]-a[i+1]<2for i:0..len(a)-1)

ลองออนไลน์!

-16 ไบต์ขอบคุณ Mr. Xcoder
-2 ไบต์
-6 ไบต์ขอบคุณ Mr. Xcoder

Japtap , 6 ไบต์

äa e<2

ลองออนไลน์!

คำอธิบาย

ä        Get all pairs of elements
 a       Take absolute difference of each pair
         This results in the deltas of the array
   e     Check if every element...
    <2   Is less than 2

C # (. NET Core) , 51 45 44 + 18 ไบต์

-1 ไบต์ขอบคุณJeppe Stig Nielsen

a=>a.Zip(a.Skip(1),(x,y)=>x-y).All(x=>x*x<4)

จำนวนไบต์ยังรวมถึง:

using System.Linq;

ลองออนไลน์!

คำอธิบาย:

a =>                      // Take an array of integers as input
    a.Zip(                // Combine each element with corresponding one from:
        a.Skip(1),        //     the input array without first element
        (x, y) => x - y   //     get their difference
    )
    .All(x => x * x < 4)  // Check if all differences are less than 2
                          // (We only care about 0 and 1, and so happens that when they're squared, it works like Abs! Magic!)

Perl 6 , 25 ไบต์

{?(2>all(.[]Z-.skip)>-2)}

ลองออนไลน์!

ควรอ่านได้สวย สิ่งที่เห็นได้ชัดเพียงอย่างเดียวที่นี่คือตัวดำเนินการ zip Zจะหยุดซิปเมื่อรายการที่สั้นกว่าหมดลง (เราลบองค์ประกอบแรกของรายการทางด้านขวา) และตัวห้อยว่างเปล่าที่.[]เรียกว่า Zen slice ให้รายการทั้งหมด .skipส่งคืนรายการโดยไม่มีองค์ประกอบแรก

R , 30 26 ไบต์

cat(all(diff(scan())^2<2))

ลองออนไลน์!

05AB1E , 5 ไบต์

¥Ä2‹P

ลองออนไลน์!

คำอธิบาย

¥        # calculate deltas
 Ä       # absolute values
  2‹     # smaller than 2
    P    # product

โอห์ม v2 , 4 ไบต์

Δ2<Å

ลองออนไลน์!

อย่างไร?

Δ2<Å   ~ Full program.

Δ      ~ Absolute deltas.
 2<    ~ Is smaller than 2?
   Å   ~ Check if all elements are truthy.

PowerShell , 62 ไบต์

param($a)$l=$a[0];($a|?{$_-$l-in1..-1;$l=$_}).count-eq$a.count

ลองออนไลน์!

PowerShell ไม่ได้.mapหรือ.someหรือคล้ายคำสั่งดังนั้นที่นี่เรากำลังตรวจสอบรายบุคคลแต่ละเดลต้า

เรารับอินพุต$aและตั้งค่า$lเท่ากับองค์ประกอบแรก จากนั้นเราก็ห่วงผ่าน$aและนำออกจากแต่ละองค์ประกอบที่|?{...}แตกต่างกัน$_-$lคือช่วง-in 1,0,-1จากนั้นเราตั้งค่า$lเท่ากับองค์ประกอบปัจจุบัน ดังนั้นตอนนี้เรามีชุดขององค์ประกอบที่เดลต้าระหว่างเพื่อนบ้านก่อนหน้าของพวกเขาคือ 1 เราใช้ส่วน.countนั้นและตรวจสอบว่ามันเป็น-eqไปตามลำดับ.countของอาร์เรย์โดยรวมหรือไม่ ถ้าเป็นเช่นนั้นเดลต้าทุกอันจะมีค่า 1 หรือน้อยกว่าดังนั้นจึงเป็นอาร์เรย์ที่ไม่มีนัยสำคัญ ผลลัพธ์บูลีนนั้นถูกทิ้งไว้บนไพพ์ไลน์และเอาต์พุตนั้นเป็นนัย

Python 3 , 45 ไบต์

lambda k:all(-2<x-y<2for x,y in zip(k,k[1:]))

ลองออนไลน์! หรือลองชุดทดสอบ

ขอบคุณJonathan Frechสำหรับ -2 ไบต์

Java (OpenJDK 8) , 78 ไบต์

a->{int p=0,i=1;for(;i<a.length;p+=Math.abs(a[i]-a[i++-1])>1?1:0);return p<1;}

ลองออนไลน์!

MATL ,6 5 ไบต์

d|2<A

-1 ไบต์ขอบคุณGiuseppe

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

anyfixขนาด 9 ไบต์

I€A€2<»/&

ลองออนไลน์!

I€A€2<»/&  Main Link
I          Deltas
 €         For each element
  A        Take its absolute value
   €  »    For each element
    2<     Is it less than two?
       /   Reduce over
        &  Logical AND

นี่เป็นพอร์ตของโซลูชัน 05AB1E ส่วนใหญ่ยกเว้นสิ่งที่แย่มากเพราะ anyfix ไม่มีการตั้งค่าอัตโนมัติและสิ่งดีๆอื่น ๆ

C, 61 56 ไบต์

ขอบคุณ @scottinet สำหรับการบันทึกห้าไบต์!

r;f(a,n)int*a;{for(r=1;--n;r=(*a-*++a)/2?0:r);return r;}

ลองออนไลน์!

C (gcc), 47 ไบต์

r;f(a,n)int*a;{for(r=1;--n;r=(*a-*++a)/2?0:r);}

ลองออนไลน์!

Clojure 35 ไบต์

#(every? #{-1 0 1}(map -(rest %)%))

เรียบร้อยแค่ไหน?

TI-Basic, 6 7 ไบต์

prod(2>abs(ΔList(Ans

หรือ 5 ไบต์หากข้อผิดพลาดนับเป็นค่าส่งคืนที่ถูกต้อง (ส่งคืนERR:ARGUMENTหากไม่มีนัยสำคัญอื่นERR:DOMAIN)

augment(sin⁻¹(ΔList(Ans

JavaScript (ES6), 37 36 ไบต์

(a,u)=>!a.some(e=>(e-=(u=e))>1|e<-1)

แก้ไข: บันทึก 1 ไบต์โดยขโมยเคล็ดลับของ @ Arnauld

Pyth, 7 ไบต์

._I#I.+

ชุดทดสอบ

ส่งคืนจริง / เท็จ

คำอธิบาย:

     .+ Deltas, returns differences between consecutive values.
._      Signum, returns the sign of a number (1, 0, or -1).  Note that this should
             be equal to the input for insignificant arrays.
  I     Tests if it is equal to the input...
   #    For each in the input, and filter out those that aren't...
    I   And make sure none have been filtered out.

Mathematica, 34 ไบต์

Differences@#~MatchQ~{(1|0|-1)..}&

คำอธิบาย

                                 & (* Function *)
Differences                        (* which takes the consecutive differences*)
           @#                      (* of the input list *)
             ~MatchQ~              (* and returns whether it matches *)
                     {(1|0|-1)..}  (* a list consisting of one or more 1s, 0s, or -1s *)

Java (OpenJDK 8) , 60 ไบต์

a->{int r=1,p=a[0];for(int i:a)r|=(r=p-(p=i))*r;return r<2;}

ลองออนไลน์!

• 5 ไบต์ขอบคุณ @Nevay!

Swift 4, 52 bytes

{!zip($0.dropFirst(),$0).map(-).contains{1<abs($0)}}

ชุดทดสอบ:

let isInsignificant: (_ array: [Int]) -> Bool = {!zip($0.dropFirst(),$0).map(-).contains{1<abs($0)}}

let testcases: [(input: [Int], expected: Bool)] = [
    (input: [1, 2, 3, 4, 3, 4, 5, 5, 5, 4], expected: true),
    (input: [1, 2, 3, 4, 5, 6, 7, 8, 9, 8], expected: true),
    (input: [3, 3, 3, 3, 3, 3, 3],          expected: true),
    (input: [3, 4, 4, 4, 3, 3, 3, 4, 4, 4], expected: true),
    (input: [1, 2, 3, 4],                   expected: true ),
    (input: [5, 4, 3, 2],                   expected: true ),
    (input: [1, 3, 5, 7, 9, 7, 5, 3, 1],    expected: false),
    (input: [1, 1, 1, 2, 3, 4, 5, 6, 19],   expected: false),
    (input: [3, 4, 5, 6, 7, 8, 7, 5],       expected: false),
    (input: [1, 2, 4, 10, 18, 10, 100],     expected: false),
    (input: [10, 20, 30, 30, 30],           expected: false),
]


for (caseNumber, testcase) in testcases.enumerated() {
    let actual = isInsignificant(testcase.input)
    assert(actual == testcase.expected,
        "Testcase #\(caseNumber) \(testcase.input) failed. Got \(actual), but expected \(testcase.expected)!")
    print("Testcase #\(caseNumber) passed!")
}

APL, 13 ไบต์

{×/(|2-/⍵)<2}

APL คำตอบแรก \ o /

หมายเหตุ: ฉันเป็นบอตของ Hyper Neutrino ฉันมีอยู่ส่วนใหญ่สำหรับการทดสอบการแชท

คำอธิบาย

{×/(|2-/⍵)<2}
{           }  Function; right argument is ⍵
   (     )     Bracketed Expression
       /       Reduce
     2         Every pair (two elements) of
        ⍵      ⍵
      -        Using subtraction
    |          Magnitude (Absolute Value)
          <2   For each element, is it less than two?
  /            Reduce over
 ×             Multiplication (Product) (All)