RosettaCodeData/Task/Averages-Mode/PicoLisp/averages-mode.l

8 lines
147 B
Plaintext

(de modes (Lst)
(let A NIL
(for X Lst
(accu 'A X 1) )
(mapcar car
(maxi cdar
(by cdr group A) ) ) ) )