52 lines
947 B
AppleScript
52 lines
947 B
AppleScript
LenOrder(lista) {
|
|
loop,parse,lista,%A_Space%
|
|
if (StrLen(A_LoopField) > MaxLen)
|
|
MaxLen := StrLen(A_LoopField)
|
|
loop % MaxLen-1
|
|
{
|
|
loop,parse,lista,%A_Space%
|
|
if (StrLen(A_LoopField) = MaxLen)
|
|
devolve .= A_LoopField . " "
|
|
MaxLen -= 1
|
|
}
|
|
return devolve
|
|
}
|
|
|
|
loop,read,unixdict.txt
|
|
{
|
|
encounters := 0, started := false
|
|
loop % StrLen(A_LoopReadLine)
|
|
{
|
|
target := strreplace(A_LoopReadLine,SubStr(A_LoopReadLine,a_index,1),,xt)
|
|
if !started
|
|
{
|
|
started := true
|
|
encounters := xt
|
|
}
|
|
if (xt<>encounters)
|
|
{
|
|
encounters := 0
|
|
continue
|
|
}
|
|
target := A_LoopReadLine
|
|
}
|
|
if (encounters = 1) and (StrLen(target) > 10)
|
|
heterograms .= target " "
|
|
else if (encounters > 1)
|
|
isograms%encounters% .= target " "
|
|
}
|
|
Loop
|
|
{
|
|
if (A_Index = 1)
|
|
continue
|
|
if !isograms%A_Index%
|
|
break
|
|
isograms := LenOrder(isograms%A_Index%) . isograms
|
|
}
|
|
msgbox % isograms
|
|
msgbox % LenOrder(heterograms)
|
|
ExitApp
|
|
return
|
|
|
|
~Esc::
|
|
ExitApp
|