Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

Не поможите ли с олимпиадной задачей?   Найти похожие ветки 

 
DillerXX ©   (2004-11-06 10:29) [0]

Вот сам текст:

Была дана перестановка, по ней построили таблицу инверсий. Восстановите перестановку.

Входные данные
В первой строке входного файла записано число N (1 <= N <= 100000). Далее, во второй строке, следуют N целых чисел A1, A2, ..., AN, где число Ak (0 <= Ak < N) означает,
что ровно Ak элементов, больших чем k, стоит до числа k в перестановке.

Выходные данные
Выведите искомую перестановку.

Пример

Ввод
4
2 0 1 0

Вывод
2 4 1 3


Наш уважаемый Neoff решил её, но к сожалению, при больших N она не укладывается по времени на 200 миллисекунд :( (на тест 1 секунда). На всякий случай привожу код:

program z127;
var b:array[1..100000] of integer;
   i,j,n,a,k:integer;
begin
    Assign(input,"Input.txt"); Reset(input);
    Assign(output,"output.txt"); Rewrite(output);
    readln(n);
    fillchar(b,sizeof(b),0);
    for i:=1 to n do begin
        read(a);
        j:=0;
        for k:=1 to n do begin
            if b[k]=0 then begin
               if j=a then begin b[k]:=i; break; end;
               inc(j);
            end;
        end;
    end;
    for i:=1 to n do write(b[i]," ");
end.


Может кто-нибудь сделать так чтобы по времени всё проходило? ИМХО тут надо его полностью менять...
Заранее спасибо.


 
DillerXX ©   (2004-11-06 12:51) [1]

ыы ну может поможет всё таки кто-нибудь :\


 
123 ©   (2004-11-06 13:04) [2]

А как ты меряешь время?


 
Vasya.ru ©   (2004-11-06 15:22) [3]

а не с саратовской заочной олимпиады задачка? Так там их 300 штук будет, и ты с каждой сюда ломится будешь?


 
SergP.   (2004-11-06 15:39) [4]

А что такое таблица инверсий?


 
Мирзаянов М.   (2004-11-15 22:19) [5]

http://acm.sgu.ru/univer/problem.php?contest=0&problem=126
http://acm.sgu.ru/univer/problem.php?contest=0&problem=127



Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.038 c
3-1099645317
Pavor
2004-11-05 12:01
2004.12.05
Как побороть "Directory is controlled by other .NET file"?


1-1100702931
Анатолий
2004-11-17 17:48
2004.12.05
Ресурсы в больших проектах.


14-1100766555
VID
2004-11-18 11:29
2004.12.05
Что за AcsProxyStub.exe...


14-1100606459
Kuzma
2004-11-16 15:00
2004.12.05
Какой аппаратный ключ защиты выбрать?


4-1098620405
Пётр Семёнович
2004-10-24 16:20
2004.12.05
Выполнение поставленной ТЗ задачи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский