В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

sql_ninja

546 membersпожаловаться на группу
2019 September 23

K

Kostya in sql_ninja
Les
решения-то будут ёбанарот или нет?
Выше
источник
12:22пожаловаться

G

Gopneg in sql_ninja
Kostya
Да, вложенный цикл с самого себя + 1 с принудительной остановкой при нахождении
в ворд вставил, где тут компайл и ран?
источник
12:23пожаловаться

K

Kostya in sql_ninja
Gopneg
в ворд вставил, где тут компайл и ран?
Я только только до разных языков дочитал, ниари ))))
источник
12:23пожаловаться

K

Kostya in sql_ninja
Ну короче это ж разминочная задачка к олимпиадам была, именно на эффективность решенич
источник
12:24пожаловаться

K

Kostya in sql_ninja
Алгоритм выше
источник
12:24пожаловаться

YS

Yaroslav Schekin in sql_ninja
Les
ну O(n)
Это было про память. Вы на условие-то внимательно посмотрите / подумайте. ;)
Хотя, IMHO, мучать таким junior-ов на собеседовании (и ожидать оптимального решения) — это чересчур.
источник
12:24пожаловаться

Дt

Дмитрий texnix 🇨🇳 in sql_ninja
так я прогу накидал
источник
12:24пожаловаться

Дt

Дмитрий texnix 🇨🇳 in sql_ninja
с интерфейсом
источник
12:24пожаловаться

Дt

Дмитрий texnix 🇨🇳 in sql_ninja
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
mas: array [1..20] of integer;
str,str2:tstringlist;
begin
 str:=TStringList.Create;
 for I := 1 to 20 do
  str.Add(inttostr(random(20)));
 str2:=TStringList.Create;
 str2.Duplicates:=dupError;
 str2.Sorted:=True;
 for I := 1 to 20 do
   try
     str2.Add(str[i-1])
   except
     showmessage('это значение уже есть:'+ str[i])
   end;
 memo1.Text:=str.Text;
end;
источник
12:24пожаловаться

L

Les in sql_ninja
Yaroslav Schekin
Это было про память. Вы на условие-то внимательно посмотрите / подумайте. ;)
Хотя, IMHO, мучать таким junior-ов на собеседовании (и ожидать оптимального решения) — это чересчур.
где там про памяТЬ?)))
источник
12:24пожаловаться

L

Les in sql_ninja
преждевременная оптимизация - зло ))
источник
12:25пожаловаться

TS

Tim Safari in sql_ninja
Дмитрий texnix 🇨🇳
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
mas: array [1..20] of integer;
str,str2:tstringlist;
begin
 str:=TStringList.Create;
 for I := 1 to 20 do
  str.Add(inttostr(random(20)));
 str2:=TStringList.Create;
 str2.Duplicates:=dupError;
 str2.Sorted:=True;
 for I := 1 to 20 do
   try
     str2.Add(str[i-1])
   except
     showmessage('это значение уже есть:'+ str[i])
   end;
 memo1.Text:=str.Text;
end;
не надо так, надо program t1, зачем формы? консолька наше всё!
источник
12:25пожаловаться

K

Kostya in sql_ninja
Yaroslav Schekin
Это было про память. Вы на условие-то внимательно посмотрите / подумайте. ;)
Хотя, IMHO, мучать таким junior-ов на собеседовании (и ожидать оптимального решения) — это чересчур.
Мми ... смотря на кого ты берешь
Если на высрконагпуженные всякие обработчтки - надо проверять в т.ч. и на это
источник
12:25пожаловаться

L

Les in sql_ninja
Дмитрий texnix 🇨🇳
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
mas: array [1..20] of integer;
str,str2:tstringlist;
begin
 str:=TStringList.Create;
 for I := 1 to 20 do
  str.Add(inttostr(random(20)));
 str2:=TStringList.Create;
 str2.Duplicates:=dupError;
 str2.Sorted:=True;
 for I := 1 to 20 do
   try
     str2.Add(str[i-1])
   except
     showmessage('это значение уже есть:'+ str[i])
   end;
 memo1.Text:=str.Text;
end;
нихуясе Димон тут выложил
источник
12:25пожаловаться

Дt

Дмитрий texnix 🇨🇳 in sql_ninja
Tim Safari
не надо так, надо program t1, зачем формы? консолька наше всё!
потому что делфи - специализируется формами
источник
12:25пожаловаться

Дt

Дмитрий texnix 🇨🇳 in sql_ninja
коносльки пишите на других языках
источник
12:25пожаловаться

TS

Tim Safari in sql_ninja
Дмитрий texnix 🇨🇳
потому что делфи - специализируется формами
там есть консольные проекты жэ
источник
12:25пожаловаться

G

Gopneg in sql_ninja
Дмитрий texnix 🇨🇳
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
mas: array [1..20] of integer;
str,str2:tstringlist;
begin
 str:=TStringList.Create;
 for I := 1 to 20 do
  str.Add(inttostr(random(20)));
 str2:=TStringList.Create;
 str2.Duplicates:=dupError;
 str2.Sorted:=True;
 for I := 1 to 20 do
   try
     str2.Add(str[i-1])
   except
     showmessage('это значение уже есть:'+ str[i])
   end;
 memo1.Text:=str.Text;
end;
sticker.webp
(24.09 Кб)
источник
12:25пожаловаться

Дt

Дмитрий texnix 🇨🇳 in sql_ninja
Tim Safari
там есть консольные проекты жэ
тык глупасть
источник
12:25пожаловаться

L

Les in sql_ninja
Дмитрий texnix 🇨🇳
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
mas: array [1..20] of integer;
str,str2:tstringlist;
begin
 str:=TStringList.Create;
 for I := 1 to 20 do
  str.Add(inttostr(random(20)));
 str2:=TStringList.Create;
 str2.Duplicates:=dupError;
 str2.Sorted:=True;
 for I := 1 to 20 do
   try
     str2.Add(str[i-1])
   except
     showmessage('это значение уже есть:'+ str[i])
   end;
 memo1.Text:=str.Text;
end;
где выполнить можно онлайн?
источник
12:25пожаловаться