/ find the median of the list

findconf:{[fraction; v]
 av: med v;
 out: ();
 mynum: 10000;
 do[mynum; out,: med v[(count v) ? (count v)];];
 vsort: asc out;
 remainder: (1 - fraction) % 2;
 (av; vsort[floor (1-remainder)*mynum]; vsort[floor (remainder*mynum)]) }


x: "F"$ .z.x

med x

findconf[0.95; x]