Серый форум — AHK: Ближайшее к нулю число

Re: AHK: Ближайшее к нулю число

2014-04-27T17:47:56Z

Точно. Спасибо!

Re: AHK: Ближайшее к нулю число

2014-04-27T17:31:17Z

В таком разе проверку на знак числа поставить в первую очередь:

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
 }

Re: AHK: Ближайшее к нулю число

2014-04-27T17:14:15Z

Забыл уточнить, в строке ведь может не быть удовлетворяющего числа:


str = 0|500|400|200|

Если тут надо отрицательное, то надо вернуть пустую строку.

Re: AHK: Ближайшее к нулю число

2014-04-27T16:17:56Z

Тоже качестве бреда сокращю-ка строчку.


Min(str, s:= "") { 
    Loop, Parse, str, "|"
        (!res || abs(res) > abs(A_LoopField) && (s . 1) * A_LoopField > 0) ? res := A_LoopField : "" 
   Return res
 }

Irbis
Ну Вы меня второй день подряд радуете изысками

Re: AHK: Ближайшее к нулю число

2014-04-27T16:10:38Z

На самом деле это было так, в порядке бреда . А про флаг — такое условие было.

Re: AHK: Ближайшее к нулю число

2014-04-27T16:07:34Z

teadrinker, ваш вариант красив, безусловно.
Правда, в моем примере в качестве флага "s" можно передавать не только "-", но и "+", а не только пустую строку для положительных числа, а в вашем Min(str, "+") даст не тот ответ. Ну это мелочь.

serzh82saratov пишет:
Да кстати не ясно наличие оператора ">=", разве ">" недостаточно?

И это излишне, ">" достаточно. Спасибо.

Re: AHK: Ближайшее к нулю число

2014-04-27T16:06:24Z

но если уж возникла идея использовать Sort .

Ну да, она первая и пришла.

serzh82saratov пишет:

Да кстати не ясно наличие оператора ">=", разве ">" недостаточно?

Так всё таки.

Re: AHK: Ближайшее к нулю число

2014-04-27T16:02:12Z

Мой, конечно, по скорости не оптимальный, но если уж возникла идея использовать Sort .

Re: AHK: Ближайшее к нулю число

2014-04-27T15:58:42Z

Пожалуйста.
Ну, в общем, сначала была мысль ускорить обработку строки - из отсортированной строки выводить первое положительное число для случая с "+" числами. Потом отказался, т.к. сортировка априори занимает больше времени, чем однократный проход по всему ряду. Но тем не менее стоку с сортировкой забыл убрать. (*фейспалм*)

Для таких запущенных, как у меня, случаев, пытливый взгляд модератора как нельзя кстати.

Re: AHK: Ближайшее к нулю число

2014-04-27T15:56:31Z

Мой вариант:

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")
}

Re: AHK: Ближайшее к нулю число

2014-04-27T15:56:14Z

Да кстати не ясно наличие оператора ">=", разве ">" недостаточно?

Re: AHK: Ближайшее к нулю число

2014-04-27T15:47:02Z

IrbisБлагодарю за работу

ТС упомянул про возможное отсутствие "0" в списке, чтобы не было повода решить задачу поиском следующего за нулем числа в отсортированной строке для положительных чисел (или предыдущего - для отрицательных).

Мысли читаете

М-м-м... А зачем тут вообще строчка

Прямо как в недавней теме

Re: AHK: Ближайшее к нулю число

2014-04-27T15:36:24Z

Irbis пишет:

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|

если всё равно сравниваются все числа подряд?

Re: AHK: Ближайшее к нулю число

2014-04-27T15:28:19Z

Да не знаю, просто уточнил, дабы не было желания искать в отсортированной строке ноль и число рядом с ним.

Просто задача поставлена не совсем корректно.

Даже не знаю как ещё сформулировать задачу... вроде всё просто.

Re: AHK: Ближайшее к нулю число

2014-04-27T15:26:01Z

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
}