gives me WA 1

In Russian version there is a mistake in the constraints of h. Must be 200, not 260.

I had MLE because of bug in segment tree.
In test 14: n = 0.

WA8 - all options are off and <10fps
WA12 - "Perfect" when >=60fps, NOT >60fps

Here is my not accepted solution:
#include<iostream>
#include<string>
using namespace std;

double P(int power[],string names[],int a,int n,int video_power,int on_or_off[],int w,int h){
a=video_power;
for(int i=0;i<n;i++){if(on_or_off[i]==1){a/=power[i];}}
double res=a/(w*h);
return res;
}

int main()
{

int n;
cin>>n;
string * names = new string[n];
int * power = new int[n];
for (int i=0;i<n;i++){
cin>>names[i];
cin>>power[i];
}

int w,h,video_power;
cin>>w>>h>>video_power;

double results[100];
int on_or_off[100];
for(int i=0;i<n;i++){on_or_off[i]=1;}
int e=0;

int a=video_power;
for (int i=0; i<n;i++){
a/=power[i];
}
double prodyctivity=a/(w*h);
results[e]=prodyctivity;e++;

int m;
cin>>m;
for(int i=0; i<m; i++){
string change,change_name;
cin>>change;
if(change[0]!='R'){
cin>>change_name;
for(int y=0;y<n;y++){
    if(change=="On" && change_name==names[y]){
        on_or_off[y]=1;
        prodyctivity=P(power,names,a,n,video_power,on_or_off,w,h);
        results[e]=prodyctivity;e++;
        }
    else if(change=="Off" && change_name==names[y]){
        on_or_off[y]=0;
        prodyctivity=P(power,names,a,n,video_power,on_or_off,w,h);
        results[e]=prodyctivity;e++;
        }
}
}
else{
int a1,a2;
cin>>a1>>a2;
w=a1;h=a2;
prodyctivity=P(power,names,a,n,video_power,on_or_off,w,h);
results[e]=prodyctivity;e++;
}
}

for(int i=0;i<m+1;i++){
    if(results[i]<10){cout<<"Slideshow"<<endl;}
    else if(results[i]>=60){cout<<"Perfect"<<endl;}
    else{cout<<"So-so"<<endl;}
}
}

Please!

По условию ki<=100 => можно поддерживать степень каждого простого числа; при включении или отключении опции мы уменьшаем степень или увеличиваем на соотв. число.

В чём обман не знаю. Хотелось бы получить тесты,т.к. на мою фантазию прога работает.

const NMAX=105000;
      MMAX=100;
      LMAX=10;
var
 a,ki:array[1..NMAX] of int64;
 step:array[1..MMAX] of int64;
 step26:array[0..LMAX] of int64;
 p:array[1..MMAX] of longint;
 N,i,j,r,m,t:longint;
 W,H,p0,key,k,res:int64;
 f:boolean;
 s,s1:string;

procedure QSort(L,R:longint);
 var i,j:longint;
     X,Y:int64;
begin
 X:=A[random(r+1-l)+l];
 i:=L; j:=R;
 while i<=j do
  begin
   while A[i]<X do i:=i+1;
   while A[j]>X do j:=j-1;
     if i<=j then
       begin
         y:=A[i]; A[i]:=A[j]; A[j]:=y;
         y:=ki[i]; ki[i]:=ki[j]; ki[j]:=y;
         i:=i+1; j:=j-1;
       end;
  end;
  if L<j then QSort(L,j);
  if i<R then QSort(i,R);
end;


function Hash(s:string):int64;
 var i,len:longint;
     z:int64;
begin
 z:=0;
 len:=length(s);
 for i:=0 to len-1 do inc(z,(ord(s[len-i])-ord('a'))*step26[i]);
 Hash:=z;
end;


function Search(L,R:longint;key:int64):int64;
 var m:longint;
begin
 while(R-L>1) do begin
  m:=(L+R) div 2;
  if(a[m]<=key) then L:=m
  else R:=m;
 end;

 if(a[L]=key) then Search:=ki[L]
 else Search:=ki[R];
end;


procedure Update(x:int64;sgn:longint);
 var i:longint;
begin
 i:=1;
 while(i<=r) do begin
  while(x mod p[i]=0) do begin
   x:=x div p[i];
   inc(step[i],sgn);
  end;
  inc(i);
 end;
end;


BEGIN
 randomize;
 r:=1;
 p[r]:=2;
 for i:=3 to MMAX do begin
  f:=true;
  for j:=2 to i-1 do if(i mod j=0) then f:=false;
  if(f) then begin
   inc(r);
   p[r]:=i;
  end;
 end;

 for i:=1 to r do step[i]:=0;

 step26[0]:=1;
 for i:=1 to LMAX do step26[i]:=step26[i-1]*26;

 readln(N);
 for i:=1 to N do begin
  readln(s);
  t:=pos(' ',s);
  s1:=copy(s,1,t-1);
  delete(s,1,t);
  val(s,ki[i],t);
  a[i]:=Hash(s1);
  Update(ki[i],1);
 end;

 Qsort(1,N);

 readln(W,H,p0);
 readln(m);

 res:=W*H;
 i:=1;
 while(res<=p0)and(i<=r) do begin
  j:=step[i];
  while(j>0)and(res<=p0) do begin res:=res*p[i];dec(j);end;
  inc(i);
 end;

 if(p0<10*res) then writeln('Slideshow');
 if(p0>=10*res)and(p0<60*res) then writeln('So-so');
 if(p0>60*res) then writeln('Perfect');

 for i:=1 to m do begin
  readln(s);
  if(s[2]='n') then begin
   t:=pos(' ',s);
   delete(s,1,t);
   key:=Hash(s);
   k:=Search(1,N,key);
   Update(k,1);
  end;
  if(s[2]='f') then begin
   t:=pos(' ',s);
   delete(s,1,t);
   key:=Hash(s);
   k:=Search(1,N,key);
   Update(k,-1);
  end;
  if(s[1]='R') then begin
   t:=pos(' ',s);
   delete(s,1,t);
   t:=pos(' ',s);
   s1:=copy(s,1,t-1);
   delete(s,1,t);
   val(s1,w,t);
   val(s,h,t);
  end;

  res:=W*H;
  t:=1;
  while(res<=p0)and(t<=r) do begin
   j:=step[t];
   while(j>0)and(res<=p0) do begin res:=res*p[t];dec(j);end;
   inc(t);
  end;

  if(p0<10*res) then writeln('Slideshow');
  if(p0>=10*res)and(p0<60*res) then writeln('So-so');
  if(p0>60*res) then writeln('Perfect');
 end;
END.

getting WA9
What can be the problem ?

Can someone give me an input example with the right output so I could check it, 'cause all the test I run are right

I am getting Time limit exceeded.. Maybe someone had the same problem? What can it be? help please

Совсем не могу понять почему не проходит 6 тест, проблема у меня не 59,9 как было у другого задовавшего вопрос...

Edited by author 23.08.2013 19:43

Edited by author 23.08.2013 19:43

Somebody had a wrong answer in test 6? I can't understand what exactly can be wrong :(
Please, help