Averages/Mode: Difference between revisions

=={{header|Elena}}==

 

#define std'patterns'*.

#define std'routines'*.

#define std'collections'*.

 

#subject mode.

[

#var aCountMap := Dictionary.

[

#if aCountMap@anItem += 1

(aCountMap@anItem) set &content:(Integer::1).

].

aCountMap~eindexeditem~esort run: aPair => (aPair former > aPair later).

Scan::aCountMap run: anItem =>

[

[ aResult += anItem dictionary_key. ]

| [ ^ false. ].

#var aMode2 := anArray2~emode mode.

].

</lang>