16 lines
334 B
Plaintext
16 lines
334 B
Plaintext
words = #.split(#.readtext("unixdict.txt","ascii"),#.lf)
|
|
max = 0
|
|
> i, 1..#.size(words,1)
|
|
word = words[i]
|
|
wordb = #.array(word)
|
|
wordbc = #.size(wordb,1)
|
|
> j, 3..wordbc,2
|
|
<< wordb[j]<wordb[j-2]
|
|
<
|
|
>> j!>wordbc|wordbc<max
|
|
? wordbc>max, result = ""
|
|
? wordbc>max, max = wordbc
|
|
result += word+#.crlf
|
|
<
|
|
#.output(result)
|