14 lines
416 B
Text
14 lines
416 B
Text
|
#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))
|
||
|
|
) ) )
|
||
|
|
}
|