K
элементы
Size: a a a
2019 September 23
K
в слуке счас не буду писать, на паскале тоже, бейсик нагляднее
Дt
procedure TForm1.Button1Click(Sender: TObject);
var
i,outFoundIndex:integer;
str:string;
begin
TArray.Sort<Integer>(dynArray1);
for i := 0 to 5 do
if TArray.BinarySearch<Integer>(dynArray1,dynArray1[i], outFoundIndex,TComparer<integer>.Default, i+1,6-i-1)
then showmessage(inttostr( outFoundIndex))
end;Дt
типа покороче чутка
K
типа покороче чутка
Тут Гопнег правильно заметил, люди хотят видеть энергоэффективность :)))
K
TArray.Sort<Integer>(dynArray1) - это вот не энергоэффективность :)
Дt
ну скомпилируйте на чёмнить, я скомпилирую на делфи
K
А так есть даже библиотеки, там прсото что-то типа ЧЕК(Массив)
Дt
посмотрим у кого меньше будет жрать
K
Мы про базовые операции
Дt
да да, на ладе калине говорят тоже что базовые там всё норм
Дt
оптимизированы
K
да да, на ладе калине говорят тоже что базовые там всё норм
Я катался, другу с салона перегонял до дома.
Поздравил как смог
Поздравил как смог
K
K
еще со страой рейкой, где пять оборотов было или сколько там, ну, которую крутить надо как рулетку чтобы повернуть
K
Я пару раз чуть не вписался
Дt
ну зато она оптимизирована
Дt
без наворотов
Дt
рейка