14 lines
416 B
Plaintext
14 lines
416 B
Plaintext
#lang transd
|
|
|
|
MainModule : {
|
|
_start: (λ
|
|
(with fs FileStream() words String()
|
|
(open-r fs "D:\\Temp\\wordlist.txt")
|
|
(for line in (read-lines fs) do
|
|
(with days (split line " ") len 0
|
|
(for w in days do (for y in days do
|
|
(if (neq w y) (= len (max len (coincide w y))))))
|
|
(lout (+ len 1) " " days))
|
|
) ) )
|
|
}
|