Definition und Regeln

Ein Golfy-Array ist ein Array von ganzen Zahlen, wobei jedes Element höher oder gleich dem arithmetischen Mittel aller vorherigen Elemente ist. Ihre Aufgabe ist es zu bestimmen, ob eine Reihe von positiven ganzen Zahlen als Eingabe golfen hat oder nicht.

• Sie müssen die leere Liste nicht bearbeiten.

• Es gelten Standardlücken .

• Es gelten die Standard-Eingabe- und Ausgabemethoden .

• Sie können zwei verschiedene nicht leere Werte auswählen. Sie müssen konsistent sein und allen anderen Regeln für Entscheidungsprobleme entsprechen. Dies ist Code-Golf , der kürzeste Code in jeder Sprache gewinnt!

Testfälle & Beispiel

Zum Beispiel das folgende Array:

[1, 4, 3, 8, 6]

Ist ein Golf-Array, weil jeder Term höher ist als das arithmetische Mittel der vorangegangenen. Lassen Sie es uns Schritt für Schritt ausarbeiten:

Zahl -> Vorgängerelemente -> Durchschnitt -> Folgt die Regel?

1 -> [] -> 0,0 -> 1 ≥ 0,0 (wahr)
4 -> [1] -> 1,0 -> 4 ≥ 1,0 (wahr)
3 -> [1, 4] -> 2,5 -> 3 ≥ 2,5 (Wahr)
8 -> [1, 4, 3] -> 2. (6) -> 8 ≥ 2. (6) (Wahr)
6 -> [1, 4, 3, 8] -> 4,0 -> 6 ≥ 4,0 (Wahr)

Alle Elemente respektieren die Bedingung, also ist dieses eine golfy Reihe. Beachten Sie, dass wir für den Zweck dieser Herausforderung annehmen, dass der Durchschnitt einer leeren Liste ( []) ist 0.

Weitere Testfälle:

Eingabe -> Ausgabe

[3] -> Richtig
[2, 12] -> Richtig
[1, 4, 3, 8, 6] -> Wahr
[1, 2, 3, 4, 5] -> Wahr
[6, 6, 6, 6, 6] -> Richtig
[3, 2] -> Falsch
[4, 5, 6, 4] -> Falsch
[4, 2, 1, 5, 7] -> Falsch
[45, 45, 46, 43] -> Falsch
[32, 9, 15, 19, 10] -> Falsch

Beachten Sie, dass dies Puzzle 1 von CodeGolf-Hackathon ist und auch auf Anarchy Golf gepostet wird (dieses ist defekt) - Reposted von Histocrat , aber ich bin der ursprüngliche Autor auf beiden Seiten und darf sie daher hier reposten.

Python 2 , 37 Bytes

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

Probieren Sie es online!

Ausgabe über Exit-Code: Crashes (Exit-Code 1) für Golf-Arrays, Exit-Code 0 für Nicht-Golf-Arrays. ovs und Jonathan Frech sparten 3 Bytes.

Python 2 , 44 Bytes

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

Probieren Sie es online!

Eine eher traditionelle Variante, die Truesonst für Golf-Arrays zurückkehrt False. Jonathan Frech hat 2 Bytes gespeichert.

Gelee , 6 5 Bytes

<ÆmƤE

Probieren Sie es online!

Wie es funktioniert

<Æ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 Bytes

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

Code funktioniert auch mit negativen Werten wie [-3, -2]. Gibt falsefür ein Golf-Array und truefür andere Arrays zurück. Bearbeiten: 1 Byte dank @JustinMariner gespeichert.

Wolfram Language (Mathematica) , 35 Byte

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

Probieren Sie es online!

Ausgänge Falsefür Golf-Arrays und Truesonstiges.

MATL , 9 8 Bytes

tYstf/<a

0Ansonsten Ausgänge für Golf-Arrays 1.

Probieren Sie es online!

Erläuterung

Betrachten Sie die Eingabe [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 Bytes

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

Probieren Sie es online!

Edit: -3 Bytes dank Zgarb!

Erläuterung

Die obige punktfreie Version entspricht dem folgenden Programm:

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

Bei einem gegebenen Eingangs s=[1,4,3,8,6], scanl1(+)sberechnet die Präfixsumme [1,5,8,16,22]und zipWith(*)[1..](tail s)fällt auf das erste Element und multipliziert alle anderen Elemente mit ihren Index: [4,6,24,24]. Die Liste ist jetzt golfen, wenn die Präfixsummen paarweise kleiner oder gleich dem Index für die Anzahl der Elemente (<=)sind . Dies kann überprüft werden, indem Sie beide Listen mit komprimieren und überprüfen, ob alle Ergebnisse Truemit sind and.

C # (Visual C # -Compiler) , 71 + 18 = 89 Byte

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

zusätzliche 18 Bytes für using System.Linq;

Probieren Sie es online!

APL (Dyalog) , 10 Bytes

Dies ist eine anonyme implizite Präfixfunktion (in APL-Begriffen als monadischer Zug bezeichnet).

∧/⊢≥+\÷⍳∘≢

Probieren Sie alle Testfälle auf TIO!

Ist es

 ∧/ alles wahr, dass

 ⊢ die Elemente

 ≥ sind größer als oder gleich

 +\ die kumulierten Summen

 ÷ geteilt durch

  ⍳ die ganzen Zahlen von 1 bis

  ∘ das

  ≢ Anzahl der Elemente

?

C (gcc) , 62 60 62 Bytes

• Zwei überflüssige Klammern wurden entfernt.
• Zwei Bytes hinzugefügt, um die Wiederverwendbarkeit der Funktion zu korrigieren ( b=).

f(A,S,k,b)int*A;{for(S=k=b=0;*A;S+=*A++)b+=!(S<=*A*k++);b=!b;}

Probieren Sie es online!

05AB1E , 5 Bytes

ηÅA÷W

Probieren Sie es online!

Umfassende Hilfe von Dennis und Adnan zu dieser reduzierten Version. Es wurde auch ein Fehler behoben, um dies zu ermöglichen. Nochmals vielen Dank, Leute. Ich nehme diese Antwort kaum zur Kenntnis.

05AB1E , 10 Bytes

ηεÅA}ü.S_P

Probieren Sie es online!

Lange, weil DgsO/ist das Äquivalent von "Mittelwert" in 05AB1E.

Anscheinend ÅAist arithmetisches Mittel.

APL (Dyalog) , 15 Bytes

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

Probieren Sie es online!

Wie?

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

PowerShell , 60 Byte

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

Probieren Sie es online!

Übernimmt Eingaben als literales Array (zB @(1, 4, 3, 8, 6)) in $a. Setzt unsere $oAusgangsvariable auf 1. Dann durchschleift $a. Bei jeder Iteration verwenden wir (ab) das implizite Casting von PowerShell, um *=das Ergebnis eines Booleschen Vergleichs mit unserer $oAusgabe zu erhalten. Die Boolesche ist , ob der aktuelle Wert $_ist -größere-als-oder - equal zu den bisherigen Bedingungen $a[0..$i++]addiert ( -join'+'|iex) dividiert durch , wie viele Begriffe , die wir bereits gesehen haben $i. Wenn also ein Schritt auf dem Weg falsch ist, $owird er mit multipliziert 0. Ansonsten bleibt es 1durchgehend erhalten.

Wir platzieren dann einfach $oin der Pipeline und die Ausgabe ist implizit. 1für wahr und 0für falsch.

Perl 5, 27 +2 (-ap) Bytes

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

Probieren Sie es online

C # (.NET Core) , 74 Byte

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

Probieren Sie es online!

Gibt 0 für falsch und 1 für wahr zurück.

3 Bytes länger als der Kern der Chryslovelaces antworten . Insgesamt aber einige Bytes kürzer, da meine Variante keine usingAnweisungen benötigt.

Cubix , 35 Bytes

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

Probieren Sie es online!

Nicht die effizienteste Nutzung des Speicherplatzes (6 No-Ops im Code) Erzeugt keine Ausgabe für ein Golf-Array, 1für ein Nicht-Golf-Array.

Wird auf den folgenden Würfel erweitert:

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

Erklärung in Kürze, aber es enthält im Grunde genommen so etwas wie Luis Mendos MATL-Antwort oder Dennis ' Julia-Antwort .

Schau es dir an!

Matlab und Octave, 41 36 Bytes

5 Bytes gespeichert dank Luis Mendo

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

Probieren Sie es online!

SQL (MySQL), 68 Byte

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

Probieren Sie es online!

Gibt 1 für Golf-Arrays und 0 für andere Arrays zurück . Nimmt eine Eingabe von einem benannten Tabelle , t. tFühren Sie zum Erstellen Folgendes aus:

CREATE TABLE t(i SERIAL,n INT)

und um die Werte zu laden:

truncate table t;insert into t(n)values(3),(2);

Ruby , 30 Bytes

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

Probieren Sie es online!

Inspiriert von Lynns Antwort . Würfe NoMethodErrorzum Golfen, kehrt nilsonst zurück.

Python 2 , 52 Bytes

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

Probieren Sie es online!

Python 2 , 50 48 44 42 Bytes

• Zwei Bytes durch Inlinen und Verwenden von gespeichert and.
• Zwei Bytes dank Mr. Xcoder durch Verketten der Zuweisung eingespartS=k=0 .
• Mit orund dem booleschen Wert des Vergleichs als kInkrementwert wurden zwei Bytes gespeichert .
• Zwei Bytes dank ovs gespart ; Erhöhen von a NameErrordurch Verwenden einer undefinierten Variablen anstelle von a ZeroDivisionError.

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

Probieren Sie es online!

q / kdb + 14 Bytes

Lösung:

min x>=avgs x:

Beispiele:

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

Erläuterung:

Ziemlich einfach mit dem avgseingebauten:

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

Gibt false oder true zurück .

Probieren Sie es online!

R , 38 34 Bytes

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

Probieren Sie es online!

Add ++ , 54 Bytes

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

Probieren Sie es online!

Unoriginal Version, 30 Bytes

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

Probieren Sie es online!

Beide geben 1 für Golf-Arrays und 0 sonst aus

Wie sie arbeiten

Die erste Version wurde von mir erstellt, ohne andere Lösungen zu prüfen. Der zweite wurde von Dennis ' Kommentar inspiriert , daher bin ich weniger zufrieden damit.

Die erste Version

$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$ª!

Die zweite Version

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

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

$A$$C^+$

Pyth , 11 10 Bytes

-1 Byte danke an Herrn Xcoder

.A.egb.O<Q

Probieren Sie es online!

Java (OpenJDK 8) , 96 Byte

Ich weiß, dass es keine gute Golfsprache ist, aber ich habe es trotzdem versucht!

Eingabearray als erstes Argument der zu testenden kommagetrennten Ints.

Gibt 1 für wahr, 0 für falsch zurück.

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;}

Probieren Sie es online!

Java 7, 100 Bytes

Golf gespielt:

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;
}

Probieren Sie es online aus

Gibt 0 für ungolfy und 1 für golfy Arrays zurück. Etwas länger als Java 8 Antwort.

PHP, 44 Bytes

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

0Nimmt Eingaben von Befehlszeilenargumenten entgegen, beendet sich mit (ok) für ein Golf-Array, mit 1else.

Laufen Sie mit -nroder versuchen Sie es online .

J, 19 Bytes

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

+/\ % #\Durchschnittswerte der Präfixe: #\Erzeugt 1..n.

}:0, füge am Anfang 0 hinzu und entferne die letzte

[>: ist die ursprüngliche Liste Element für Element> = zur verschobenen Liste der Durchschnitte?

*/Sind alle Elemente größer, dh ist die vorherige Liste alle 1s?

Probieren Sie es online!

AWK , 39 Bytes

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

Probieren Sie es online!

Beachten Sie, dass die TIO-Verbindung über 5 zusätzliche Bytes verfügt i=s=0, um eine mehrzeilige Eingabe zu ermöglichen.

Japt , 10 Bytes

Ich bin auf zwei 10-Byte-Lösungen gekommen und kann mich anscheinend nicht verbessern.

eȨU¯Y x÷Y

Versuch es

Erläuterung

               :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

Alternative

eÈ*°Y¨(T±X

Versuch es

               :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