OJ Board

I made a stupid mistake----Is that 2520 days really enough? I am wrong.
Because we need to simulation about 3000 days to get right answers. Some cow will be eaten in second 'round'.

Now I get AC, thanks

Tips: Heap is a way to get AC

Delete after AC

Someone see my suffix when I sumbit a program to OJ.Then they use my account as a test account! They submit again and again. You can see, the ID 49054 was sumbitted for many times! They do it for fun and I don't know what should I do. Please tell me How to change the suffix?And how to protect accoun...

I got PE in ZJU but got TLE on UVA I really don't know why! Thanks for you reply program p312; const di:array[1..16,1..2] of integer=((0,0),(0,1),(0,2),(0,3), (0,4),(0,5),(1,0),(1,5), (2,0),(2,5),(3,0),(3,1), (3,2),(3,3),(3,4),(3,5)); var a,c:array[0..25,0..25] of boolean; b:array[0..25,0..25] of in...

program p306; type arr=array[1..500] of longint; var n,i,k,r,j,y:longint; a:arr; w,get:array[1..500] of char; ch:char; function lcm(a,b:longint):longint; var t:longint; begin if b=0 then lcm:=a else lcm:=lcm(b,a mod b); end; function circle(w:arr):longint; var flag:array[1..500] of boolean; i,k1,ans...

What a bad error! I add a eoln and got AC
The Input/Output format is really a serious problem for me...
Thanks of you reply

Any trick data for this problem?I got Wa all the time. Thanks for you reply. program p10194; var p1,p2,len,test,sc1,sc2,j,num,v,i,team,time:integer; cupname,st1,st2:string; name,bname:array[1..30] of string; ch1,ch2,ch:char; p,g,l,w,d,s,x:array[1..30] of integer; check1,check2:boolean; function find...

I'm sorry that I don't know how to ask for help.I 'm new here.I'll pay attention on it.

Could tell me how to find some "small" errors? this kind of errors make our program WA but I can hardly find it. It make me angry and sad.

As this problem. I still WA......

Thank for youe help.

program p216; type arr1=array[1..8] of integer; arr2=array[1..8] of boolean; var ans,dd:real; x,y,f,f1:arr1; dist:array[1..8,1..8] of real; n,num,i,j:integer; flag:arr2; procedure try(i:integer); var flags:arr2; ff:arr1; ddd:real; k,j:integer; begin if (i=n+1) and (dd<ans) then begin for k:=1 to 8 d...

I had tried all I could did, but IT SITLL WA!
Please help me! Thanks for you reply


Delete after AC

Here thanks again