Rosetta Code

Averages/Mode: Difference between revisions

← Older editNewer edit →
Content deleted Content added
m Fixed markup broken by the MUMPS entry
Slightly simplified
Line 1,046:
(for X Lst
(accu 'A X 1) )
(letmapcar M (cdr (maxi cdr A))car
(extractmaxi cdar
'((X)by (andcdr (=group MA) (cdr) X) ) (car X)))</lang>
A ) ) ) )</lang>
Output:
<pre>: (modes (1 3 6 6 6 6 7 7 12 12 17))
Line 1,058 ⟶ 1,057:
 
: (modes (chop "ABRAHAMASANTACLARA"))
-> ("A")</pre>
 
: (modes (1 4 A 3 2 7 1 B B 3 6 2 4 C C 5 2 5 B A 3 2 C 3 5 5 4 C 7 7))
-> (5 C 2 3)</pre>
 
=={{header|PureBasic}}==
Retrieved from "https://rosettacode.org/wiki/Averages/Mode"