18 lines
499 B
Plaintext
18 lines
499 B
Plaintext
#lang transd
|
|
|
|
MainModule: {
|
|
_start: (λ locals: cnt 0
|
|
(with fs FileStream() words String()
|
|
(open-r fs "/mnt/text/Literature/Miserables.txt")
|
|
(textin fs words)
|
|
|
|
(with v ( -|
|
|
(split (tolower words))
|
|
(group-by)
|
|
(regroup-by (λ v Vector<String>() -> Int() (size v))))
|
|
|
|
(for i in v :rev do (lout (get (get (snd i) 0) 0) ":\t " (fst i))
|
|
(+= cnt 1) (if (> cnt 10) break))
|
|
)))
|
|
}
|