Averages/Mode: Difference between revisions
Content added Content deleted
Walterpachl (talk | contribs) m (→REXX version 2: typo) |
m (→{{header|zkl}}: update) |
||
Line 2,836: | Line 2,836: | ||
{{trans|D}} |
{{trans|D}} |
||
<lang zkl>fcn mode(items){ |
<lang zkl>fcn mode(items){ |
||
d:= |
d:=Dictionary(); foreach i in (items){ d[i]=d.find(i,0)+1 } |
||
m:=d.reduce(fcn(m,[(_,v)]){ v.max(m) },0); |
m:=d.reduce(fcn(m,[(_,v)]){ v.max(m) },0); |
||
// d.keys.filter('wrap(k){ d[k]==m }); // more garbage than necessary |
// d.keys.filter('wrap(k){ d[k]==m }); // more garbage than necessary |