Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Собственно для поиска оптимального алгоритма (разминки).
Нужна функция возвращающая ближайшее к нулю число.
Кормить будем списком типа:
-345|-100|-234|0|500|400|200|С флагом возвращает отрицательное: -100.
Без флага положительное: 200
Ноль в списке может и не присутсвовать.
Ноль в списке может и не присутсвовать.
А зачем тогда вообще ноль в списке, если он не является претендентом?
Непонимаю, претендентом на что?
Мало ли какие числа попадут в список (любое целое число), и ноль тоже возможен, и не однократно как и любое другое число тоже может быть повторено в списке.
А зачем тогда оговаривать, что ноль в списке может не присутствовать? Просто задача поставлена не совсем корректно.
teadrinker, чем же вам "0" не угодил? Я так понимаю, ТС упомянул про возможное отсутствие "0" в списке, чтобы не было повода решить задачу поиском следующего за нулем числа в отсортированной строке для положительных чисел (или предыдущего - для отрицательных).
str = -345|-100|-234|0|500|400|200|
Sort, str, N D|
MsgBox % Min(str, "-")
Return
Min(str, s:= "")
{
Loop, Parse, str, "|"
if !res || abs(res) >= abs(A_LoopField) && (s . 1) * A_LoopField > 0
res := A_LoopField
Return res
}
Да не знаю, просто уточнил, дабы не было желания искать в отсортированной строке ноль и число рядом с ним.
Просто задача поставлена не совсем корректно.
Даже не знаю как ещё сформулировать задачу... вроде всё просто.
teadrinker, чем же вам "0" не угодил? Я так понимаю, ТС упомянул про возможное отсутствие "0" в списке, чтобы не было повода решить задачу поиском следующего за нулем числа в отсортированной строке для положительных чисел (или предыдущего - для отрицательных).
str = -345|-100|-234|0|500|400|200| Sort, str, N D| MsgBox % Min(str, "-") Return Min(str, s:= "") { Loop, Parse, str, "|" if !res || abs(res) >= abs(A_LoopField) && (s . 1) * A_LoopField > 0 res := A_LoopField Return res }
М-м-м... А зачем тут вообще строчка
Sort, str, N D|если всё равно сравниваются все числа подряд? 
IrbisБлагодарю за работу
ТС упомянул про возможное отсутствие "0" в списке, чтобы не было повода решить задачу поиском следующего за нулем числа в отсортированной строке для положительных чисел (или предыдущего - для отрицательных).
Мысли читаете
М-м-м... А зачем тут вообще строчка
Прямо как в недавней теме
Да кстати не ясно наличие оператора ">=", разве ">" недостаточно?
Мой вариант:
str = -345|-100|-234|0|500|400|200|
MsgBox % Min(str, "-") . "`n" . Min(str)
Min(str, s:= "")
{
Sort, str, N D|
Return RegExReplace(str, s ? ".*(\-\d+).*" : ".*?\|([^\-0]\d+).*", "$1")
}
Пожалуйста.
Ну, в общем, сначала была мысль ускорить обработку строки - из отсортированной строки выводить первое положительное число для случая с "+" числами. Потом отказался, т.к. сортировка априори занимает больше времени, чем однократный проход по всему ряду. Но тем не менее стоку с сортировкой забыл убрать. (*фейспалм*)
Для таких запущенных, как у меня, случаев, пытливый взгляд модератора как нельзя кстати. 
Мой, конечно, по скорости не оптимальный, но если уж возникла идея использовать Sort .
но если уж возникла идея использовать Sort .
Ну да, она первая и пришла.
Да кстати не ясно наличие оператора ">=", разве ">" недостаточно?
Так всё таки.
teadrinker, ваш вариант красив, безусловно.
Правда, в моем примере в качестве флага "s" можно передавать не только "-", но и "+", а не только пустую строку для положительных числа, а в вашем Min(str, "+") даст не тот ответ. Ну это мелочь.
serzh82saratov пишет:
Да кстати не ясно наличие оператора ">=", разве ">" недостаточно?
И это излишне, ">" достаточно. Спасибо. 
На самом деле это было так, в порядке бреда . А про флаг — такое условие было.
Тоже качестве бреда сокращю-ка строчку.
Min(str, s:= "") {
Loop, Parse, str, "|"
(!res || abs(res) > abs(A_LoopField) && (s . 1) * A_LoopField > 0) ? res := A_LoopField : ""
Return res
}
Irbis
Ну Вы меня второй день подряд радуете изысками
Забыл уточнить, в строке ведь может не быть удовлетворяющего числа:
str = 0|500|400|200|
Если тут надо отрицательное, то надо вернуть пустую строку.
В таком разе проверку на знак числа поставить в первую очередь:
str = 0|500|400|200|
MsgBox % Min(str, "-")
Min(str, s:= "") {
Loop, Parse, str, "|"
(s . 1) * A_LoopField > 0 && (!res || abs(res) > abs(A_LoopField)) ? res := A_LoopField : ""
Return res
}
Точно. Спасибо!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
