Eine Reihe von Herausforderungen # 3: Moving Averages

16

Hinweis: Dies ist die Nummer 3 in einer Reihe von Array-Manipulationsherausforderungen . Für die vorherige Herausforderung klicken Sie hier .

Gleitender Durchschnitt einer Liste

Der gleitende Durchschnitt einer Liste ist eine Berechnung, die zu einer neuen, geglätteten Liste führt, die durch Mitteln kleiner überlappender Unterlisten des Originals erstellt wird.

Bei der Erstellung eines gleitenden Durchschnitts wird zunächst die Liste der überlappenden Unterlisten mit einer bestimmten Fenstergröße erstellt, wobei dieses Fenster jedes Mal nach rechts verschoben wird.

Bei gegebener Liste [8, 4, 6, 2, 2, 4]und Fenstergröße 3wären die Unterlisten beispielsweise:

[8,  4,  6,  2,  2,  4]          Sublists:
(         )                  <-  [8, 4, 6]
    (         )              <-  [4, 6, 2]
        (         )          <-  [6, 2, 2]
            (         )      <-  [2, 2, 4]

Wir berechnen dann den Mittelwert jeder Unterliste, um das Ergebnis zu erhalten: [6.0, 4.0, 3.3, 2.7](jeder Wert wird auf eine Dezimalstelle gerundet).

Die Herausforderung

Ihre Aufgabe ist es, ein Programm oder eine Funktion zu schreiben, die bei gegebener Liste L und einer ganzen Zahl von 1 ≤ n ≤ Länge (L) den gleitenden Durchschnitt für L unter Verwendung der Fenstergröße n berechnet .

Regeln:

  • Ihr Programm kann eine Ganzzahl- oder eine Gleitkommadivision verwenden. Bei der Float-Division sind kleine Ungenauigkeiten aufgrund der Einschränkungen des Datentyps zulässig, sofern der Wert ansonsten korrekt ist.
  • Sie können ein vollständiges Programm oder eine Funktion (aber kein Ausschnitt) einreichen.
  • Sie können davon ausgehen, dass die Liste nur positive ganze Zahlen enthält .
  • Standardlücken sind verboten.
  • Das ist Code-Golf , also gewinnt die kürzeste Antwort (in Bytes)!

Testfälle

Beachten Sie, dass zur besseren Lesbarkeit alle Werte auf eine Dezimalstelle gerundet werden.

n=5, [1, 2, 3, 4, 5, 6, 7, 8]      ->      [3, 4, 5, 6]
n=3, [100, 502, 350, 223, 195]     ->      [317.3, 358.3, 256]
n=1, [10, 10, 10]                  ->      [10, 10, 10]
n=3, [10, 20, 30]                  ->      [20]
n=2, [90, 40, 45, 100, 101]        ->      [65, 42.5, 72.5, 100.5]
code-golf math arithmetic array-manipulation statistics FlipTack
quelle
Müssen wir Float-Werte runden oder können wir sie so lassen, wie sie sind?
Caird Coinheringaahing
3
@cairdcoinheringaahing Beachten Sie, dass zur besseren Lesbarkeit alle Werte auf eine Dezimalstelle gerundet werden . Meiner Meinung nach können Sie sie definitiv so lassen, wie sie sind (zumindest verstehe ich das so).
Mr. Xcoder
@cairdcoinheringaahing Ich war ziemlich liberal mit I / O: Integer- oder Float-Werte sind in Ordnung, Sie können runden, wenn Sie wollen, aber nicht müssen, und Gleitkommafehler sind erlaubt
FlipTack
Ist es in Ordnung, Brüche anstelle von Gleitkommazahlen zurückzugeben?
JungHwan Min
@JungHwanMin Wenn Ihre Sprache aus Gründen der Genauigkeit Werte als Brüche und nicht als Gleitkommazahlen speichert, ist es in Ordnung, sie in ihrer einfachsten Form als genaue Brüche auszudrucken.
FlipTack

Antworten:

7

Gelee , 3 Bytes

ṡÆm

Probieren Sie es online!

Ganz einfach dank ṡ

Wie es funktioniert

ṡÆm - Main dyadic link. Arguments: l (list) and n (integer)
ṡ   - Split l into sublists of length n
 Æm - Mean of each
Caird Coinheringaahing
quelle
7

Wolfram Language (Mathematica) , 13 Byte

In Mathematica ist für alles etwas eingebaut

MovingAverage

Probieren Sie es online!

Nimmt eine Liste und dann einen Radius ...

JungHwan min
quelle
6
MovingAverageಠ _____ ಠ Ich weigere mich, das zu glauben
Mr. Xcoder
@cairdcoinheringaahing Nimmt den numerischen Wert an. MovingAverageGibt eine Menge von Brüchen zurück. Nun, da es vom OP erlaubt wurde, MovingAveragesollte es in der Tat ausreichen.
Mr. Xcoder
7

Haskell , 47 Bytes

n!a|length a<n=[]|_:t<-a=div(sum$take n a)n:n!t

Probieren Sie es online!

Zwei Bytes dank xnor gespart!

Lynn
quelle
1
tail akann in der Wache extrahiert werden.
5.
Gah, ich wusste, dass mir so etwas fehlt. Vielen Dank!
Lynn
7

Dyalog APL, 4 Bytes

1 Byte gespeichert dank @Graham

2 Bytes gespart dank @ jimmy23013

Habe ich schon erwähnt, dass APL keine Golfsprache ist?

⊢+/÷

mit nrechts, oder

+/÷⊣

mit Lauf der rechten Seite.

Probieren Sie es online!

Wie?

÷- Teilen Ldurchn

⊢+/- Reduzieren Sie +auf Fenster vonn

Uriel
quelle
Teilen Sie L vor der Reduktion durch n. Speichert ein Byte
Graham
⊢ + / ÷
Jimmy23013
Oder + / ÷ ⊣
jimmy23013
@ Jimmy23013 vielen Dank! Ich habe es früher versucht, muss aber die Argumente falsch eingegeben haben, da es nicht funktioniert hat.
Uriel
6

Python , 48 Bytes

f=lambda n,l:l[n-1:]and[sum(l[:n])/n]+f(n,l[1:])

Probieren Sie es online!

Eine rekursive Funktion. Kürzer als das Programm (50 Bytes)

n,l=input()
while l[-n]:print sum(l[:n])/n;l=l[1:]

Probieren Sie es online!

Das spart 2 Bytes, indem es unter der whileBedingung mit Fehler beendet wird.

xnor
quelle
4

Tragen Sie 3 Bytes ein

ṡÆm

Probieren Sie es online!

Mr. Xcoder
quelle
Polyglot mit Gelee: P
caird coinheringaahing
@cairdcoinheringaahing Ich habe gerade erst Ihre Gelee-Antwort zu lol bemerkt: P
Mr. Xcoder
4

Perl 6 , 33 Bytes

{@^a.rotor($^b=>1-$b)».sum X/$b}

Probier es aus

Erweitert:

{  # bare block with placeholder parameters ｢@a｣, ｢$b｣

  @^a                # declare and use first param

  .rotor(            # split it into chunks
    $^b              # declare and use second param
    =>               # pair it with
    1 - $b           # one less than that, negated

  )».sum             # sum each of the sub lists

  X/                 # cross that using &infix:«/»

  $b                 # with the second param
}
Brad Gilbert b2gills
quelle
4

C  86   84  83 Bytes

i,j,s;f(a,l,n)int*a;{for(i=-1;i+++n<l;s=!printf("%d ",s/n))for(j=n;j--;)s+=a[i+j];}

Probieren Sie es online!

Abgerollt:

i, j, s;
f(a, l, n)int*a;
{
    for(i=-1; i+++n<l; s=!printf("%d ", s/n))
        for(j=n; j--;)
            s += a[i+j];
}
Steadybox
quelle
4

J, 7,5 Bytes

]+/\%

Probieren Sie es online!

Nimmt nals rechtes Argument und die Liste als linkes. Dank an Uriels Lösung für die Idee, nur die Summierung im Infix durchzuführen.

Erläuterung

]+/\%
    %  Divide list by n
]+/\   Sum on overlapping intervals of size n

Vorherige Lösung (7 Bytes)

(+/%#)\
      \  Apply to overlapping intervals of size n
(+/%#)   Mean
 +/        Sum
   %       Divided by
    #      Length
cole
quelle
4

Ohm v2 , 3 Bytes

ÇÆm

Probieren Sie es online!

Erläuterung:

ÇÆm  Main wire, arguments l (list) and n (integer)

Ç    All consecutive sublists of l with length n
 Æm  Arithmetic mean of each sublist
Nick Clifford
quelle
3

Pyth , 5 Bytes

.O.:F

Probieren Sie es hier aus!

Wie das geht

.O.: F - Volles Programm.

    F - Reduzieren Sie die Eingabe (verschachtelte Liste) mit ...
  .: - ... Nebenlisten.
.O - Durchschnitt von jedem.
Mr. Xcoder
quelle
3

Oktave , 33 31 Bytes

@(x,n)conv(x,~~(1:n)/n,'valid')

Probieren Sie es online!

Erläuterung

Convolution ( conv) ist im Wesentlichen eine bewegte gewichtete Summe. Wenn die Gewichte als [1/n, ..., 1/n](erhalten als ~~(1:n)/n) gewählt werden, ist das Ergebnis ein gleitender Durchschnitt, von dem nur der 'valid'Teil beibehalten wird.

Luis Mendo
quelle
2

R , 72 Bytes

function(l,n)(k=sapply(0:sum(l|1),function(x)mean(l[x+1:n])))[!is.na(k)]

Probieren Sie es online!

Berechnet meandie Größe aller nFenster. Wenn das Fenster den Rand von überschreitet l, werden die Ergebnisse NAso herausgefiltert, dass wir sie herausfiltern.

R + Zoo-Paket, 13 Bytes

zoo::rollmean

Das zooPaket (S3-Infrastruktur für reguläre und unregelmäßige Zeitreihen) verfügt über viele praktische Funktionen. Sie können es hier versuchen (R-Geige) .

Giuseppe
quelle
2

Japt v2.0a0, 7 Bytes

ãV ®x÷V

Versuch es

Erläuterung

Implizite Eingabe von Array Uund Ganzzahl V.

ãV

Holen Sie sich Unterabschnitte Umit LängeV

®

Karte über die Unterabschnitte.

÷V

Teilen Sie jedes Element durch V.

x

Summiere alle Elemente.

Zottelig
quelle
1

05AB1E , 5 Bytes

ŒsùÅA

Erläuterung:

Π    All substrings
 sù   Keep those only where the length is equal to <the second input>
   ÅA Arithmetic mean of each element in the resulting array.

Probieren Sie es online!

Okx
quelle
1

Mathematica, 21 Bytes

Mean/@##~Partition~1&

Probieren Sie es online!

-3 Bytes JungHwan min

J42161217
quelle
-3 Bytes:N[Mean/@##~Partition~1]&
JungHwan Min
1

Proton , 46 Bytes

n=>l=>[sum(l[h to h+n])/n for h:0..len(l)-n+1]

Probieren Sie es online!

Beachten Sie, dass dies über die Currying-Funktionssyntax eingegeben wird und eine Liste von Brüchen zurückgibt.

Mr. Xcoder
quelle
1

CJam, 14 12 Bytes

-2 Bytes dank @aditsu 

{_@ew::+\f/}
Esolanging Fruit
quelle
0

Jq 1,5 , 61 Bytes

def f(N;L):[L|range(0;1+length-N)as$i|.[$i:$i+N]|add/length];

Erweitert

def f(N;L):
  [   L
    | range(0;1+length-N) as $i        # generate
    | .[$i:$i+N]                       # sublists
    | add/length                       # compute mean
  ];

Probieren Sie es online!

jq170727
quelle
0

JavaScript (ES6), 53 Byte

(l,n)=>l.map(e=>(s+=e-=a[i-n]||0)/n,s=i=0).slice(n-1)
Neil
quelle
0

Gestapelt , 22 Bytes

[infixes[:sum\#'/]map]

Probieren Sie es online!

Erläuterung

infixesgeneriert alle Fenster der angegebenen Länge. Dann bilden wir über jedes Infix unsere eigene Durchschnittsfunktion ab.

Conor O'Brien
quelle
0

K (oK) , 13 11 Bytes

Lösung:

{+/+x':y%x}

Probieren Sie es online!

Beispiele:

{+/+x':y%x}[3;8 4 6 2 2 4]
6 4 3.3333 2.6667
{+/+x':y%x}[5;1 2 3 4 5 6 7 8]
3 4 5 6

Erläuterung:

oK verfügt über eine integrierte Funktion zum Erstellen eines Schiebefensters. Fassen Sie die resultierenden Arrays zusammen und dividieren Sie sie durch die Größe des Schiebefensters, um den Mittelwert zu erhalten:

{+/+x':y%x} / the solution
{         } / lambda function taking x and y as implicit parameters
       y%x  / y (list) by x (sliding array size)
    x':     / sliding window of size x over list y
   +        / flip array (rotate by 90 degrees)
 +/         / sum up array
Streetster
quelle
Sieht so aus, als ob Sie das Flip-Array + nicht benötigen. Wenn K wie APL pendelt, können Sie x%[commute]nach links gehen und die Parens ablegen
Uriel,
Die Flip benötigt die Summe ist , um sicherzustellen , über , anstatt nach unten jeder Liste, und ziemlich sicher , dass es kein pendeln Operator, zumindest nichts , um es in dem vorschlagen Handbuch . Prost aber!
Streetster
0

DataWeave , 50 Bytes

fun s(l,w)=0 to(sizeOf(l)-w)map avg(l[$ to $+w-1])
%dw 2.0
output application/json

fun sma(list: Array<Number>, window: Number) =
  0 to (sizeOf(list) - window)  // generate starting indices of sublists
  map list[$ to $ + window - 1] // generate sublists
  map avg($)                    // calculate averages

---
sma([90, 40, 45, 100, 101], 2)
Menduz
quelle
0

Java 8, 111 Bytes

a->n->{int l=a.length-n+1,i=0,j;float[]r=new float[l];for(;i<l;r[i++]/=n)for(j=i;j<i+n;r[i]+=a[j++]);return r;}

Erläuterung:

Probieren Sie es hier aus.

a->n->{                 // Method with array and int parameters and float-array return-type
  int l=a.length-n+1,   //  New length of the return-array
      i=0,j;            //  Index-integers
  float[]r=new float[l];//  Return-array
  for(;i<l;             //  Loop (1) from 0 to `l` (exclusive)
      r[i++]/=n)        //    After every iteration, divide the current item by input `n`
    for(j=i;j<i+n;      //   Inner loop (2) from `i` to `i+n` (exclusive)
      r[i]+=a[j++]      //    Sum the result at index `i` with the items of the input-array
    );                  //   End of inner loop (2)
                        //  End of loop (1) (implicit / single-line body)
  return r;             //  Return the resulting float-array
}                       // End of method
Kevin Cruijssen
quelle