fork download
copy 
  1. f = @(x)mean(reshape(~~(1:4)'*x,[],4)(:,2:3)(:))
  2.  
  3. f([1, 3, 4, 5, 6, 6, 7, 7, 8, 8, 9, 38])
  4.  
  5. f( [1, 3, 5, 7, 9, 11, 13, 15, 17])
Success #stdin #stdout 0.68s 121792KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
f =

@(x) mean (reshape (!!(1:4)' * x, [], 4) (:, 2:3) (:))

ans =  6.5000
ans =  9
https://ideone.com/wNEdX1
language:
Octave (octave 4.4.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!