Ускорение поиска максимума...

From

Alexander Lezin (2:5059/9.77)

To

Sergey Andrianov

Date

2002-12-29T12:50:47Z

Area

RU.ALGORITHMS

    Приветствую Вас, Sergey.

26 декабря 2002 23:13, Sergey Andrianov -> Alexander Chelmodeev

 AS>>> Пpиятная задачка, хотелось бы веpить, что можно за меньшее число
 AS>>> сpавнений...
 AC>>   Да у тебя тут сравнений больше, чем надо...
 AC>>   Вот совсем без сравнений: ;)
 AC>> max:=ar[0];
 AC>> min:=ar[0];
 AC>> for n:=1 to high(ar) do
 AC>>  begin
 AC>>    max:= (max+ar[n] + Abs(max-ar[n])) div 2 ;
 AC>>    min:= (min+ar[n] - Abs(min-ar[n])) div 2 ;
 AC>>  end;
 SA>     А как ты собираешься реализовать Abs() без сравнений? На
 SA> поразрядной логике что ли? :)

label1: neg     eax
        js      label1

    Вполне себе abs() без сравнений. :)


    Всего хорошего, Sergey.

--- Ite, missa est   : Тимур Шаов - Кошачий блюз                 a@sura.ru ---
 * Origin: Всё это суета и томление духа... (2:5059/9.77)