摘要:
字典树。数据不大,代码不短…… 阅读全文
摘要:
爆搜都能过……我佩服它的数据规模 阅读全文
摘要:
没忽略空格竟AC var way:string; a,b:array[1..100000] of string; n:longint; function cl(a,b:string):boolean;begin if (way='inc')or(way='dec') then exit(a>b); 阅读全文
摘要:
复杂的判断&多余的空格=n个wrong answer 阅读全文
摘要:
简单的dfs。不必考虑时间。瞬秒。 阅读全文
摘要:
不会O(n)……只好用线段树O(nlogn) uses math;var n,k,p,i,j,c,ans,minp,tot:longint; co:array[0..50,0..50000] of longint; f:array[0..600000] of longint; a:array[0.. 阅读全文
摘要:
经典的贪心,每次去掉第一个递增序列最后一个数字,(少了一个等号查了20min错TAT) 阅读全文
摘要:
高精度小数加法……一开始对齐弄了半天,teacher却告诉我可以固定小数点在数组的100号…… uses math;type arr=array[-1..200] of longint;var a,b,c:arr;procedure putin(var a:arr);var k,i:longint; 阅读全文
摘要:
今天用cena测金陵中学一次竞赛(圣诞赛)……被cena狠狠坑了…… 源码: uses math;var a:array[1..200] of longint; f:array[1..200,1..200] of boolean; n,i,big,j,x:longint;begin assign(i 阅读全文