Короткий эффективный код!
]]>n = 5
i = 10
k = 1
loop 5
{
a%k% := n
list .= n "a" k "`n"
b%k% := i
msgbox, % b%k%
k++
n--
i++
}
msgbox % list
Sort, list, N D`n
msgbox % list
list:=RegExReplace(list,"\s*$","")
loop, parse, list, `n, `r
{
var := (RegExReplace(A_LoopField, "(.+)a", "$2"))
k := var
msgbox % b%k%
}n = 5
i = 10
k = 1
loop 5
{
a%k% := n
MsgBox, a%k% = %n%
b%k% := i
MsgBox, b%k% = %i%
k++
n--
i++
}
loop 5
{
mtmp := mtmp a%A_index% ","
}
StringTrimRight, mtmp, mtmp, 1
Sort, mtmp, N D,
Loop, Parse, mtmp, `,
{
MsgBox, a%A_Index% = %A_LoopField%
}BTW в AHK_L удобней массивом пользоваться:
Var := [9.9, 5, 3, 7, 1]
Loop % Var.MaxIndex()
{
... Var[%a_index%] ...В ahk_L работает, не ругается.
(var%A_Index% = tmp) && varList .= "var" A_Index ", "равнозначно
If (var%A_Index% = tmp) varList .= "var" A_Index ", "
Что значит ".=" ?
Я что то не пойму ни первый вариант, ни второй. Как это код выглядит на C или Pascale?
]]>(var%A_Index% = tmp) && varList .= "var" A_Index ", "равнозначно
If (var%A_Index% = tmp)
varList .= "var" A_Index ", "max := 11111 Loop % max { Random, rand, 1, max var%A_Index% := rand } tmp := var1 Loop % max (var%A_Index% > tmp) && tmp := var%A_Index% Loop % max (var%A_Index% = tmp) && varList .= "var" A_Index ", " MsgBox % tmp " — большее значение`n" RTrim(varList, ", ") " — переменные содержащие большее значение множества"
Непривычный для меня формат записи. Даже не могу понять на что ругается AHK:
Missing ")"
для строки с третьим Loop. 
насколько я понимаю, это довольно медленный процес, а мне скорость достаточно важна. Может ещё есть какеие-то способы решения? Готов рассмотреть любые идеи.
Что касается алгоритмической части- у Кнута всё расписано в пятой главе(3 том) "искусства программирования", но это 400 страниц математических выкладок, т.е. не чтиво на ночь. Тут лучше положиться на стандартную функцию, какой бы плохой она не была. Если данных много, то нужно сортировать во время заполнения listbox'а, т.е. добавили строку в список и сразу вычислили нужное значение и добавили в нужное место массива.
]]>По поводу сортировки массива:
SetBatchLines -1
Process, Priority,, High
Loop 4096 {
Random, rand, 1, 12345
str .= rand "`n"
}
str := RTrim(str, "`n")
m := []
Loop, Parse, str,`n
m[A_Index] := A_LoopField
t1 := A_TickCount
Sort, str, N
t1 := A_TickCount-t1
t2 := A_TickCount
Sort(m)
t2 := A_TickCount-t2
MsgBox % "Default Sort: " t1/1000 "sec`nCustom Sort: " t2/1000 "sec"
Sort(m)
{
Loop % m.MaxIndex() {
j := A_Index
while (j > 0 && m[j-1] > m[j])
tmp := m[j], m[j] := m[j-1], m[j-1] := tmp, j-=1
}
return m
}
For i, k in m
o .= k ","
MsgBox % RTrim(o, ",")ListBox может их сам сортировать в алфавитном порядке, см. соответствующий документации.
Спасибо посмотрю, но скорее всего не подойдёт, поскольку сортирую не сами данные из ListBox.
Я извлекаю только каждую третью строку, а в ней выбираю элементы номер 3 и 5, произвожу между ними манипуляции типа n3 ** / n5 для каждой строки, и вот только тут мне нужно сортировать полученный результат. Но , так, чтобы знать, что максимальное значение получено с данными извлечёнными и строки номер N и т.д.
Ну а если именно в массиве искать, то только руками, см. пузырьковую сортировку.
Спасибо, почитал. Именно такое решение я имел ввиду под сравнением "поштучно". Но, насколько я понимаю, это довольно медленный процес, а мне скорость достаточно важна. Может ещё есть какеие-то способы решения? Готов рассмотреть любые идеи.
Единственое, что приходит на ум, раз не хочется самому писать функцию сортировки - слить все переменные в одну строку и отсортировать.
Я не понял, а как тут сохраняется информация о номерах переменных? Как узнать, что строка находящаяся после сортировки на первом месте - это бывшая третья или та, что сейчас на четвёртом месте - это бывший номер два?
]]>Обрабатываю информацию извлечённую из ListBox. Распределил необходимые фрагменты, в соответсвии с их номерами в списке, в динамические переменные типа var%номер%, чтобы было удобно к ним обращаться.
Теперь не могу понять как проще и быстре выяснить, каким номерам принадлжат максимальные значения переменных?
В "Sort" ничего похожего не нашёл. И вообще на русском про "Sort" ничего не нашёл.
Подходящей математической функции тоже не обнаружил.
Не сравнивать же их поштучно?
ListBox может их сам сортировать в алфавитном порядке, см. соответствующий документации. Ну а если именно в массиве искать, то только руками, см. пузырьковую сортировку.
]]>
max := 11111
Loop % max {
Random, rand, 1, max
var%A_Index% := rand
}
tmp := var1
Loop % max
(var%A_Index% > tmp) && tmp := var%A_Index%
Loop % max
(var%A_Index% = tmp) && varList .= "var" A_Index ", "
MsgBox % tmp " — большее значение`n" RTrim(varList, ", ") " — переменные содержащие большее значение множества"