ljlin

摘要： 一道防AK的好题 不得不吐槽这个题目背景和算法。这就是一脑筋急转弯啊。 Codeprogram hard;CONST FileName='hard';var n,i,tot:longint; x,a,b,c,ans:array[1..500000] of int64; left,right:int64;function calc(a,b,c:int64):int64; ... 阅读全文

摘要： sequence 没有压位的高精度居然Ａ了，数据很善良嘛。标准解法是多次随机一个大素数取模来避免高精度。 Codevar t,i:longint;const f:array[1..1000] of integer=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109,... 阅读全文

摘要： 感觉看完题解能懂1,、2题，后悔比赛的时候没有多想一想。把这个比赛当成vain杯了，就第二题交了个样例，烦死了。 七夕祭 环形纸牌均分，O(n^2)暴力可得70，如果找中位数是O(n logn)就A掉了。需要注意的是，如果n为偶数中位数取中间那两个都可以。 Codetype data=array[0..1000000] of longint; Pointer=^data;var... 阅读全文

摘要： Freda的烦恼 CF原题http://codeforces.com/contest/215/problem/D 贪心，只租一辆或者让所有人不要求赔偿。花费关于满载车辆是一个一次函数，题目相当于一次函数在一个区间里求最大值。Codetype Pointer1=^node1; node1=record v:integer; data:char; next:Pointer1; end; Pointer2=^node2; node2=record v:integer; next:Pointer... 阅读全文

摘要： 援助方案 坐标和图形数比较小，每处理一个图形暴力枚举可能在图形里的整点然后判断即可。圆用距离公式，矩形。。。，三角形用向量。注意圆可能覆盖到二三四象限。 Codeuses math;var f:array[-60..110,-60..110] of boolean; ans:int64; n,i:longint; ch:char;function cross(x1,y1,... 阅读全文

摘要： 滑动输入法 乱搞即可，不得吐槽题目数据，明明说单词长度小于等于10，结果有很多11的。DFS生成所有可能字符串还有50分，判断矩形与圆相交时半径忘记平方居然有90分，彻底无语。考试的时候还犹豫会不会太暴力，其实看到数据范围小就不应该害怕了。 Codevar x1,x2,y1,y2,count:array[1..20] of longint; c:array[1..20] of cha... 阅读全文

摘要： 柠檬超市 显然是要坑精度，所以不能存实数，把性价比的分子跟分母存下来，比较大小的时候移项即可。 Codevar ans,n,s,i:longint; w,c,a,b:qword;beginreadln(n,s);a:=0;b:=1;ans:=0;for i:=1 to n do begin readln(w,c); if(c<=s)and(w*b>c*a) then b... 阅读全文

摘要： fibonacci N和Ｍ比较小，可以直接递推，还有同余。 CodeCONST FileName='fibonacci';var f:array[-1..1000] of longint; ans,n,i,m,p:longint;BEGINAssign(input,FileName+'.in');Assign(output,FileName+'.out');Reset(input);Re... 阅读全文

摘要： 计算系数 二项式定理。杨辉三角堆组数+快速幂。Noip的时候还没学二项式定理。。。 1 const p=10007;maxk=1000; 2 var a,b,k,n,m:longint; 3 function C(k,m:longint):longint; 4 var f:array[0..maxk,0..maxk] of longint; 5 i,j,n:longint; 6 begin 7 n:=k-m; 8 if(n=0)or(m=0)then exit(1); 9 fo... 阅读全文

摘要： 题目：http://files.cnblogs.com/lijianlin1995/NOIP2011%E6%8F%90%E9%AB%98%E7%BB%84Day1.pdf CLJ神犇的NOIP题解应该是最广为流的，但是神犇就是神犇，追求复杂度，方法很高端。所以我写一点能过就行的算法。RQNOJ提交通过了。铺地毯 第一感觉二维线段树，发现只查询一个点，可以朴素。如果halt要注意文件操作。View Code 1 type Tdt=record 2 x,y,xl,yl:longint; 3 end; 4 var dt:array[1..10000] of Tdt; 5 ... 阅读全文