20 lines
454 B
Plaintext
20 lines
454 B
Plaintext
#lang transd
|
|
|
|
MainModule: {
|
|
_start: (lambda
|
|
(with fs FileStream() len 0 maxlen 0 words Vector<String>()
|
|
(open-r fs "/mnt/vault/tmp/unixdict.txt") )
|
|
|
|
(for w in (read-lines fs) do
|
|
(= len (size w))
|
|
(if (< len maxlen) continue)
|
|
(if (is-sorted w)
|
|
(if (< maxlen len)
|
|
(clear words) (= maxlen len))
|
|
(append words w)
|
|
))
|
|
(lout words)
|
|
))
|
|
|
|
}
|