Averages/Median: Difference between revisions
Content added Content deleted
Line 865: | Line 865: | ||
=={{header|Elena}}== |
=={{header|Elena}}== |
||
ELENA 3. |
ELENA 3.1 : |
||
<lang elena> |
<lang elena>import system'routines. |
||
import system'math. |
|||
import extensions. |
|||
extension op |
extension op |
||
Line 878: | Line 878: | ||
var aLen := aSorted length. |
var aLen := aSorted length. |
||
if (aLen == 0) |
if (aLen == 0) |
||
[ ^ nil |
[ ^ nil ]; |
||
[ |
[ |
||
var aMiddleIndex := aLen / 2. |
var aMiddleIndex := aLen / 2. |
||
if (aLen mod:2 == 0) |
if (aLen mod:2 == 0) |
||
[ ^ (aSorted@(aMiddleIndex - 1) + aSorted@aMiddleIndex) / 2 |
[ ^ (aSorted@(aMiddleIndex - 1) + aSorted@aMiddleIndex) / 2 ]; |
||
[ ^ aSorted@aMiddleIndex |
[ ^ aSorted@aMiddleIndex ] |
||
] |
] |
||
] |
] |
||
} |
} |
||
Line 893: | Line 893: | ||
var a2 := (4.1r, 7.2r, 1.7r, 9.3r, 4.4r, 3.2r). |
var a2 := (4.1r, 7.2r, 1.7r, 9.3r, 4.4r, 3.2r). |
||
console |
console printLine:"median of (":a1:") is ":(a1 median). |
||
console |
console printLine:"median of (":a2:") is ":(a2 median). |
||
console readChar. |
console readChar. |