Averages/Median: Difference between revisions
Content deleted Content added
Added PicoLisp |
|||
Line 603:
median = (a(n/2) + a(trunc(n/2)+1) )/2;
</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(de median (Lst)
(let N (length Lst)
(if (bit? 1 N)
(get (sort Lst) (/ (inc N) 2))
(setq Lst (nth (sort Lst) (/ N 2)))
(/ (+ (car Lst) (cadr Lst)) 2) ) ) )
(scl 2)
(prinl (format (median (1.0 2.0 3.0)) *Scl))
(prinl (format (median (1.0 2.0 3.0 4.0)) *Scl))
(prinl (format (median (5.1 2.6 6.2 8.8 4.6 4.1)) *Scl))
(prinl (format (median (5.1 2.6 8.8 4.6 4.1)) *Scl))</lang>
Output:
<pre>2.00
2.50
4.85
4.60</pre>
=={{header|PureBasic}}==
| |||