18 lines
474 B
Text
18 lines
474 B
Text
#lang transd
|
|
|
|
MainModule: {
|
|
_start: (λ (with fs FileStream()
|
|
(open-r fs "/mnt/vault/tmp/unixdict.txt") )
|
|
(with v ( -|
|
|
(read-text fs)
|
|
(split)
|
|
(group-by (λ s String() -> String()
|
|
(ret (min s (reverse (cp s))))))
|
|
(values)
|
|
(filter where: (λ v Vector<String>() (ret (== (size v) 2))))
|
|
(shuffle))
|
|
|
|
(lout "Total number of semordnilaps: " (size v))
|
|
(lout "Random five: " Range(in: v 0 5))))
|
|
)
|
|
}
|