Интересные интересности и задачи/головоломки

[Аватар]

у нас же вставка будет.. Не ахти

Вставка отработает не больше 10 раз. А при поиске по дереву накладные расходы по организации рекурсии, маленькие, но очень много раз

[Sibedir]

Устроим соревнование?

procedure TForm1.Button3Click(Sender: TObject);
var
  c: Cardinal;
  TF: TextFile;
  i, j, k, n: Integer;
  FilmArr: TFilmArr;
  s: AnsiString;
  cur, count: Integer;
  FA: array of Boolean;
  flag: Integer;
begin
  c := GetTickCount;

  AssignFile (TF, ExtractFilePath(ParamStr(0)) + 'input.txt');
  Reset(TF);


  count := 0;
  SetLength (FilmArr, _FILMCOUNT);
  for i := 0 to _FILMCOUNT-1 do begin
    FilmArr[i].Name := '';
    FilmArr[i].Count := 0;
  end;

  SetLength (FA, _FILMCOUNT);

  Readln (TF, n);

  for i := 1 to n do begin
    Readln (TF, s);

    cur := count;
    flag := count-1;
    for j := 0 to count-1 do begin
      if Length(s) = FilmArr[j].Length then begin
        FA[j] := True;
        cur := j;
      end
      else begin
        FA[j] := False;
        Dec(flag);
      end;
    end;

    while flag > 0 do begin
      for k := 1 to Length(s) do begin
        for j := 0 to count-1 do begin
          if FA[j] then begin
            if FilmArr[j].Name[k] = s[k] then
              cur := j
            else begin
              FA[j] := false;
              Dec(flag);
            end;
          end;
        end;
      end;
    end;

    if FilmArr[cur].Count = 0 then begin
      FilmArr[cur].Name := s;
      FilmArr[cur].Length := Length(s);
      Inc (count)
    end;
    Inc (FilmArr[cur].Count);
  end;

  Sort (FilmArr);

  ListBox1.Items.Clear;
  for i := 0 to count-1 do begin
    s := FilmArr[i].Name + ' ' + IntToStr (FilmArr[i].Count);
    ListBox1.Items.Add (s)
  end;

  SetLength (FilmArr, 0);
  CloseFile(TF);

  Button3.Caption := IntToStr (GetTickCount - c);
end;

И без всяких деревов.

[Poma][a]

#include <iostream>
#include <string>
#include <map>
#include <vector>
#include <algorithm>

using namespace std;

int main()
{
	int n;
	cin >> n;

	string t;
	getline(cin, t);

	map<string, int> v;

	for (int i = 0; i < n; i++)
	{
		string s;
		getline(cin, s);
		v[s]++;
	}
	
	vector<pair<string, int>> s;
	for (map<string, int>::iterator p = v.begin(); p != v.end(); ++p)
		s.push_back(*p);

	sort(s.begin(), s.end(), [](const pair<string, int>& a, const pair<string, int>& b) {return a.second > b.second; });

	for (int i = 0; i < s.size(); i++)
		cout << s[i].first << " " << s[i].second << endl;

	return 0;
}

Например, так

[Sibedir]

За сколько у тебя обрабатывает 1000000 голосов при 1000 фильмах с названиями от 32 до 65 символов.
Короче скинь exe
Входной файл: input.txt
Выходной: output.txt
О фильмах пусть ни чего заранее не известно. Даже сколько их.

[Poma][a]

абракадабра

[Sibedir]

Блин, у тебя x64. ---------------------------

---------------------------
..acmp.exe не является приложением Win32.
---------------------------
ОК
---------------------------

Какой Си установить?
C++Builder XE3 не съел

	vector<pair<string, int>> s;

[bcc32 Error] File1.cpp(29): E2451 Undefined symbol 's'
Full parser context
File1.cpp(13): parsing: int main()

И много еще чего.

[Poma][a]

У меня 15-ая студия.. скушать должна любая студия (в 10-ку нужно будет пару заменить, а вот все что после без допила съест)

[Somebody]

Сообщение от Poma][a

	vector<pair<string, int>> s;
	for (map<string, int>::iterator p = v.begin(); p != v.end(); ++p)
		s.push_back(*p);

vector<pair<string, int>> s(v.begin(), v.end());

[Poma][a]

Классно, спасибо!

[Вадим Мошев]

Не хочу создавать новую тему.

http://www.gazeta.ru/science/2015/04/08_a_6631493.shtml
Парализованный российский программист готов стать первым человеком, чью голову пришьют к чужому телу. Есть ли шансы на благоприятный исход операции, разбиралась «Газета.Ru».

Как снег на голову свалилось в среду сообщение о том, что итальянский нейрохирург Серджио Канаверо выбрал человека, которому впервые в мире будут пересажено чужое тело. Выбор доктора пал на россиянина, 30-летнего Валерия Спиридонова, программиста из Владимира, который болен тяжелой мышечной атрофией, навсегда приковавшей его к инвалидному креслу.

По словам компьютерщика, он решился на отчаянный шаг, поскольку хочет использовать шанс обрести новое тело перед смертью. «Боюсь ли я? Конечно боюсь. Но это не столько страшно, сколько очень интересно, — рассказал Спиридонов в интервью Daily Mail — Однако надо понимать, что у меня не так много вариантов. Если я упущу этот шанс, моя судьба будет незавидной. Каждый новый год ухудшает мое состояние». Известно, что пока доктор и его будущий пациент еще не встречались, Канаверо не изучал историю болезни Спиридонова и они только общались по Skype.