আমি কি গোলফি অ্যারে?

18

সংজ্ঞা এবং বিধি

একজন golfy অ্যারের পূর্ণসংখ্যার একটি অ্যারের, যেখানে প্রতিটি উপাদান হল বেশী বা সমান সমস্ত পূর্ববর্তী উপাদানের গাণিতিক গড়। আপনার কাজটি নির্ধারণ করা হয় যে ইনপুট হিসাবে প্রদত্ত ধনাত্মক পূর্ণসংখ্যার অ্যারেটি গোলমাল কিনা।

পরীক্ষার কেস এবং উদাহরণ

উদাহরণস্বরূপ নিম্নলিখিত অ্যারে:

[1, 4, 3, 8, 6]

একটি গোলাপী অ্যারে, কারণ প্রতিটি শব্দটি পূর্ববর্তীদের গাণিতিক গড়ের চেয়ে বেশি। আসুন এটি ধাপে ধাপে কার্যকর:

সংখ্যা -> পূর্ববর্তী উপাদান -> গড় -> নিয়ম অনুসরণ করে?

1 -> [] -> 0.0 -> 1 ≥ 0.0 (সত্য)
4 -> [1] -> 1.0 -> 4 ≥ 1.0 (সত্য)
3 -> [1, 4] -> 2.5 -> 3 ≥ 2.5 (সত্য)
8 -> [1, 4, 3] -> ২ (6) -> 8 ≥ 2. (6) (সত্য)
6 -> [1, 4, 3, 8] -> 4.0 -> 6 ≥ 4.0 (সত্য)

সমস্ত উপাদান শর্তকে সম্মান করে, সুতরাং এটি গোলাপী অ্যারে। নোট করুন যে এই চ্যালেঞ্জের উদ্দেশ্যে, আমরা ধরে নেব যে একটি খালি তালিকার গড় ( []) 0।

আরও পরীক্ষার কেস:

ইনপুট -> আউটপুট

[3] -> সত্য
[2, 12] -> সত্য
[1, 4, 3, 8, 6] -> সত্য
[1, 2, 3, 4, 5] -> সত্য
[6, 6, 6, 6, 6] -> সত্য
[3, 2] -> মিথ্যা
[4, 5, 6, 4] -> মিথ্যা
[4, 2, 1, 5, 7] -> মিথ্যা
[45, 45, 46, 43] -> মিথ্যা
[32, 9, 15, 19, 10] -> মিথ্যা

লক্ষ্য করুন এই হল পাজল 1 থেকে CodeGolf-Hackathon এবং পোস্ট করা হয়েছে অরাজকতা গলফ (যে এক নষ্ট হয়ে গেছে) - পুনরায় পোস্ট দ্বারা histocrat , কিন্তু আমি উভয় সাইটগুলোতে মূল লেখক নই, এবং এইভাবে তাদের এখানে repost অনুমতি দেওয়া।

code-golf  number  arithmetic  array-manipulation  decision-problem 
— মিঃ এক্সকোডার
সূত্র
ইনপুট কি সর্বদা ইতিবাচক পূর্ণসংখ্যার একটি তালিকা?
— কেলি লোডার
পছন্দ করুন
— মিঃ এক্সকডার
এটি একটি মজাদার সমস্যা, আমি আরও পরীক্ষার ক্ষেত্রে অ্যানার্চি গল্ফে এটি পুনরায় পোস্ট করার কথা ভাবছিলাম তবে ভেবেছিলাম আপনি সম্ভবত এটিতে কাজ করছেন।
— হিস্টোক্র্যাট
@ ইতিহাসবিদ এগিয়ে যান এবং এটি অরাজক গল্ফে পুনরায় পোস্ট করুন, আমার প্রথমে যে জিনিসগুলি শোষণ করা যায় সেগুলি সম্পর্কে চিন্তা করা উচিত ছিল। আপনি বরং এটি আকর্ষণীয় বলেই আমি আনন্দিত (বিটিডব্লিউ দয়া করে আমাকে এখানে পিং করুন এবং আপনি যদি এটি পুনরায় পোস্ট করেন তবে একটি লিঙ্ক দিন)।
— মিঃ এক্সকোডার
3
নিবন্ধন করুন যোগফল </ i> x সমান> Sum> xi সমান + x> x (i + 1) সমান (Sum + x) / (i + 1)> x এর সমান।
— হিস্টোক্র্যাট

উত্তর:

13

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

def g(a):sum(a)>len(a)*a.pop()or g(a)

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

প্রস্থান কোডের মাধ্যমে আউটপুট: গোল্ফিল অ্যারেগুলির জন্য ক্র্যাশ (প্রস্থান কোড 1), নন-গোলফাই অ্যারেগুলির জন্য কেবল প্রস্থান কোড 0 দিয়ে বেরিয়ে আসে। ওভিএস এবং জোনাথন ফ্রেঞ্চ 3 বাইট সংরক্ষণ করেছেন।

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

f=lambda a:a and sum(a)<=len(a)*a.pop()*f(a)

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

আরও একটি traditional Trueতিহ্যবাহী বৈকল্পিক, যা গল্ফ অ্যারেগুলির জন্য ফেরত দেয় , অন্যথায় False। জোনাথন ফ্রেচ 2 বাইট সংরক্ষণ করেছিলেন।

— লিন
সূত্র
1
আমার মনে হয় a==[]orহতে পারে a and।
— জোনাথন ফ্রেচ
2
এটি প্রকৃতপক্ষে চালাক - এটি sum(a)<=len(a)*a.pop()*[]বেস কেসের ক্ষেত্রে আসে , যা সর্বদা সত্য int < list!
— লিন
3
39 ফাংশন হিসাবে বাইটস যা সত্যবাদী ইনপুটগুলির জন্য ক্র্যাশ হয়।
— ovs
1
একটি অত্যাবশ্যক ফাংশন ব্যবহার করে @ovs 37 বাইট ।
— জোনাথন ফ্রেচ
11

জেলি , 6 5 বাইট

<ÆmƤE

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

কিভাবে এটা কাজ করে

<ÆmƤE  Main link. Argument: A (integer array)

 ÆmƤ   Compute the arithmetic means (Æm) of all prefixes (Ƥ) of A.
<      Perform element-wise comparison. Note that the leftmost comparison always
       yields 0, as n is equal to the arithmetic mean of [n].
    E  Test if all elements of the resulting array are equal, which is true if and
       only if all comparisons yielded 0.
— ডেনিস
সূত্র
cairdcoinheringaahing এর 6-বাইটার (বিকল্প):ÆmƤµ⁼Ṣ
— মিস্টার এক্সকোডার
@ মিঃ এক্সকোডার গল্ফড!
— ডেনিস
বাহ যে উজ্জ্বল :-)
— মিস্টার এক্সকোডার
5

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

a=>a.some(e=>e*++i<(s+=e),s=i=0)

কোড যেমন নেতিবাচক মানগুলিতেও কাজ করে [-3, -2]। রিটার্নস falseএকটি golfy অ্যারের জন্য trueঅন্যান্য অ্যারে জন্য। সম্পাদনা: @ জাস্টিনমারিনারে ধন্যবাদ 1 বাইট সংরক্ষিত

— নিল
সূত্র
1
আপনি কেবল বাদ দিতে পারেন !যেহেতু falseঅনুমান কেবল দুটি পৃথক মানের জন্য জিজ্ঞাসা করে, তাই এটি যখন গোলাপী অ্যারে ঠিক থাকে তখন ফিরে আসুন।
— জাস্টিন মেরিনার
4

ওল্ফ্রাম ভাষা (ম্যাথমেটিকা) , 35 বাইট

Max[Accumulate@#-Range@Tr[1^#]#]>0&

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

Falseগল্ফ অ্যারে এবং Trueঅন্যথায় আউটপুট ।

— মার্টিন ইন্ডার
সূত্র
1
আমি দেখতে পাচ্ছি মিথ্যা / সত্য সম্পর্কটি উল্টো হয়েছে তবে তা ঠিক আছে
— কেলি লোডার
4

এমএটিএল , 9 8 বাইট

tYstf/<a

আউটপুট 0golfy অ্যারে জন্য, 1অন্যথায়।

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

ব্যাখ্যা

ইনপুট বিবেচনা করুন [1, 4, 3, 8, 6]।

t    % Implicit input. Duplicate
     % STACK: [1, 4, 3, 8, 6], [1, 4, 3, 8, 6]
Ys   % Cumulative sum
     % STACK: [1, 4, 3, 8, 6], [1, 5, 8, 16, 22]
t    % Duplicate
     % STACK: [1, 4, 3, 8, 6], [1, 5, 8, 16, 22], [1, 5, 8, 16, 22]
f    % Find: indices of nonzeros. Gives [1, 2, ..., n], where n is input size
     % STACK: [1, 4, 3, 8, 6], [1, 5, 8, 16, 22], [1, 2, 3, 4, 5]
/    % Divide, element-wise
     % STACK: [1, 4, 3, 8, 6], [1, 2.5, 2.6667, 4, 4.4]
<    % Less than?, element-wise
     % STACK: [0, 0, 0, 0, 0]
a    % Any: true if and only there is some nonzero. Implicit display
     % STACK: 0
— লুইস মেন্ডো
সূত্র
4

হাস্কেল , 53 50 48 বাইট

and.(z(<=).scanl1(+)<*>z(*)[1..].tail)
z=zipWith

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

সম্পাদনা করুন: -3 বাইট জাগরবকে ধন্যবাদ!

ব্যাখ্যা

উপরের পয়েন্ট-মুক্ত সংস্করণটি নিম্নলিখিত প্রোগ্রামের সমতুল্য:

f s = and $ zipWith(<=) (scanl1(+)s) (zipWith(*)[1..](tail s))

একটি ইনপুট দেওয়া s=[1,4,3,8,6], scanl1(+)sপ্রিফিক্স অঙ্কের নির্ণয় [1,5,8,16,22]এবং zipWith(*)[1..](tail s)প্রথম উপাদান এবং তা বৃদ্ধি পায় তাদের সূচক সঙ্গে অন্যান্য সব উপাদান ড্রপ: [4,6,24,24]। তালিকা এখন golfy যদি pairwise উপসর্গ অঙ্কের ছোট বা উপাদানের বার সূচক, যার উভয় তালিকা zip করা চেক করতে সমান (<=)এবং পরীক্ষণ যে সব ফলাফল নেই Trueসঙ্গে and।

— Laikoni
সূত্র
1
আপনি এই জাতীয় টাইপের ত্রুটি এড়াতে পারেন ।
— Zgarb
@ জাগারব অন্ধকারে এটি সুস্পষ্ট সমাধান। নির্দেশ করার জন্য ধন্যবাদ!
— লাইকোনি
3

সি # (ভিজ্যুয়াল সি # সংকলক) , 71 + 18 = 89 বাইট

x=>x.Select((n,i)=>new{n,i}).Skip(1).All(y=>x.Take(y.i).Average()<=y.n)

অতিরিক্ত 18 বাইট জন্য using System.Linq;

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

— chryslovelace
সূত্র
2
সাইটে স্বাগতম! :)
— ডিজেএমসিএমহেম
সাধারণভাবে বলতে গেলে, আমদানি বিবৃতিগুলি কোড গল্ফে বিনামূল্যে বিবেচিত হয় না। কারণ using System.Linq;এটিতে বিবৃতিটির প্রয়োজন এটি 89 89 বাইট হতে পারে, কখনও কখনও "71 + 18 = 89" হিসাবে প্রকাশিত হতে পারে যে 18 বাইট প্রয়োজন হয় তবে সমাধানের অংশ না হলেও চূড়ান্ত গণনাটি শিরোনাম লাইনের শেষ সংখ্যা হতে পারে ( যা কিছু স্বয়ংক্রিয় পার্সারদের জন্য সহায়ক)।
— কামিল দ্রাকারী
3

এপিএল (ডায়ালগ) , 10 বাইট

এটি একটি বেনামে ট্যাসিট প্রিফিক্স ফাংশন (এপিএল পদগুলিতে monadic ট্রেন বলা হয়)।

∧/⊢≥+\÷⍳∘≢

টিআইওতে সমস্ত পরীক্ষার কেস চেষ্টা করে দেখুন!

তাই কি

 ∧/ সত্য যে

 ⊢ উপাদানগুলো

 ≥ এর চেয়ে বড় বা সমান

 +\ জমে থাকা পরিমাণ

 ÷ দ্বারা বিভক্ত

  ⍳ পূর্ণসংখ্যা 1 মাধ্যমে

  ∘ দ্য

  ≢ উপাদান সংখ্যা

?

— আদম
সূত্র
এপিএলে একটি "দ্য" ??
— ব্যবহারকারী 2390246
1
@ ব্যবহারকারী 2390246 ∘জিনিসগুলিকে একইভাবে বেঁধে রাখে "" "বিড়ালদের গণনা করুন" তে একত্রে আবদ্ধ হয়। এটি সত্যই কমপোজ বলা হয় ।
— অ্যাডম
3

সি (জিসিসি) , 62 60 62 বাইট

  • দুটি অতিরিক্ত অতিরিক্ত বন্ধনী সরানো হয়েছে।
  • ফাংশনের পুনঃব্যবহারযোগ্যতা ( b=) ঠিক করতে দুটি বাইট যুক্ত করা হয়েছে ।
f(A,S,k,b)int*A;{for(S=k=b=0;*A;S+=*A++)b+=!(S<=*A*k++);b=!b;}

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

— জোনাথন ফ্রেচ
সূত্র
3

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

ηÅA÷W

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

ডেনিস এবং আদনানর কাছ থেকে এই হ্রাস করা সংস্করণে ব্যাপক সহায়তা পেল। এটি সম্ভব করার জন্য একটি বাগও ঠিক করা হয়েছিল, ধন্যবাদ আপনাকে আবারো। আমি এই উত্তরের জন্য সামান্য কৃতিত্ব গ্রহণ করি।

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

ηεÅA}ü.S_P

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

লম্বা কারণ DgsO/05AB1E এ "গড়" এর সমতুল্য।

স্পষ্টতই ÅAগাণিতিক গড়।

— ম্যাজিক অক্টোপাস উরন
সূত্র
উপায়গুলি গণনা করার জন্য, আমি +\÷Jজেলিতে (সূচকগুলি দ্বারা সংখ্যার যোগফল বিভাজন) ব্যবহার করব । 05AB1E এ কি এতটা সহজ নয়? সম্পাদনা: কিছু নয়।
— ডেনিস
@ ডেনিস আহ, 05 এ বি 1 ই এর সমষ্টিগত যোগফল ü+তখন আর gঅ্যারের দৈর্ঘ্য প্রাপ্তি, Lধাক্কা দেওয়ার 1,2,...,nএবং গড়টি ভাগ করার জন্য বিভাজন করা ছাড়া সূচকগুলির দ্বারা সত্যিকার অর্থে কোনও বিভাজন নেই , যা এখনও মূলত 5 বাইট হয়।
— ম্যাজিক অক্টোপাস আরন
.S_<=কারও কোনও ধারণা এলএমকে থাকলে লম্বা পথ ।
— ম্যাজিক অক্টোপাস ইউরান 21
÷Wপরিবর্তে কাজ করবে ü.S_P?
— ডেনিস
1
ওহ, @ আদনান সবেমাত্র ভেক্টরাইজেশন স্থির করেছেন ÅA, তাই ηÅA÷Wএখন কাজ করে।
— ডেনিস
2

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

param($a)$o=1;$a|%{$o*=$_-ge($a[0..$i++]-join'+'|iex)/$i};$o

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

আক্ষরিক অ্যারে হিসাবে (যেমন, @(1, 4, 3, 8, 6)) ইনপুট নেয় $a। আমাদের $oইউপুট পরিবর্তনশীল হতে সেট করে 1। তারপরে লুপ করে $a। প্রতিটি পুনরাবৃত্তি, আমরা *=আমাদের $oআউটপুটটির বিপরীতে বুলিয়ান তুলনার ফলাফলের জন্য পাওয়ারশেলের অন্তর্নিহিত কাস্টিং ব্যবহার করছি (অব) । বুলিয়ান কিনা বর্তমান মান $_হয় -greater-চেয়ে-or- eপূর্ববর্তী পদ গণদেবতা $a[0..$i++]একসঙ্গে জোড়া হয়েছে ( -join'+'|iex) কত পদ ইতিমধ্যে আমরা দেখা করেছি দ্বারা বিভক্ত $i। সুতরাং, যদি কোনও পদক্ষেপ মিথ্যা হয় তবে $oতার দ্বারা বহুগুণ হবে 0। অন্যথায়, এটি 1জুড়ে থাকবে ।

তারপরে আমরা কেবল $oপাইপলাইনের উপরে রাখি এবং আউটপুট অন্তর্ভুক্ত। 1সত্য এবং মিথ্যা 0জন্য।

— AdmBorkBork
সূত্র
2

সি # (.নেট কোর) , 74 বাইট

x=>{for(int i=1,s=0;i<x.Count;)if(x[i]<(s+=x[i-1])/i++)return 0;return 1;}

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

মিথ্যাটির জন্য 0 এবং সত্যের জন্য 1 প্রদান করে।

3 ক্রাইস্লোভেলস উত্তরের মূলের চেয়ে বেশি বাইট । তবে মোট বেশ কয়েকটি বাইট সংক্ষিপ্ত কারণ আমার বৈকল্পিকের কোনও usingবিবৃতি দরকার নেই ।

— raznagul
সূত্র
2

কিউবিক্স , 35 বাইট

/I?/\+psu0^.\)*sqs;-\;;U;O1.....?@^

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

জায়গার সর্বাধিক দক্ষ ব্যবহার নয় (কোডে 6 টি অপ্স নয়) গোল্ফির অ্যারের 1জন্য কোনও নয়-গোল্ফির অ্যারের জন্য কোনও আউটপুট উত্পাদন করে না ।

নিম্নলিখিত ঘনক্ষেত্রে প্রসারিত:

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

ব্যাখ্যা আসন্ন, তবে এটি মূলত লুইস মেন্ডোর এমএটিএল উত্তর বা ডেনিসের জুলিয়া উত্তরের মতো কিছু বন্দর করে ।

এটি চালান দেখুন!

— : Giuseppe
সূত্র
2

মতলব এবং অক্টাভ, 41 36 বাইট

5 বাইট লুইস মেন্ডোতে THX সংরক্ষণ করেছে saved

all([a inf]>=[0 cumsum(a)./find(a)])

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

— লিয়েন্ডার মোসিংগার
সূত্র
@ LuisMendo- এর কোনও উপাদান aশূন্য হলে তা ভাঙবে । তবে এটি একই ধরণের পরিস্থিতিতে একটি সহজ কৌশল, সেইটিকে মাথায় রাখতে হবে।
— লিয়ান্ডার মোসিংগার
পড়া কঠিন! ধন্যবাদ!
— লিয়েন্ডার মোসিংগার
আমার কাছে সর্বদা হয় :-)
— লুইস মেন্ডো
2

এসকিউএল (মাইএসকিউএল), 68 বাইট

select min(n>=(select ifnull(avg(n),1)from t s where s.i<t.i))from t

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

ফেরত পাঠায় 1 golfy অ্যারে জন্য, এবং 0 অন্যথায়। একটি থেকে ইনপুট নেয় নামে টেবিল , t। তৈরি করতে t, চালান:

CREATE TABLE t(i SERIAL,n INT)

এবং মানগুলি লোড করতে: 

truncate table t;insert into t(n)values(3),(2);
— Einacio
সূত্র
1

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

lambda A:all(k*j>=sum(A[:j])for j,k in enumerate(A))

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

পাইথন 2 , 50 48 44 42 বাইট

  • ইনলাইন করে এবং ব্যবহার করে দুটি বাইট সংরক্ষণ করা হয়েছে and।
  • সংরক্ষিত দুই ধন্যবাদ বাইট জনাব Xcoder নিয়োগ chaining দ্বারা S=k=0।
  • ব্যবহার করে দুটি বাইট সংরক্ষণ করা হয়েছে orএবং তুলনার বুলিয়ান মান kএর বর্ধিত মান হিসাবে।
  • Ovs ধন্যবাদ দুটি বাইট সংরক্ষণ করা ; একটি NameErrorপরিবর্তে একটি অপরিবর্তিত ভেরিয়েবল ব্যবহার করে একটি উত্থাপন ZeroDivisionError।
S=k=0
for j in input():k+=S<=j*k or J;S+=j

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

— জোনাথন ফ্রেচ
সূত্র
আপনার বিকল্প সংস্করণে 46 বাইট ।
— মিঃ এক্সকোডার
@ মিঃ এক্সকোডার ধন্যবাদ
— জোনাথন ফ্রেচ
— ovs
@ovs ধন্যবাদ; ব্যতিক্রম বাড়াতে ঝরঝরে ওয়ান-বাইট উপায়।
— জনাথন ফ্রেচ
1

কিউ / কেডিবি + , 14 বাইট

সমাধান:

min x>=avgs x:

উদাহরণ:

q)min x>=avgs x:1 4 3 8 6
1b                           / truthy
q)min x>=avgs x:4 2 1 5 7
0b                           / falsey

ব্যাখ্যা:

avgsঅন্তর্নির্মিত সহ মোটামুটি সহজ :

min x>=avgs x: / solution
            x: / store input in variable x
       avgs    / calculate running averages
    x>=        / array comparison, x greater than running average
min            / take minimum of list of booleans
— streetster
সূত্র
1

আর , 38 34 বাইট

function(x)any(cumsum(x)/seq(x)>x)

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

— NGM
সূত্র
খুব সুন্দর. ডুনো কেন আগে কোনও আর উত্তর ছিল না ...
— জিউসেপ
আপনারা সবাই আমার জন্য একটি সহজ সঞ্চয় করেছিলেন।
— এনজিএম
yফাংশন আর্গুমেন্টগুলি সংজ্ঞায়িত করার পরিবর্তে cumsum(x)সরাসরি 4 বাইট সংক্ষিপ্ত করে ব্যবহার করা হয়। এটি লজ্জাজনক cummeanভিত্তি আর তে নেই
— জিউসেপ
1

++ , 54 বাইট যুক্ত করুন

D,g,@@#,BFB
D,k,@,¦+AbL/
D,f,@,dbLR$€g€k0b]$+ABcB]£>ª!

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

আনরিগিনাল সংস্করণ, 30 বাইট

D,f,@,¬+AbLRBcB/@0@B]ABcB]£>ª!

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

গল্ফ অ্যারেগুলির জন্য উভয় আউটপুট 1 এবং অন্যথায় 0

তারা কিভাবে কাজ করে

প্রথম সংস্করণটি অন্য কোনও সমাধান পরীক্ষা না করেই আমার দ্বারা তৈরি করা হয়েছিল। দ্বিতীয়টি ডেনিসের মন্তব্যে অনুপ্রাণিত হয়েছিল , তাই আমি এতে কম খুশি।

প্রথম সংস্করণ

চএকজনএকজনবি: =[1,।।।|একজন|]|একজন|একজনdbLR$[বি,একজন]ছএকজনবিবিছছ

D,g,@@#,BFB

2#BFএকজনই∈এক্স[।।।একজন,ই]।।।Bইএকজন

ছট€gk2{...}IKUYZgkluw

ছএক্সএকজনটট

D,k,@,¦+AbL/

¦+AbL/সি

সিএকজন00[0]সি0b]$সি+ +

একজনএকজনABcB]Bczipসি+ +

পি∈একজন,কুই∈সি+ +;পি<কুই≡¬(পি≥কুই)পি,কুই010ª!

দ্বিতীয় সংস্করণ

24একজন¬+[একজন0,একজন0+ +একজন1,একজন0+ +একজন1+ +একজন2,।।।,একজন0+ +।।।+ +একজনআমি]J), ব্যাপ্তি গণনা করেবি: =[1।।।|একজন|]|একজন|

একজনবিBcB/0@0@B]সি+ +

সি+ +: =[0,একজন0,একজন0+ +একজন12,একজন0+ +একজন1+ +একজন23,।।।,একজন0+ +।।।+ +একজনআমিআমি+ +1]

একজনসি+ +

— কেয়ারড কইনারিংহিং
সূত্র
0

পাইথ , 11 10 বাইট

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

.A.egb.O<Q

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

— ডেভ
সূত্র
SI.OM._By বাইট: (জেলির কাছ থেকে কায়ারডকোনারিংহিংয়ের সমাধানের বন্দর, এরিক দ্য আউটগল্ফার লিখেছেন) বা আপনার পদ্ধতির সাহায্যে 10 বাইট:.A.egb.O<Q
— মিঃ এক্সকোডার
নিজের মতো করে বন্দরটি পোস্ট করুন, এটি সম্পূর্ণ ভিন্ন পদ্ধতির!
— ডেভ
0

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

আমি জানি এটি ভাল গল্ফ করার ভাষা নয় তবে আমি এখনও তা দিয়েছি!

পরীক্ষার জন্য কমা দ্বারা পৃথক করা ইনটসের প্রথম যুক্তি হিসাবে ইনপুট অ্যারে।

সত্যের জন্য 1, মিথ্যা হিসাবে 0 প্রদান করে।

a->{int i=1,j,r=1,s=0;for(;i<a.length;i++,s=0){for(j=0;j<i;s+=a[j++]);r=s/i>a[i]?0:r;}return r;}

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

— লুক স্টিভেন্স
সূত্র
0

জাভা 7, 100 বাইট

Golfed:

int g(int[]a){int i=1,m=0,s=m,r=1;for(;i<a.length;){s+=a[i-1];m=s/i;r-=a[i++]<m&&r>0?1:0;}return r;}

Ungolfed:

int golfy(int[]a)
{
    int i = 1, m = 0, s = m, r = 1;
    for (; i < a.length;)
    {
        s += a[i-1];
        m = s / i;
        r -= a[i++] < m && r>0? 1 : 0;
    }
    return r;
}

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

অসঙ্গলের জন্য 0 এবং গোল্ফ অ্যারেগুলির জন্য 1 প্রদান করে। জাভা 8 টির চেয়ে সামান্য দীর্ঘ।

— peech
সূত্র
0

পিএইচপি, 44 বাইট

while($n=$argv[++$i])$n<($s+=$n)/$i&&die(1);

কমান্ড লাইন আর্গুমেন্ট থেকে ইনপুট নেয়, 0অন্যটির সাথে একটি গোলফাই অ্যারের জন্য (ঠিক আছে) দিয়ে প্রস্থান করে 1।

এটি দিয়ে চালান -nrবা অনলাইনে চেষ্টা করুন ।

— তিতাস
সূত্র
0

জে, 19 বাইট

[:*/[>:[:}:0,+/\%#\

+/\ % #\উপসর্গের গড়: #\1..n উত্পাদন করে

}:0, শুরুতে 0 যুক্ত করুন এবং শেষটি সরিয়ে দিন

[>: মৌলিক তালিকার উপাদানটি => গড়ের স্থানান্তরিত তালিকায় কী?

*/হয় সব উপাদান বৃহত্তর, অর্থাত্, পূর্ববর্তী তালিকা সব 1গুলি?

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

— দুর্ভাগ্যআনয়নকারী
সূত্র
0

জাপট , 10 বাইট

দুটি 10 ​​বাইট সমাধান নিয়ে এসেছিল, এটির উন্নতি হবে বলে মনে হচ্ছে না।

eȨU¯Y x÷Y

চেষ্টা করে দেখুন

ব্যাখ্যা

               :Implicit input of array U
eÈ             :Is every element, at 0-based index Y
  ¨            :Greater than or equal to
   U¯Y         :U sliced from index 0 to index Y
        ÷Y     :Divide each element by Y
       x       :Reduce by addition

বিকল্প

eÈ*°Y¨(T±X

চেষ্টা করে দেখুন

               :Implicit input of array U
eÈ             :Is every element X (at 0-based index Y)
  *°Y          :Multiplied by Y incremented by 1
     ¨         :Greater than or equal to
      (T±X     :T (initially 0) incremented by X
— রোমশ
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.