97 条题解

  • 0
    @ 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

  • 0
    @ 2009-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

  • 0
    @ 2009-11-05 21:18:04

    快排打错,连WA两次...

  • 0
    @ 2009-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;

    水!!!

  • 0
    @ 2009-11-05 11:32:19

    高级,太高级了!!!!!!!!!

  • 0
    @ 2009-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··

  • 0
    @ 2009-11-04 23:02:28

    纪念AC 400 题

  • 0
    @ 2009-11-04 22:58:15

    的确好水

  • 0
    @ 2009-11-04 22:25:15

    珍惜生命,相信春哥!

  • 0
    @ 2009-11-04 22:20:26

    的确不用排序...O(n)就可以

  • 0
    @ 2009-11-04 22:07:59

    Flag    Accepted

    题号   P1691

    类型(?)   数论 / 数值

    通过   245人

    提交   400次

    通过率   61%

    难度   1

    恭喜本题提交破400咯!!!!!!!

  • 0
    @ 2009-11-04 21:21:39

    直接在提交页面打的程序。

    超爽……

  • 0
    @ 2009-11-04 13:55:43

    本来想写个快速选择的,不过既然是水题,就直接用库函数过了

  • 0
    @ 2009-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

  • 0
    @ 2009-11-03 21:29:52

    180AC

  • 0
    @ 2009-11-03 21:21:39

    #include

    int i,s,n,x,a[10009],m;int main(){for(std::scanf("%d",&n),i;i

  • 0
    @ 2009-11-03 20:43:22

    难得的水题数组居然开小了,囧~~~

    就是找个中位数,真的没难度……

  • 0
    @ 2009-11-03 19:50:35

    难度0.....

  • 0
    @ 2009-11-03 19:48:07

    #include

    #include

    #include

    #include

    using 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

  • 0
    @ 2009-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

信息

ID
1691
难度
3
分类
其他 | 排序贪心 点击显示
标签
(无)
递交数
3928
已通过
1849
通过率
47%
被复制
15
上传者