우리는 정의 하이퍼 평균 (숫자) 배열 / 목록의 접두사의 합계의 산술 평균을.

예를 들어, 목록의 하이퍼 평균은 [1, 4, -3, 10]다음과 같은 방식으로 계산됩니다.

• 우리는 접두사를 얻는다 : [1], [1, 4], [1, 4, -3], [1, 4, -3, 10].

• 각각을 요약하십시오 : [1, 5, 2, 12].

• 이제이 목록에있는 요소의 산술 평균을 얻으십시오 (1 + 5 + 2 + 12) / 4 = 5.

배열 의 의사 요소는 값이 하이퍼 평균보다 엄격하게 낮은 요소입니다 . 따라서, 우리의 실시 예에서의 가상 요소는 1, 4및 -3.

부동 소수점 숫자 목록이 제공되면 의사 요소 목록을 반환해야합니다.

• 부동 소수점 부정확성에 대해 걱정할 필요가 없습니다.

• 입력 목록은 절대로 비어 있지 않으며 정수와 부동 소수점을 모두 포함 할 수 있습니다. 언급 한 경우, 정수는 (와 수레로 할 수있다 <integer>.0)

• 숫자가 선택한 언어에 맞는 것으로 가정 할 수 있지만 어떤 식 으로든 그것을 남용하지 마십시오.

• 선택적으로 배열의 길이를 입력으로 사용할 수도 있습니다.

• 이것은 code-golf 이므로 태그의 표준 규칙이 적용됩니다. 바이트 단위의 짧은 코드 ( 각 언어로 )가 이깁니다!

테스트 사례

입력-> 출력

[10.3]-> []
[5.4, 5.9]-> [5.4, 5.9]
[1, 4, -3, 10]-> [1, 4, -3]
[-300, -20.9, 1000]-> [-300, -20.9]
[3.3, 3.3, 3.3, 3.3]-> [3.3, 3.3, 3.3, 3.3]
[-289.93, 912.3, -819.39, 1000]-> [-289.93, -819.39]

MATL , 8 바이트

ttYsYm<)

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .

설명

tt    % Implicitly input array. Duplicate twice
Ys    % Cumulative sum
Ym    % Arithmetic mean
<     % Less than? (element-wise). Gives an array containing true / false
)     % Reference indexing : use that array as a mask to select entries 
      % from the input. Implicitly display

05AB1E , 9 8 바이트

Magic Octopus Urn 덕분에 -1 바이트

ηOO¹g/‹Ï

온라인으로 사용해보십시오!

η        # Get prefixes
 O       # Sum each
  O¹g/   # Get the mean ( length(prefix list) equals length(original list) )
      ‹Ï # Keep only the value that are less than the mean

05AB1E , 6 바이트

새로운 ÅA명령을 사용합니다 .

ηOÅA‹Ï

온라인으로 사용해보십시오!

η      # Get prefixes
 O     # Sum each
  ÅA   # Get the mean
    ‹Ï #  Keep only the value that are less than the mean

Japt v2.0a0, 12 11 10 바이트

f<Uå+ x÷Ul

그것을 테스트

• ETH 가 중복 문자를 가리켜 1 바이트가 절약되었습니다 .

설명

배열의 암시 적 입력 U.

f<

필터 ( f)의 각 요소 미만인지 확인하여 배열 ...

Uå+

Uå합산하여 누적 감소 ( ) ...

x

결과 배열을 합산하면 감소합니다 ...

/Ul

그리고의 길이 ( l)로 나눕니다 U.

결과 배열을 내재적으로 출력합니다.

파이썬 3 와 NumPy와 , 48 바이트

lambda x:x[x<mean(cumsum(x))]
from numpy import*

입력과 출력은 Numpy 배열입니다. 온라인으로 사용해보십시오!

젤리 , 9 바이트

+\S÷L<Ðf@

온라인으로 사용해보십시오!

파이썬 2 , 78 76 71 66 바이트

Mr. Xcoder 덕분에 -7 바이트.

lambda l:[x for x in l if x<sum(sum(l[:i])for i in range(len(l)))]

온라인으로 사용해보십시오!

하스켈, 39 바이트

f l=filter(<sum(scanl1(+)l)/sum(1<$l))l

온라인으로 사용해보십시오!

불행히도 length유형 Int이므로 부동 소수점 나누기 /와 함께 사용할 수 없으며 해결 방법을 사용해야합니다 sum(1<$l).

껍질 , 10 9 바이트

1 바이트를 골라 내고 @Zgarb에게 감사드립니다!

f</L⁰Σ∫⁰⁰

온라인으로 사용해보십시오!

언 골프 / 설명

           -- argument is ⁰ (list) 
f       ⁰  -- filter the original list with
 <         --   element strictly smaller than
     Σ∫⁰   --   sum of all prefixes
  /L⁰      --   averaged out

자바 스크립트 (ES6), 56 55 52 바이트

a=>a.filter(x=>x<t/a.length,a.map(x=>t+=s+=x,s=t=0))

그것을 테스트

o.innerText=(f=

a=>a.filter(x=>x<t/a.length,a.map(x=>t+=s+=x,s=t=0))

)(i.value=[1,4,-3,10]);oninput=_=>o.innerText=f(i.value.split`,`.map(eval))

<input id=i><pre id=o>

자바 8, 81 바이트

이 람다 식은 a를 받아들이고 List<Float>변형합니다. 입력 목록의 반복자는 제거를 지원해야합니다 ( ArrayList예 :의 경우). 에 할당하십시오 Consumer<List<Float>>.

a->{float l=0,t=0,u;for(float n:a)t+=n*(a.size()-l++);u=t/l;a.removeIf(n->n>=u);}

언 골프 람다

a -> {
    float l = 0, t = 0, u;
    for (float n : a)
        t += n * (a.size() - l++);
    u = t / l;
    a.removeIf(n -> n >= u);
}

온라인 시도

감사의 말

• Kevin Cruijssen 덕분에 -3 바이트
• Nevay 덕분에 -17 바이트

C # (모노) , 95 바이트

using System.Linq;a=>a.Where(d=>d<new int[a.Length].Select((_,i)=>a.Take(i+1).Sum()).Average())

온라인으로 사용해보십시오!

파이썬 3 , 72 바이트

lambda x:[*filter((sum(-~a*b for a,b in enumerate(x))/len(x)).__gt__,x)]

온라인으로 사용해보십시오!

파이썬 3 , 76 바이트

lambda x:[w for w in x if w<sum(u*v+v for u,v in enumerate(x[::-1]))/len(x)]

입력 및 출력은 숫자 목록입니다. 온라인으로 사용해보십시오!

이것은 Python 2에서도 작동 print합니다 (바닥 글의 구문을 분명히 대체 함 ).

펄 6 , 31 바이트

{.grep(flat([\,] $_).sum/$_>*)}

온라인으로 사용해보십시오!

Pyth-10 바이트

<#.OsM._QQ

여기에서 온라인으로 사용해보십시오 .

Pyth, 12 11 바이트

f<T.OsM._QQ

Mr. Xcoder 덕분에 -1 바이트

온라인으로 사용해보십시오!

펄 5 , 51 + 1 (-a) = 52 바이트

$a+=$_*(@F-$c++)for@F;for(@F){print$_,$"if$_<$a/@F}

온라인으로 사용해보십시오!

PHP, 84 바이트

for($i=--$argc;$i;)$s+=$i--/$argc*$r[]=$argv[++$k];foreach($r as$x)$x<$s&&print$x._;

명령 행 인수에서 입력을받습니다. 온라인으로 실행 -nr하거나 사용해보십시오 .

부분리스트를 합산하는 것은 각 원소를 합산하는 것과 동일하며, 다음 원소의 수 +1 → 부피가 큰 배열 함수로 저글링 할 필요가 없습니다. 그래도 여전히 길다.

로다 , 46 41 39 바이트

f l{l|[_]if[_1*#l<seq(1,#l)|l[:_]|sum]}

온라인으로 사용해보십시오!

J, 15 바이트

#~[<[:(+/%#)+/\

온라인으로 사용해보십시오! J 스타일 배열을 기대합니다 (음표 _대신- 공백으로 구분 된 요소 요소를 -예제는 TIO 링크 참조).

평균 주위의 괄호를 제거하는 방법이 있는지 모르겠습니다.+/%# ) 못하지만 모자를 제거하면 골프를 치기 위해 가장 먼저 시도 할 것입니다.

설명

때로는 J는 (난독 화 된) 영어처럼 읽습니다.

#~ [ < [: (+/ % #) +/\
                   +/\  Sum prefixes
                     \   Get prefixes
                   +/    Sum each
          (+/ % #)      Mean
           +/            Sum of array
              %          Divided by
                #        Length of array
   [ <                  Input array is less than?
                         (gives boolean array of pairwise comparisons)
#~                      Filter by

R , 31 바이트

function(l)l[l<mean(cumsum(l))]

온라인으로 사용해보십시오!

Mathematica, 35 바이트

Cases[#,x_/;x<#.Range[#2,1,-1]/#2]&

Function이것은 첫 번째 인수로 숫자 #목록을, 두 번째 인수로 목록의 길이 를 예상합니다 #2. #.Range[#2,1,-1]/#2입력 목록 #과 목록의 내적을 취한 Range[#2,1,-1] == {#2,#2-1,...,1}다음 길이로 나눕니다 #2. 그런 다음 하이퍼 평균보다 작은 Cases x_입력 목록에 입력 을 반환합니다 #.

두 번째 인수로 길이가 없으면 6더 많은 바이트 가 필요 합니다.

Cases[#,x_/;x<#.Range[h=Tr[1^#],1,-1]/h]&

K (oK) , 26 바이트

해결책:

x@&x<(+/+/'x@!:'1+!#x)%#x:

온라인으로 사용해보십시오!

예 :

> x@&x<(+/+/'x@!:'1+!#x)%#x:1 4 -3 10
1 4 -3
> x@&x<(+/+/'x@!:'1+!#x)%#x:-289.93 912.3 -819.39 1000
-289.93 -819.39

설명:

오른쪽에서 왼쪽으로 해석됩니다. 접두사를 추출하는 간단한 방법으로 어려움을 겪었습니다.

x@&x<(+/+/'x@!:'1+!#x)%#x: / the solution
                        x: / store input in x, x:1 4 -3 10
                       #   / count, return length of x, #1 4 -3 10 => 4
     (               )     / do everything in the brackets together
                   #x      / count x
                  !        / til, range 0..x, !4 => 0 1 2 3
                1+         / add 1 vectorised, 1+0 1 2 3 => 1 2 3 4
             !:'           / til each, e.g. !1, !2, !3, !4
           x@              / index into x at these indices (now we have the prefixes)
        +/'                / sum (+ over) each, e.g. 1 5 2 12
      +/                   / sum over, e.g. 20
                      %    / right divided by left, 20%4 => 5 (now we have the hyper average)
   x<                      / boolean list where x less than 5
  &                        / indices where true, &0111b => 1 2 3
x@                         / index into x at these indices (now we have the filtered list)

노트:

입력 길이를 매개 변수로 사용하는 대체 버전 ( 25 바이트 솔루션) :

> {x@&x<(+/+/'x@!:'1+!y)%y}[1 4 -3 10;4]
1 4 -3

TI 기본, 9 바이트

Ans*(Ans<mean(cumSum(Ans