97 条题解
-
0talent123 LV 9 @ 2009-11-06 12:27:34
呃...
我用的也是桶排
第301个过
其实这道题,桶排比快排要快得多
3分钟&&一次AC&&秒杀
程序:
#include
int tong[20001]={},n,last[10000]={},answer;
main()
{
int i,temp,k,p;
scanf("%d",&n);
for(i=0;i -
02009-11-06 12:16:40@
我不惜的用快排,用桶排好啊!!!还是第300个过的。。。。。。
program dfdf;
var i,j,m,n,ans:longint;
x,y:array [1..10000] of longint;
a:array [-10000..10000] of longint;
begin
readln(n);
fillchar(a,sizeof(a),0);
for i:=1 to n do
begin
readln(x[i],y[i]);
inc(a[y[i]]);
end;
i:=-10000; j:=10000;
repeat
while a[i]=0 do begin inc(i); if i>=j then break; end;
while a[j]=0 do begin dec(j); if i>=j then break; end;
if (a[i]0) and (a[j]0) then
begin
ans:=ans+abs(j-i);
dec(a[i]); dec(a[j]);
end;
until (i>=j);
write(ans);
end.
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms -
02009-11-05 21:18:04@
快排打错,连WA两次...
-
02009-11-05 13:29:40@
我太囧了,小号交了四次才过。
就因为这一句。。。
if odd(n) then t:=a[(n+1)shr 1] else t:=(a[n shr 1]+a[(n+1)shr 1]) shr 1;水!!!
-
02009-11-05 11:32:19@
高级,太高级了!!!!!!!!!
-
02009-11-04 23:15:23@
├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms没什么说的····
X轴忽略···Y轴为主要探查对象
仔细一看···
本题答案就是求Y轴中位数······
如果不会求中位数·····劝您去做P1000···
名字叫A+Bproblem··
-
02009-11-04 23:02:28@
纪念AC 400 题
-
02009-11-04 22:58:15@
的确好水
-
02009-11-04 22:25:15@
珍惜生命,相信春哥!
-
02009-11-04 22:20:26@
的确不用排序...O(n)就可以
-
02009-11-04 22:07:59@
Flag Accepted
题号 P1691
类型(?) 数论 / 数值
通过 245人
提交 400次
通过率 61%
难度 1恭喜本题提交破400咯!!!!!!!
-
02009-11-04 21:21:39@
直接在提交页面打的程序。
超爽……
-
02009-11-04 13:55:43@
本来想写个快速选择的,不过既然是水题,就直接用库函数过了
-
02009-11-03 23:42:12@
搞笑....快排写了个随机化202错误....
改成最傻的全部秒杀
茕├ 测试数据 01:答案正确... 0ms
├ 测试数据 02:答案正确... 0ms
├ 测试数据 03:答案正确... 0ms
├ 测试数据 04:答案正确... 0ms
├ 测试数据 05:答案正确... 0ms
├ 测试数据 06:答案正确... 0ms
├ 测试数据 07:答案正确... 0ms
├ 测试数据 08:答案正确... 0ms
├ 测试数据 09:答案正确... 0ms
├ 测试数据 10:答案正确... 0ms
├ 测试数据 11:答案正确... 0ms -
02009-11-03 21:29:52@
180AC
-
02009-11-03 21:21:39@
#include
int i,s,n,x,a[10009],m;int main(){for(std::scanf("%d",&n),i;i -
02009-11-03 20:43:22@
难得的水题数组居然开小了,囧~~~
就是找个中位数,真的没难度……
-
02009-11-03 19:50:35@
难度0.....
-
02009-11-03 19:48:07@
#include
#include
#include
#includeusing namespace std;
int f[3][10010],n,ans=0;
int main()
{
int i;
cin>>n;for(i=0;i>f[1][i]>>f[2][i];
sort(f[2],f[2]+n);
for(i=0;i
-
02009-11-03 19:27:25@
program dds;
var
a:array[-10000..10000]of integer;
q,p,k1,k2,x,n,y,i,j:integer;
s,min:cardinal;
begin
readln(n);
k1:=maxint;
k2:=-maxint;
for i:=1 to n do begin
readln(x,y);
inc(a[y]);
if y>k2 then k2:=y;
if y