RosettaCodeData/Task/Letter-frequency/PicoLisp/letter-frequency.l

5 lines
89 B
Common Lisp

(let Freq NIL
(in "file.txt"
(while (char) (accu 'Freq @ 1)) )
(sort Freq) )