%% syntaxe : array mediane --> la mediane du tableau de nombres array
/mediane {
6 dict begin
/l exch def
/n l length 1 sub def
/tab n 1 add array def
0 1 n {
/i exch def
tab i l i get put
} for
tab bubblesort pop
/a n 2 idiv def
/b n 1 add 2 idiv def
tab a get tab b get add 2 div
end
} def
|