আমি কি নগণ্য অ্যারে?

Question

একটি তুচ্ছ অ্যারে ধনাত্মক পূর্ণসংখ্যার একটি অ্যারে, যেখানে পরপর উপাদানগুলির মধ্যে পরম পার্থক্যগুলি 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] -> মিথ্যা
[1, 1, 1, 2, 3, 4, 5, 6, 19] -> মিথ্যা
[3, 4, 5, 6, 7, 8, 7, 5] -> মিথ্যা
[1, 2, 4, 10, 18, 10, 100] -> মিথ্যা
[10, 20, 30, 30, 30] -> মিথ্যা

আমি মান trueএবং ব্যবহার false।

Comments

সত্যবাদী / মিথ্যা মানগুলি কি আমাদের পছন্দের ভাষাতে সত্যবাদী / মিথ্যা হতে হবে, বা আমরা কোনও দুটি স্বতন্ত্র এবং সামঞ্জস্যপূর্ণ মান ব্যবহার করতে পারি?

— মার্টিন এন্ডার

@ মার্টিনএেন্ডার যে কোনও দুটি স্বতন্ত্র এবং সামঞ্জস্যপূর্ণ মান। দেরী প্রতিক্রিয়ার জন্য পিএস দুঃখিত

পাঠ্যটি বলেছে যে আপনাকে পূর্ণসংখ্যার একটি অ্যারে দেওয়া হবে তবে এটি কেবল ধনাত্মক পূর্ণসংখ্যার অ্যারেগুলি তুচ্ছ হতে পারে। আমাদের কি নেতিবাচক পূর্ণসংখ্যার অ্যারের জন্য প্রস্তুত থাকা উচিত?

— মার্ক এস।

Answer 1

জেলি , 3 বাইট

IỊẠ

এটি অনলাইন চেষ্টা করুন!

কিভাবে?

জেলি জন্য ঠিক নিখুঁত চ্যালেঞ্জ।

আমি পুরো প্রোগ্রাম।

আমি বৃদ্ধি; একটানা উপাদানগুলির মধ্যে পার্থক্য পান।
 Ị তুচ্ছ; রিটার্ন অ্যাবস (সংখ্যা) ≤ 1।
  Ạ সব; সমস্ত উপাদান সত্যবাদী হলে 1 প্রদান করে, অন্যথায় 0।

Comments

Pএটি কাজ করবে না, কারণ সমস্ত পার্থক্য যদি 1এটি আউটপুট হত 1তবে তাদের মধ্যে একটি যদি 0তা আউটপুট হত 0? এবং যদি একটি পার্থক্য ছিল 5তবে 0এটি কি এখনও করা হত 0?

— তাস

"ইতিবাচক পূর্ণসংখ্যা" প্রয়োজনীয়তা সম্পর্কে কী?

— 3D1T0R

Answer 2

জাভাস্ক্রিপ্ট (ES7), 33 29 বাইট

@ জোহানকার্লসনকে 4 টি বাইট সংরক্ষণ করা হয়েছে

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

কিভাবে?

যখন জোর করা হয় Number, কমপক্ষে দুটি উপাদানের অ্যারেগুলিতে মূল্যায়ন করা হয় NaN। ইনপুট পুনরায় ব্যবহার একটি হিসাবে পরিবর্তনশীল পূর্ববর্তী মান অধিষ্ঠিত, প্রথম পুনরাবৃত্তির কিছু () সবসময় ফলাফল ([v0, v1 এ, ...] - একটি [0]) ** 2 = NaN , সেটা ব্যাপার একটি [0] এর মান । সুতরাং, প্রথম পরীক্ষাটি সর্বদা মিথ্যা এবং সত্যিকারের তুলনাগুলি ২ য় পুনরাবৃত্তিতে শুরু হয় ঠিক যেমনটি তারা বোঝাতে চেয়েছিল।

পরীক্ষার মামলা

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

Comments

29 বাইট:a=>!a.some(v=>(a-(a=v))**2>1)

— জোহান কার্লসন

@ জোহানকার্লসন আহা হ্যাঁ, ইনপুটটিতে কমপক্ষে 2 টি উপাদান থাকার গ্যারান্টি দেওয়া হয়েছে, তাই এটি নিরাপদ। অনেক ধন্যবাদ!

— আর্নল্ড

Answer 3

পাইথন 3 , 40 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Answer 4

গণিত, 24 বাইট

Max@Abs@Differences@#<2&

Comments

#==Clip@#&@*Differencesএক বাইট খাটো।

— মিশা লাভরভ

Answer 5

পাইথন 2 , 35 বাইট

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

অন্যথায় স্থিতি কোড 0 সহ তুচ্ছ অ্যারেগুলির জন্য স্থিতি কোড 1 সহ উপস্থিত রয়েছে ।

এটি অনলাইন চেষ্টা করুন!

Answer 6

কাস্তে , 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

Answer 7

অক্টাভা , 21 বাইট

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

অজ্ঞাতনামা ফাংশন যা কোনও সংখ্যক ভেক্টরকে ইনপুট করে এবং 1তুচ্ছ বা 0অন্যথায় আউটপুট দেয় ।

এটি অনলাইন চেষ্টা করুন!

Answer 8

হাস্কেল , 34 33 বাইট

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

এটি অনলাইন চেষ্টা করুন! -1 বাইট @ ইউজার 1472751 ধন্যবাদ

---

বিন্দু-মুক্ত সমাধান এক দুই আবার মাত্র এক বাইট ( -1 থেকে বাইট ধন্যবাদ @Dennis রিকার্সিভ পদ্ধতির চেয়ে খাটো):

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

এটি অনলাইন চেষ্টা করুন!

Answer 9

পাইথ , 6 বাইট

._MI.+

সমস্ত পরীক্ষার কেস যাচাই করুন।

---

পাইথ , 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.

Comments

আমি I#পরিবর্তে কেন ভেবেছিলাম আমার কোনও ধারণা নেই M।

— স্টিভেন এইচ।

Answer 10

প্রোটন , 41 বাইট

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

এটি অনলাইন চেষ্টা করুন!

মিঃ এক্সকোডারকে
-১ by বাইট ধন্যবাদ -২ বাইটস -২ বাইটস
মিঃ এক্সকোডারকে ধন্যবাদ

Comments

49 বাইট (-16 বাইট)

— মিঃ এক্সকোডার

@ মিঃ এক্সকোডার আমার ধারণা স্থানের জায়গাটি <2 forবাদ দেওয়া যায়।

— জোনাথন ফ্রেচ

@ জোনাথনফ্রেচ

— মিঃ এক্সকোডার

@ মিঃ এক্সকোডার ওহ হ্যাঁ আমি জানি না আমি এই সমস্ত ক্রেজি ফাংশন চেইনিংয়ের সাথে কী ভাবছিলাম। ধন্যবাদ! : ডি

— হাইপারনিউট্রিনো

Answer 11

জাপট , 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

Answer 12

সি # (.নেট কোর) , 51 45 44 + 18 বাইট

-1 বাইট জেপ্প স্টিগ নীলসেনকে ধন্যবাদ

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

Comments

সামান্য উন্নতি a=>a.Zip(a.Skip(1),(x,y)=>x-y).All(x=>x*x<4):, এটি অস্বীকার এড়ানো !।

— জেপ্পে স্টিগ নীলসেন

@ জেপ্পস্টিগ নিলসন দুর্দান্ত, ধন্যবাদ!

— গ্রেজগোর্জ পুয়াওস্কি

Answer 13

পার্ল 6 , 25 বাইট

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

এটি অনলাইন চেষ্টা করুন!

এটি বেশ পঠনযোগ্য হওয়া উচিত। এখানে কেবলমাত্র কম স্পষ্ট জিনিস হ'ল জিপ অপারেটর Zসংক্ষিপ্ত তালিকাটি শেষ হয়ে গেলে জিপ করা বন্ধ করবে (আমরা তালিকার প্রথম উপাদানটি ডানদিকে সরিয়ে ফেলব) এবং খালি সাবস্ক্রিপ্ট .[], যাকে জেন স্লাইস বলে, পুরো তালিকা দেয়। .skipপ্রথম উপাদান ছাড়াই তালিকাটি প্রদান করে।

Comments

এই দুটি স্থান কি সত্যিই প্রয়োজনীয়?

— জোনাথন ফ্রেচ

@ জোনাথনফ্রেচ: সঠিকটি সম্ভবত না। এছাড়াও আমি কেবল বুঝতে পারি যে .rotateএখানে এখানে দরকার নেই।

— রামিলিজ

মুরগি, এমনকি বামটিকেও সরিয়ে ফেলা যায়। হোয়াইটস্পেসের প্রয়োজন কোথায় এবং এটি কোথায় নেই তা আমি সত্যিই বুঝতে পারি না ...

— রামিলিজ

আপনি লিখতে পারেন -2<পরিবর্তে -1≤এবং <2পরিবর্তে ≤1আরো চারটি বাইট সংরক্ষণ করুন।

— শান

এর, আমি অনুমান করি যে আপনাকে ভুলভ্রান্ত উপায়ে 2>...>-2ব্যাখ্যা এড়াতে আসলে তুলনাগুলি বিপরীত করতে হবে <।

— শান

Answer 14

আর , 30 26 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

আমি মনে করি function(a)all(diff(a)^2<2)3 বাইট সঞ্চয় করে

— বিএলটি

আপনি কনসোল থেকে ইনপুট নিতে পারেন:all(diff(scan())^2<2)

— ফ্লডেল

@ বিএলটি ভাল পয়েন্ট!

— ব্যবহারকারী 2390246

@ ফ্লোডেল ব্যবহার করার সময় সুস্পষ্টভাবে আউটপুট প্রিন্ট করার প্রয়োজনীয়তা সম্পর্কে সাম্প্রতিক কিছু আলোচনা হয়েছিল scanতবে এটি এখনও একটি বাইট সংরক্ষণ করে!

— ব্যবহারকারী 2390246

Answer 15

05 এ বি 1 ই , 5 বাইট

¥Ä2‹P

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

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

Comments

@ অক্স: আমি ভয় করি না। [5,2]উদাহরণস্বরূপ এটি কাজ করবে না ।

— এমিগিনা

Answer 16

ওহম ভি 2, 4 বাইট

Δ2<Å

এটি অনলাইন চেষ্টা করুন!

কিভাবে?

Δ2<Å   ~ Full program.

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

Answer 17

পাওয়ারশেল , 62 বাইট

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

এটি অনলাইন চেষ্টা করুন!

পাওয়ারশেলের একটি .mapবা .someঅনুরূপ কমান্ড নেই, সুতরাং এখানে আমরা স্বতন্ত্রভাবে প্রতিটি ব-দ্বীপটি পরীক্ষা করছি।

আমরা ইনপুট নিই $aএবং $lপ্রথম উপাদানটির সমান সেট করি । তারপর মাধ্যমে আমরা লুপ $aএবং আউট প্রতিটি উপাদান যেখানে নেওয়া |?{...}পার্থক্য $_-$lহল -inপরিসর 1,0,-1। আমরা তারপরে $lবর্তমান উপাদানটির সমান স্থির করেছি । সুতরাং এখন আমাদের কাছে উপাদানগুলির সংগ্রহ রয়েছে যেখানে তাদের পূর্ববর্তী প্রতিবেশীর মধ্যে ব-দ্বীপ 1 রয়েছে We আমরা এটিটি নিই এবং এটি সম্পূর্ণরূপে অ্যারের পর্যন্ত ইউয়াল .countকিনা তা -eqখতিয়ে দেখি .count। যদি এটি হয় তবে প্রতিটি ব-দ্বীপ 1 বা তারও কম, সুতরাং এটি একটি তুচ্ছ অ্যারে। সেই বুলিয়ান ফলাফলটি পাইপলাইনে রেখে গেছে, এবং আউটপুট অন্তর্ভুক্ত।

Comments

পরম থেকে মুক্তি পেয়ে এবং করা দ্বারা আপনি 1 বাইট সংরক্ষণ করতে পারেন$l=($a=$args)[0]

— 49

@ ব্রায়ান্টিস্ট যদিও এটি কাজ করে না। উদাহরণ স্বরূপ. এটি কারণ $lআপনার পরামর্শে সম্পূর্ণ ইনপুট অ্যারে হিসাবে সেট করা হয় is

— অ্যাডমবর্কবার্ক

আমি মনে করি এটির জন্য আপনার টিআইওতে যুক্তি দেওয়ার উপায়টি পরিবর্তন করা দরকার (প্রতিটি উপাদানকে পৃথকভাবে নির্দিষ্ট করা দরকার)। আপনার এখন যেভাবে রয়েছে, তার প্রথম উপাদানটি $argsহ'ল পুরো অ্যারে। উদাহরণ

— ব্রিটিশবাদী

এটি প্রতারণাপূর্ণ মনে হচ্ছে ...

— অ্যাডমবর্কবর্ক

আমি মনে করি এটি আসলে ব্যবহারের সঠিক উপায় $args। যদি আপনি কোনও স্ক্রিপ্ট বলে থাকেন বা যুক্তিগুলির একটি সিরিজকে ফাঁকা হিসাবে পৃথক করা হয়ে থাকে তবে এটি পৃথক উপাদান হিসাবে আসতে পারে $argsএবং টিআইওর ক্ষেত্রে এটি কীভাবে অনুকরণ করা যায়। আমি ব্যক্তিগতভাবে এটি আগে বহুবার ব্যবহার করেছি, তবে প্রত্যেকে তাদের নিজস্ব :)

— ব্রিটিশবাদী

Answer 18

পাইথন 3 , 45 বাইট

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

এটি অনলাইন চেষ্টা করুন! বা পরীক্ষা স্যুট চেষ্টা করুন।

-২ বাইটের জন্য জোনাথন ফ্রেঞ্চকে ধন্যবাদ ।

Comments

abs(x-y)<2-> -2<x-y<2।

— জোনাথন ফ্রেচ

Answer 19

জাভা (ওপেনজেডিকে 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;}

এটি অনলাইন চেষ্টা করুন!

Answer 20

এমএটিএল ,6 5 বাইট

d|2<A

-1 থেকে বাইট ধন্যবাদ : Giuseppe

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষার ক্ষেত্রে যাচাই করুন

Comments

আমি মনে করি প্রতি মেটাd|2< conকমত্যের পরিবর্তে আপনি এটি ব্যবহার করতে পারেন , যেমন শূন্য মানের একটি অ্যারে এমএটিএলে মিথ্যা।

— জিউসেপে

বা d|2<Aআপনার মূল উত্তর কাছাকাছি কিছু জন্য।

— জিউসেপে

@ জিউসেপ না তারা পারবেন না: সত্যবাদী / মিথ্যা মানগুলি আলাদা এবং সামঞ্জস্যপূর্ণ হতে হবে ।

— মিস্টার এক্সকোডার

@ মিঃ এক্সকোডার "সত্যের জন্য সমস্ত 1s এর অ্যারে" এবং "মিথ্যাটির জন্য কমপক্ষে একটি শূন্যযুক্ত একটি অ্যারে" আলাদা এবং সামঞ্জস্যপূর্ণ নয়?

— জিউসেপে

@ জিউস্পেপ " সত্যের জন্য সমস্ত 1s এর অ্যারে" এবং "মিথ্যা জন্য কমপক্ষে একটি শূন্যযুক্ত একটি অ্যারে" আলাদা এবং সামঞ্জস্যপূর্ণ নয়? - না, এটি গ্রহণযোগ্য নয়, কারণ তারা বেমানান।

Answer 21

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 সমাধানের বন্দর যা ভয়াবহ ছাড়া অন্য কোনও ফিক্সটিতে স্বয়ংক্রিয়াকরণ এবং অন্যান্য দুর্দান্ত জিনিস নেই

Answer 22

সি, 61 56 বাইট

পাঁচটি বাইট সংরক্ষণের জন্য @ স্কটিনেটকে ধন্যবাদ!

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

এটি অনলাইন চেষ্টা করুন!

সি (জিসিসি), 47 বাইট

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

এটি অনলাইন চেষ্টা করুন!

Comments

এবং যদি এটি অনুমোদিত হয় / যদি আপনার এটির মতো মনে হয় তবে আপনি ফলাফলটি ফেরতের পরিবর্তে সংরক্ষণ করে আরও 9 টি বাইট সংরক্ষণ করতে rপারেন। :-)

— স্কটিনেট

@ স্কটনেট আমি এটি বিবেচনা করেছি, তবে এটি জিসিসি দিয়ে কাজ করার পরেও এটি বৈধ সি নয়। যদিও এটি অনুমোদিত, তাই আমি অনুমান করি যে আমি এটিকে কেবল বিকল্প সংস্করণ হিসাবে অন্তর্ভুক্ত করব।

— স্টেডিবক্স

@ স্কটিনেট একটি ফাংশন শেষে একটি ভেরিয়েবল বরাদ্দ করা ফাংশনটির রিটার্ন অ্যাড্রেসে সেই মানটি রাখে, এটি অনুভব করে যে এটি মানটি ফিরিয়ে দিচ্ছে। যাইহোক, এই আচরণটি সি নির্দিষ্টকরণের অংশ নয়, যার ফলে কাজ করার গ্যারান্টিযুক্ত হয় না। এটি নির্দিষ্টকরণকারী কয়েকটি সংযোজনকারী পতাকাগুলিও ভেঙে দিতে পারে।

— জোনাথন ফ্রেচ

@ স্কটনেট আহ, আমি দুঃখিত আমি মনে করি এটি অনুমোদিত হবে না কারণ আপনি নিয়মে সম্মত হয়ে আপনার সমাধানে কেবল ভেরিয়েবলগুলি বরাদ্দ করতে পারবেন না। উদাহরণ হিসাবে, ফাংশন আর্গুমেন্টের পরিবর্তে বিশ্বব্যাপী সংজ্ঞায়িত ভেরিয়েবলগুলি ব্যবহারের অনুমতি দেওয়া হবে না। আপনার কাজটি হ'ল সম্পূর্ণ কার্যকরী প্রোগ্রাম / ফাংশন লিখুন।

— জোনাথন ফ্রেচ

@ জোনাথনফ্রেচ ভাষাগুলি এখানে তাদের প্রয়োগের মাধ্যমে সংজ্ঞায়িত করা হয়েছে, সুতরাং আপনার যদি একটি সংকলক থাকে যা ধারাবাহিক ফলাফল উত্পন্ন করে তবে উত্তর বৈধ হবে, এমনকি আনুষ্ঠানিকভাবে ইউবি হলেও।

— কোয়ান্টিন

Answer 23

ক্লোজার, 35 বাইট

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

এটা কত ঝরঝরে?

Answer 24

টিআই-বেসিক, 6 7 বাইট

prod(2>abs(ΔList(Ans

বা, 5 টি বাইট যদি ত্রুটিগুলি বৈধ প্রত্যাবর্তন মান হিসাবে গণনা করা হয় ( ERR:ARGUMENTতুচ্ছ যদি ফিরে আসে ERR:DOMAIN)

augment(sin⁻¹(ΔList(Ans

Comments

এটি সম্ভবত থাকতে হবে abs(ΔList(Ans, বা অন্যথায় 1 টিরও বেশি কমে যেতে পারে (যেমন {5,3,1 in বা পরীক্ষার ক্ষেত্রে {3,4,5,6,7,8,7,5} পাওয়া যায় না) সনাক্ত.

— মিশা লাভরভ

@ মিশা লাভরভ ধন্যবাদ, আপনি ঠিক বলেছেন!

— ওকি

Answer 25

জাভাস্ক্রিপ্ট (ES6), 37 36 বাইট

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

সম্পাদনা: @ আরনল্ডের কৌশলটি চুরি করে 1 বাইট সংরক্ষণ করা হয়েছে

Comments

আপনি তরকারী ব্যবহার করতে পারেন:a=>u=>!a.some(e=>(e-=(u=e))>1|e<-1)

— বিলিন্ট

Answer 26

পাইথ, 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.

Answer 27

গণিত, 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 *)

Answer 28

জাভা (ওপেনজেডিকে 8) , 60 বাইট

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

এটি অনলাইন চেষ্টা করুন!

• 5 বাইট @ নেভায়ে ধন্যবাদ!

Comments

আপনি একবারে rগণনা করতে লুপটিতে ব্যবহার করতে পারেন, পরিবর্তে ব্যবহার করতে পারলে বা অপসারণ করা যেতে পারে : (60 বাইট)। (p-n)>>1/2|+a->{int r=1,p=a[0];for(int i:a)r|=(r=p-(p=i))*r;return r<2;}

— নেভায়ে

চিয়ার্স @ নেভায়ে, আপনাকে ধন্যবাদ! যথাযথ গল্ফিং, যথারীতি ;-)

— অলিভিয়ার

আপনি আমাকে ব্যাখ্যা করতে পারেন কিভাবে এটি কাজ করে? ধন্যবাদ!

— blurstream

Answer 29

সুইফট 4, 52 বাইট

{!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!")
}

Answer 30

এপিএল, 13 বাইট

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

প্রথম এপিএলের উত্তর \ o /

দ্রষ্টব্য: আমি হাইপার নিউট্রিনোর মালিকানাধীন একটি বট। আমি মূলত চ্যাট পরীক্ষার জন্য উপস্থিত।

ব্যাখ্যা

{×/(|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)

Comments

- 11 মৌন যেমন বাইট∧/2>(|2-/⊢)

— ঊরীয়েল