Форум Всеукраїнської інтернет-олімпіади NetOI

Angry Coder написав:

xXx написав:

короче фигня получаеться...
формулы какие-то не такие...
если хочешь, можешь поискать авторские решения...и проверь на них, если на твоём тесте будет 0, то я л...р(не хороший человек)

да мне не за чем:) я уверен на 100%. по крайней мере в формулах для проекций.

Что и такие бывают? (форумы)
вот и мне не за чем. не сегодня так завтра можно будет проверить решения на тестах с правильными(по мнению жюри) выходными данными...

А что там случилось, почему результаты только в понедельник-вторник?

Anna написав:

А что там случилось, почему результаты только в понедельник-вторник?

не знаю, участвую здесь впервые, организация - не очень, в принципе, как для Винницкои нетОИ - то еще неплохо. Просто даже о выводе ничего конкретного в правилах не сказано, я до сих пор точно не знаю, надо ли выводить символ перевода каретки или нет.

да в прошлом году вроде было все нормально... по крайней мере в первых турах

Angry Coder написав:

2DeusEx:
ты уверен, что функция erase работает не за линию? я как раз думаю, что она должна работать за линию, так как string это random-access контейнер. так что у тебя может быть квадрат. но я думаю все равно пройдет:)

нет, все правильно . Этот стринг из С++, а не С

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

Відредаговано Anna (2005-11-19 16:08:00)

Очевидно компьютеры попросили выходной :-)

О прямой аддресации в пасьянсах, у меня масив
list= array[1..maxn]of record
                                   p1,p2: word;
                                   cnt: shortint;
                                 end;
где
p1,p2- положения первой и второй карты;
cnt - признак положений карт
cnt:
  2  - обе сверху
  0 - одна там, одна там
-2 - обе снизу

sizeof(list)= 9000
но не будем забывать, что у компилится всё на фри паскале, где ограничений на память нет
все это значительно ускорить процесс

Yurok написав:

О прямой аддресации в пасьянсах, у меня масив
list= array[1..maxn]of record
                                   p1,p2: word;
                                   cnt: shortint;
                                 end;
где
p1,p2- положения первой и второй карты;
cnt - признак положений карт
cnt:
  2  - обе сверху
  0 - одна там, одна там
-2 - обе снизу

sizeof(list)= 9000
но не будем забывать, что у компилится всё на фри паскале, где ограничений на память нет
все это значительно ускорить процесс

Мудрёный у тебя массив.Как по мойму то здесь всё легко:

program newpatiance;
type
card=record
t,b:integer;
end;
cds=array[1..1000]of card;

procedure turn(var c:card);
var
temp:integer;
begin
temp:=c.t;
c.t:=c.b;
c.b:=temp;
end;

procedure sort(var cards:cds;n:integer);
var
temp:card;
i,j:integer;
changed:boolean;
begin
for i:=1 to N-1 do
    for j:=1 to N-1 do
        if(cards[j].t>cards[j+1].t)or((cards[j].t=cards[j+1].t)and(cards[j].b>cards[j+1].b))then
         begin
         temp:=cards[j];
         cards[j]:=cards[j+1];
         cards[j+1]:=temp;
         end;
end;

procedure show(c:cds;n:integer);
var
i:integer;
begin
for i:=1 to n do
write('(',c[i].t,' ',c[i].b,') ');
writeln;
end;

var
cards:cds;
n,res:integer;
i,z,r1,r2:integer;
begin
read(n);
for i:=1 to n do read(cards[i].t);
for i:=1 to n do read(cards[i].b);
{show(cards,n);}
sort(cards,n);
{show(cards,n);}
res:=0;
for i:=1 to n do
begin
     if(cards[i].t=cards[i+1].t)then
     if(cards[i].b=cards[i+1].b)then
     begin
     turn(cards[i]);
     sort(cards,n);
{     show(cards,n);}
     inc(res);
     end else
     begin
     for z:=1 to n do if(cards[z].t=cards[i].b)then turn(cards[i+1]) else turn(cards[i]);
     sort(cards,n);
{     show(cards,n);}
     inc(res);
     end;
end;
writeln(res);
end.

Всё что нужно-отсортировать массив и перевернуть,если есть две одинаковые верхние карты.
В конце-концов от положения карт ничего не изменится - надо найти кол-во переворотов.

Відредаговано jack_spektor (2005-11-19 16:35:19)

Батыев Андрей написав:

To jack_spektor:

У тебя поиск карты занимает O(n), т.е. весь алгоритм где-то O(n^2).
У меня все линейно(O(n)).

Алгоритм у меня действительно не самый лучший,но по-мойму в первом туре лучше и не потребуется.Хотя чёрт его знает.
Но главное идея правильная.А ты сверял с тем тестом?Какие у тебя результаты

Что, действительно больше никто не может?!

Кто-нить сделает сайт с решениями и их разборами?
Раньше был netoi.narod.ru а сейчас?