Fivenum: Difference between revisions

</pre>

=={{header|EasyLang}}==

{{trans|Ring}}

<syntaxhighlight>

func median t[] low high .

l = high - low + 1

m = low + l div 2

if l mod 2 = 1

return t[m]

.

return (t[m - 1] + t[m]) / 2

.

proc sort . d[] .

for i = 1 to len d[] - 1

for j = i + 1 to len d[]

if d[j] < d[i]

swap d[j] d[i]

.

.

.

.

func[] fivenum t[] .

sort t[]

l = len t[]

m = l div 2 + l mod 2

r1 = t[1]

r2 = median t[] 1 m

r3 = median t[] 1 l

r4 = median t[] (m + 1) l

r5 = t[l]

return [ r1 r2 r3 r4 r5 ]

.

print fivenum [ 0.14082834 0.09748790 1.73131507 0.87636009 -1.95059594 0.73438555 -0.03035726 1.46675970 -0.74621349 -0.72588772 0.63905160 0.61501527 -0.98983780 -1.00447874 -0.62759469 0.66206163 1.04312009 -0.10305385 0.75775634 0.32566578 ]

print fivenum [ 36 40 7 39 41 15 ]

</syntaxhighlight>

{{out}}

<pre>

[ -1.95 -0.68 0.23 0.75 1.73 ]

[ 7 15 37.50 40 41 ]