ความหมายและกฎ

อาร์เรย์ golfyเป็นอาร์เรย์ของจำนวนเต็มซึ่งแต่ละองค์ประกอบสูงกว่าหรือเท่ากับค่าเฉลี่ยเลขคณิตขององค์ประกอบก่อนหน้านี้ทั้งหมด งานของคุณคือการตรวจสอบว่าอาร์เรย์ของจำนวนเต็มบวกที่กำหนดเป็นอินพุตมีค่าหรือไม่

• คุณไม่จำเป็นต้องจัดการกับรายการที่ว่างเปล่า

• ช่องโหว่เริ่มต้นใช้

• มาตรฐานอินพุตและเอาต์พุตวิธีใช้

• คุณสามารถเลือกสองค่าที่ไม่ว่างเปล่าที่แตกต่างกัน พวกเขาจะต้องสอดคล้องและต้องปฏิบัติตามกฎการตัดสินใจปัญหาอื่น ๆ ทั้งหมด นี่คือรหัส - กอล์ฟรหัสที่สั้นที่สุดในแต่ละภาษาชนะ!

กรณีทดสอบ & ตัวอย่าง

ตัวอย่างเช่นอาร์เรย์ต่อไปนี้:

[1, 4, 3, 8, 6]

Array Array Array Array Array Array Arsenal Array Array Array Array Array Array for Array Of Array Array Arsenal Array Array Array Array Array Array Array Array for Array [1] เป็นอาเรย์ที่มีความเป็นกอล์ฟเพราะแต่ละเทอมนั้นสูงกว่าค่าเฉลี่ยเลขคณิตของคำที่อยู่ข้างหน้า มาทำงานกันทีละขั้นตอน:

หมายเลข -> องค์ประกอบก่อนหน้า -> ค่าเฉลี่ย -> ทำตามกฎหรือไม่

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] -> 2. (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 พวกเขาที่นี่

Python 2 , 37 ไบต์

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

ลองออนไลน์!

เอาท์พุทผ่านรหัสออก: เกิดปัญหา (รหัสทางออก 1) สำหรับอาร์เรย์ Golfy เพียงออกด้วยรหัสทางออก 0 สำหรับอาร์เรย์ที่ไม่ใช่กอล์ฟ ovs และ Jonathan Frech บันทึก 3 ไบต์

Python 2 , 44 ไบต์

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

ลองออนไลน์!

ความแตกต่างแบบดั้งเดิมมากขึ้นซึ่งผลตอบแทนTrueสำหรับอาร์เรย์ golfy Falseอื่น Jonathan Frech บันทึก 2 ไบต์

เยลลี่ , 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.

JavaScript (ES6), 33 32 ไบต์

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

[-3, -2]รหัสยังทำงานบนค่าลบเช่น ส่งกลับค่าfalseสำหรับสนามกอล์ฟtrueสำหรับอาร์เรย์อื่น ๆ แก้ไข: บันทึก 1 ไบต์ขอบคุณ @JustinMariner

ภาษา Wolfram (Mathematica) , 35 ไบต์

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

ลองออนไลน์!

เอาท์พุทFalseสำหรับอาร์เรย์กอล์ฟและTrueอื่น ๆ

MATL , 9 8 ไบต์

tYstf/<a

เอาท์พุท0สำหรับอาร์เรย์กอล์ฟ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

Haskell , 53 50 48 ไบต์

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

ลองออนไลน์!

แก้ไข: -3 ไบต์ขอบคุณ Zgarb!

คำอธิบาย

เวอร์ชั่นที่ไม่มีจุดข้างต้นเทียบเท่ากับโปรแกรมต่อไปนี้:

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ถ้าคู่เงินก้อนคำนำหน้ามีขนาดเล็กหรือเท่ากับดัชนีองค์ประกอบครั้งซึ่งสามารถตรวจสอบได้โดยซิปรายการทั้งที่มี(<=)และการตรวจสอบว่าผลทั้งหมดที่มีด้วยTrueand

C # (คอมไพเลอร์ Visual C #) , 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;

ลองออนไลน์!

APL (Dyalog)ขนาด 10 ไบต์

นี่คือฟังก์ชั่นนำหน้าโดยปริยายโดยไม่ระบุชื่อ (เรียกว่า monadic train ในเงื่อนไข APL)

∧/⊢≥+\÷⍳∘≢

ลองกรณีทดสอบทั้งหมดใน TIO!

ใช่ไหม

 ∧/ จริงทั้งหมดที่

 ⊢ องค์ประกอบ

 ≥ มากกว่าหรือเท่ากับ

 +\ จำนวนเงินสะสม

 ÷ หารด้วย

  ⍳ จำนวนเต็ม 1 ถึง

  ∘ the

  ≢ จำนวนองค์ประกอบ

?

C (gcc) , 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;}

ลองออนไลน์!

05AB1E , 5 ไบต์

ηÅA÷W

ลองออนไลน์!

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

05AB1E , 10 ไบต์

ηεÅA}ü.S_P

ลองออนไลน์!

นานเพราะDgsO/มีค่าเท่ากับ "mean" ใน 05AB1E

เห็นได้ชัดว่าÅAเป็นค่าเฉลี่ยเลขคณิต

APL (Dyalog) 15 ไบต์

∧/⊢≥((+/÷≢)¨,\)

ลองออนไลน์!

อย่างไร?

            ,\  all prefixes
           ¨    for each
      +/÷≢      calculate arithmetic mean
  ⊢≥            element wise comparison
∧/              logically and the result

PowerShellขนาด 60 ไบต์

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

ลองออนไลน์!

จะเข้าเป็น array ตัวอักษร (เช่น@(1, 4, 3, 8, 6)) $aลง ชุดของเรา$oตัวแปร utput 1จะเป็น จากนั้นวน$aซ้ำ การทำซ้ำแต่ละครั้งเรา (ab) ใช้*=การส่งแบบ$oเจาะจงของ PowerShell กับผลลัพธ์ของการเปรียบเทียบแบบบูลกับutput ของเรา บูลีนคือค่าปัจจุบัน$_นั้นมีค่า-gมากกว่าeเงื่อนไขที่$a[0..$i++]เพิ่มเข้าด้วยกัน ( -join'+'|iex) หารด้วยจำนวนเทอมที่เราได้เห็นไปแล้ว$iหรือไม่ ดังนั้นหากขั้นตอนใด ๆ เป็นเท็จ$o0จะได้รับการคูณด้วย มิฉะนั้นจะคงอยู่1ตลอด

จากนั้นเราก็วาง$oลงบนไปป์ไลน์และเอาท์พุทเป็นนัย 1สำหรับความจริงและ0เพื่อความเท็จ

Perl 5, 27 +2 (-ap) ไบต์

$_=!grep$_*++$n<($s+=$_),@F

ลองใช้ออนไลน์

C # (. NET Core) 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 ไบต์นานกว่าหลักของchryslovelaces คำตอบ แต่ในจำนวนไบต์ทั้งหมดสั้นลงเพราะตัวแปรของฉันไม่ต้องการusingข้อความใด ๆ

Cubix , 35 ไบต์

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

ลองออนไลน์!

ไม่ใช่การใช้พื้นที่อย่างมีประสิทธิภาพที่สุด (6 no-ops ในรหัส) ไม่สร้างเอาต์พุตสำหรับอาร์เรย์ golfy 1สำหรับอาร์เรย์ที่ไม่ใช่สนามกอล์ฟ

ขยายเป็นคิวบ์ต่อไปนี้:

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

คำอธิบายเตรียมพร้อม แต่มันเป็นพื้นพอร์ตบางอย่างเช่นหลุยส์ Mendo ของคำตอบ MATLหรือเดนนิสคำตอบของจูเลีย

ดูมันทำงาน!

Matlab และ Octave ขนาด41 36 ไบต์

5 ไบต์บันทึกขอบคุณไปที่ Luis Mendo

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

ลองออนไลน์!

SQL (MySQL), 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);

Rubyขนาด 30 ไบต์

->a{0until a.pop*a.size<a.sum}

ลองออนไลน์!

แรงบันดาลใจจากคำตอบของลินน์ โยนNoMethodErrorเพื่อตีกอล์ฟผลตอบแทนเป็นnilอย่างอื่น

Python 2 , 52 ไบต์

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

ลองออนไลน์!

Python 2 , 50 48 44 42 ไบต์

• ที่บันทึกไว้ไบต์ที่สองโดย inlining andและการใช้
• บันทึกสองไบต์ต้องขอบคุณMr. XcoderโดยการกำหนดS=k=0สายงาน
• บันทึกสองไบต์โดยใช้orและค่าบูลีนของการเปรียบเทียบเป็นค่าที่kเพิ่มขึ้น
• บันทึกสองไบต์ด้วยovs ; ยกโดยใช้ตัวแปรที่ไม่ได้กำหนดแทนNameErrorZeroDivisionError

S=k=0
for j in input():k+=S<=j*k or J;S+=j

ลองออนไลน์!

q / kdb + , 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

Julia 0.6 , 29 bytes

!x=any(find(x).*x.<cumsum(x))

ผลตอบแทนที่เป็นเท็จหรือจริง

ลองออนไลน์!

R , 38 34 ไบต์

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

ลองออนไลน์!

เพิ่ม ++ , 54 ไบต์

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

ลองออนไลน์!

รุ่นดั้งเดิม 30 ไบต์

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

ลองออนไลน์!

ทั้งการส่งออก1สำหรับอาร์เรย์ golfy และ0มิฉะนั้น

พวกเขาทำงานอย่างไร

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

รุ่นแรก

$f$$A$$A$$B := [1, ... \vert{A}\vert]$$\vert{A}\vert$$A$dbLR$$[B, A]$$g$$A$$B$$B$$g$$g$

D,g,@@#,BFB

$2$#BF$A$$e \in x$$[...A, e]$$...$B$e$$A$

$g$$k$€gk$2${...}IKUYZgkluw

$g$$x$$A$$k$$k$

D,k,@,¦+AbL/

¦+AbL/$C$

$C$$A$$0$$0$$[0]$$C$0b]$$C^+$

$A$$A$ABcB]Bczip$C^+$

$p \in A, q \in C^+; p < q \equiv \neg(p \ge q)$$p, q$$0$$1$$0$ª!

รุ่นที่สอง

$24$$A$¬+$[A_0, A_0+A_1, A_0+A_1+A_2, ..., A_0+...+A_i]$J$B := [1 ... \vert{A}\vert]$$\vert{A}\vert$

$A$$B$BcB/$0$@0@B]$C^+$

$A$$C^+$

Pyth , 11 10 ไบต์

-1 ไบต์ขอบคุณ Mr. Xcoder

.A.egb.O<Q

ลองออนไลน์!

Java (OpenJDK 8) , 96 ไบต์

ฉันรู้ว่ามันไม่ใช่ภาษากอล์ฟที่ดี แต่ฉันก็ยังไปได้!

อินพุตอาร์เรย์เป็นอาร์กิวเมนต์แรกของเครื่องหมายจุลภาคคั่น ints เพื่อทดสอบ

ส่งคืน 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;}

ลองออนไลน์!

Java 7, 100 ไบต์

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

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 สำหรับ ungolfy และ 1 สำหรับอาร์เรย์ golfy ยาวกว่า java 8 เล็กน้อยเล็กน้อย

PHP, 44 ไบต์

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

รับอินพุตจากอาร์กิวเมนต์บรรทัดรับคำสั่งออกด้วย0(ok) สำหรับ array golfy และ1อื่น ๆ

ทำงานด้วย-nrหรือลองออนไลน์

J, 19 ไบต์

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

+/\ % #\ค่าเฉลี่ยของคำนำหน้า: #\สร้าง 1..n

}:0, เพิ่ม 0 ถึงจุดเริ่มต้นและลบครั้งสุดท้าย

[>: องค์ประกอบรายการดั้งเดิมตามองค์ประกอบ> = ไปยังรายการค่าเฉลี่ยที่เลื่อนหรือไม่

*/มีทั้งหมดมากขึ้นองค์ประกอบเช่นรายการก่อนหน้านี้คือทั้งหมด1หรือไม่?

ลองออนไลน์!

AWK , 39 ไบต์

{for(;i++*$i>=s&&i<=NF;s+=$i);$0=i>NF}1

ลองออนไลน์!

โปรดทราบว่าลิงก์ TIO มี 5 ไบต์พิเศษi=s=0เพื่ออนุญาตให้ใช้อินพุตแบบหลายบรรทัด

Japt , 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