_{注：これは、一連のアレイ操作の課題の3 番目です。前のチャレンジについては、ここをクリックしてください。}

リストの移動平均

リストの移動平均は、元の小さな重複サブリストを平均化することによって作成された、新しい平滑化されたリストを生成する計算です。

移動平均を作成するとき、特定の「ウィンドウサイズ」を使用して重複するサブリストのリストを最初に生成し、このウィンドウを毎回右にシフトします。

たとえば、リスト[8, 4, 6, 2, 2, 4]とウィンドウサイズを指定する3と、サブリストは次のようになります。

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

次に、各サブリストの平均値を計算して結果を取得します[6.0, 4.0, 3.3, 2.7]（各値は小数点以下1桁に丸められます）。

チャレンジ

あなたの仕事は、リストLおよび整数1≤n≤length（L）が与えられ、ウィンドウサイズnを使用してLの移動平均を計算するプログラムまたは関数を書くことです。

ルール：

• プログラムでは、整数除算または浮動小数点除算を使用できます。浮動小数点除算の場合、値がそれ以外の場合に正しい限り、データ型の制限によるわずかな不正確さが許可されます。
• 完全なプログラムまたは機能を送信できます（スニペットは送信できません）。
• リストには正の整数のみが含まれると想定できます。
• 標準的な抜け穴は禁止されています。
• これはcode-golfなので、最短の回答（バイト単位）が勝ちです！

テストケース

読みやすくするために、すべての値は小数点以下1桁に丸められていることに注意してください。

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]

ゼリー、3バイト

ṡÆm

オンラインでお試しください！

とてもシンプルなおかげで ṡ

使い方

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

Wolfram言語（Mathematica）、13バイト

^{Mathematicaにはすべての機能が組み込まれています}

MovingAverage

オンラインでお試しください！

リストを取得してから半径を取得します...

Haskell、47バイト

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

オンラインでお試しください！

xnorのおかげで2バイト節約されました！

Dyalog APL、4バイト

@Grahamのおかげで1バイト節約

@ jimmy23013のおかげで2バイト節約

APLはゴルフの言語ではないことを述べましたか？

⊢+/÷

n右に、または

+/÷⊣

L右側に。

オンラインでお試しください！

どうやって？

÷-分割Lによってn

⊢+/-の+ウィンドウで削減n

Python、48バイト

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

オンラインでお試しください！

再帰関数。プログラムより短い（50バイト）

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

オンラインでお試しください！

これは、while条件でエラーで終了することにより2バイトを節約します。

登録、3バイト

ṡÆm

オンラインでお試しください！

Perl 6、33バイト

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

試して

拡張：

{  # 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
}

C、 86   84  83バイト

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

オンラインでお試しください！

展開：

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

J、₇ 5バイト

]+/\%

オンラインでお試しください！

n右側の引数として、リストを左側として取ります。中置の合計のみを行うというアイデアに対するUrielのソリューションの功績です。

説明

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

以前のソリューション（7バイト）

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

Ohm v2、3バイト

ÇÆm

オンラインでお試しください！

説明：

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

Ç    All consecutive sublists of l with length n
 Æm  Arithmetic mean of each sublist

Pyth、5バイト

.O.:F

ここで試してみてください！

仕組み

.O。：F-完全なプログラム。

    F-入力（ネストされたリスト）を減らす...
  。：-...サブリスト。
.O-それぞれの平均。

オクターブ、33 31バイト

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

オンラインでお試しください！

説明

畳み込み（conv）は、本質的に移動する加重和です。重みが[1/n, ..., 1/n]（として取得~~(1:n)/n）として選択された場合、結果は移動平均になり、その'valid'部分のみが保持されます。

R、72バイト

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

オンラインでお試しください！

meanすべてのサイズのnウィンドウを計算します。ウィンドウがの端を通過するlと、結果がNAフィルタリングされます。

R +動物園パッケージ、13バイト

zoo::rollmean

zooパッケージ（規則及び不規則時系列のためのS3インフラストラクチャは）便利な機能をたくさん持っています。こちら（R-fiddle）で試すことができます。

Japt v2.0a0、7バイト

ãV ®x÷V

それを試してみてください

説明

配列Uと整数の暗黙的な入力V。

ãV

のサブセクションを取得UしますV

®

サブセクションにマップします。

÷V

各要素をで除算しVます。

x

すべての要素を合計します。

Python 3、61バイト

lambda l,n:[sum(e)/n for e in zip(*[l[i:]for i in range(n)])]

オンラインでお試しください！

Python 3、55バイト

lambda n,A:[sum(A[j:n+j])/n for j in range(-n-~len(A))]

オンラインでお試しください！

05AB1E、5バイト

ŒsùÅA

説明：

Π    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.

オンラインでお試しください！

Mathematica、21バイト

Mean/@##~Partition~1&

オンラインでお試しください！

-3バイトジョンファンミン

プロトン、46バイト

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

オンラインでお試しください！

これはカリー化関数構文を介して入力を受け取り、分数のリストを返すことに注意してください。

CJam、14 12バイト

^{@aditsuのおかげで-2バイト}

{_@ew::+\f/}

Jq 1.5バイト

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

拡大

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

オンラインでお試しください！

JavaScript（ES6）、53バイト

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

PHP、94バイト

function f($l,$n){while($i<=count($l)-$n)$r[]=array_sum(array_slice($l,$i++,$n))/$n;return$r;}

オンラインでお試しください！

Clojure、48バイト

(fn[n a](map #(/(apply + %)n)(partition n 1 a)))

オンラインでお試しください！

積み上げ、22バイト

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

オンラインでお試しください！

説明

infixes指定された長さのすべてのウィンドウを生成します。次に、各中置に独自の平均関数をマッピングします。

Common Lisp、77バイト

(defun f(x y)(if(>=(length x)y)(cons(/(apply'+(subseq x 0 y))y)(f(cdr x)y))))

オンラインでお試しください！

K（oK）、13 11バイト

解決：

{+/+x':y%x}

オンラインでお試しください！

例：

{+/+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

説明：

oK スライディングウィンドウを作成するためのビルトインがあり、結果の配列を合計し、スライディングウィンドウサイズで除算して平均を求めます。

{+/+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

DataWeave、50バイト

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)

ファンキー、67 66バイト

カレー構文でバイトを保存しました。

n=>t=>{k={}fori=0i<=(#t)-n i++k[i]=(forj=c=0c<n c++j+=t[i+c])/n k}

オンラインでお試しください！

Java 8、111バイト

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

説明：

ここで試してみてください。

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