Anonymous user
Averages/Mode: Difference between revisions
→{{header|Elena}}
m (→Version 1: elided a subroutine, added/changed whitespace and comments.) |
|||
Line 556:
#define system'collections.
#define extensions.
#symbol mode = (:anArray)
[
#var aCountMap := Dictionary new &default:0.
control
[
aCountMap set &key:anItem &
].
[ p
#var
? [ aResult += anItem key. ].▼
^
control run:(
aCountMap~enumerable
filter &each:kv [ aMax safeEqual:kv ]
select &each:kv [ kv key ]
&forEach:(Summing new:(List new))).
].
Line 586 ⟶ 583:
#var anArray1 := (1, 1, 2, 4, 4).
#var anArray2 := (1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17).
#var anArray3 := (1, "blue", 2, 7.5r, 5, "green", "red", 5, 2, "blue", "white").
#var aMode1 := mode:anArray1.
#var aMode2 := mode:anArray2.
#var aMode3 := mode:anArray3.
consoleEx writeLine:"mode of (":anArray1:") is (":aMode1:")".
consoleEx writeLine:"mode of (":anArray2:") is (":aMode2:")".
consoleEx writeLine:"mode of (":anArray3:") is (":aMode3:")".
].</lang>
|