Averages/Mode: Difference between revisions

Content added Content deleted
Line 2,870: Line 2,870:
{{trans|D}}
{{trans|D}}
<lang zkl>fcn mode(items){
<lang zkl>fcn mode(items){
d:=Dictionary(); foreach i in (items){ d[i]=d.find(i,0)+1 }
d:=Dictionary(); foreach i in (items){ d.incV(i) }
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.filter('wrap([(_,v)]){ v==m }).apply("get",0);
d.filter('wrap([(_,v)]){ v==m }).apply("get",0);
}</lang>
}</lang>