Averages/Median: Difference between revisions

Content added Content deleted
Line 865: Line 865:


=={{header|Elena}}==
=={{header|Elena}}==
ELENA 3.x :
ELENA 3.1 :
<lang elena>#import system'routines.
<lang elena>import system'routines.
#import system'math.
import system'math.
#import extensions.
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 writeLine:"median of (":a1:") is ":(a1 median).
console printLine:"median of (":a1:") is ":(a1 median).
console writeLine:"median of (":a2:") is ":(a2 median).
console printLine:"median of (":a2:") is ":(a2 median).
console readChar.
console readChar.