一个很逗的东西——Jd

这个嘛是本人专门为了NOI上面对拍程序写的对拍程序,已经经历了NOI2015的考验;更重要的是——纯Pascal的哦(HansBug:其实是我不会写.sh脚本TT,谁叫用惯了windows的我只会写bat呢)。。。(本人实测复杂度约为 \( {10}^{5} \) 的程序在windows下每秒钟约可以拍20次左右,linux下可以最高达到600次每秒哦,上次我开动程序后当我反应过来之后次数已经是四位数了么么哒,当然了如果你程序本身就复杂度过高的话那么还是没有办法,毕竟受到程序运行速度的制约)。。。

需要的可执行文件(注:linux下面可执行文件无.exe后缀,在程序中去掉即可,这三个可执行文件均需要文件输入输出,其中std程序输出文件为stdXXX.out,数据生成器输出到XXX.in,当然了欢迎擅长使用输入输出管道的童鞋进行优化喽):

1.XXX.exe/XXX——你的程序  

2.stdXXX.exe/stdXXX——你的标程(其实也可以是暴力程序,总之保证这个一定不WA就行了)  

3.fuckXXX.exe/fuckXXX——你的数据生成器(其实这个逗比的前缀前几天才被JYY狠狠地吐槽了一下,不过我已经用这种对拍格式一年多了,于是这个程序还是先按照我自己的习惯来设计的啦,欢迎大家按照自己的习惯来进行修改^_^)

然后在Linux下直接编译号后开终端直接用就好啦^_^

此程序本人将其命名为Jd。。。。希望即使此程序被传开之后,Jd这个专有名词依然可以保留下去啦

代码如下:(Jd.exe(Win)/Jd(Linux))

 1 Program Jd;
 2 uses dos,sysutils;
 3 const mm=24*60*60;
 4 var
 5         i,j,k,l,m,n:longint;
 6         tit,s1:ansistring;
 7         t1,t2:extended;tt,jj:boolean;
 8 function fc(ss1,ss2:ansistring):boolean;   //标准比对模块,千万注意无论是正常退出还是中断的都必须关闭文件,否则会导致很快报错
 9         var s1,s2:ansistring;f1,f2:text;
10         begin
11                 assign(f1,ss1);reset(f1);
12                 assign(f2,ss2);reset(f2);
13                 while not(eof(f1)) and not(eof(f2)) do  //有效行的比对
14                         begin
15                                 readln(f1,s1);readln(f2,s2);
16                                 s1:=trimright(s1);
17                                 s2:=trimright(s2);
18                                 if s1<>s2 then
19                                         begin
20                                                 close(f1);close(f2);
21                                                 exit(false);
22                                         end;
23                         end;
24                 while not(eof(f1)) do   //多余行的比对
25                         begin
26                                 readln(f1,s1);
27                                 if trimright(s1)<>'' then
28                                         begin
29                                                 close(f1);close(f2);
30                                                 exit(false);
31                                         end;
32                         end;
33                 while not(eof(f2)) do   //多余行的比对
34                         begin
35                                 readln(f2,s2);
36                                 if trimright(s2)<>'' then
37                                         begin
38                                                 close(f1);close(f2);
39                                                 exit(false);
40                                         end;
41                         end;
42                 close(f1);close(f2);exit(true);  
43         end;
44 function judge:boolean;   //总评测模块,可以按照自己的意愿增删功能,也可以完全改成纯测速器,那样子就不需要std了,然后直接返回True即可
45         begin
46                 writeln('Running source...');
47                 t1:=now;exec(tit+'.exe','');t2:=(now-t1)*mm;   //now函数获取的时间单位为Day
48                 writeln(t2:0:3,'s');
49 
50 
51                 writeln('Running std...');   //如果改成测速模式的话可以删除此段
52                 t1:=now;exec('std'+tit+'.exe','');t2:=(now-t1)*mm;
53                 writeln(t2:0:3,'s');
54 
55                 exit(fc('std'+tit+'.out',tit+'.out'));
56         end;
57 begin
58         write('Program Name :');readln(tit);
59         write('How many (0 means unlimited):');readln(l);
60         i:=0;
61         repeat
62                 inc(i);
63                 writeln('Test No.',i);  
64                 exec('fuck'+tit+'.exe','');   //启动数据生成器
65 
66                 repeat
67                         tt:=judge;
68                         if tt then
69                                 writeln('Accept')
70                         else
71                                 begin    //这边是当出现WA时自动暂停询问是否再测一次,当然了你可以按照你的意愿修改功能
72                                         writeln('Wrong Answer');
73                                         write('Continue this point?');
74                                         readln(j);if j<>1 then break;
75                                 end;
76                 until tt;
77                 writeln('---------------------------------------------------');
78                 writeln;
79         until i=l;
80 end.

对了有人问我为啥要手写那么长的Fc模块,原因如下:

1.直接原因——我不擅长使用FC.exe(Linux下的diff)的输入输出管道而且调用起来麻烦;

2.然而更重要的一点是——这个Fc模块可以按照你的需求非常自由的修改(本程序中的是忽略行末空格和多余回车的,也就是常用的模式),比如说允许0.01%的实数精度误差,那样子只要简单修改下fc模块代码即可正常使用,而且在程序其他的地方也可以按照你自己的需要自由的增删功能,比如自动计算当前拍下来所有的点里面的正确率、平均耗时。。。

或者可以这么说——这个东西是Pascal写的(当然了欢迎大家做出来C/C++版的高级语言对拍器),这个是你作为一个OI党再熟悉不过的语言了,所以可以这么说,在这个里面只要你想要的功能都可以有,只要你能编出来(HansBug:更何况计算平均值这种东西我想对于已经需要大量对拍的Oier来说恐怕都不是问题吧^_^)

最后,欢迎各位优化(HansBug:其实按照JYY的说法,最好是在不很影响性能的情况下压缩代码长度,当然了Linux下每秒钟500+次的高速度还是希望保持的啦,然而在win下由于win本身创建子进程的速度就慢的很所以并不是很有办法TT,还有弱弱的说一句希望能保留我这个Jd的名字啦么么哒^_^)

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏程序员的知识天地

用 Python 抓网页,你想问的都帮答好了,你还有不懂的吗?

近年来,随着大数据、人工智能、机器学习等技术的兴起,Python 语言也越来越为人们所喜爱。但早在这些技术普及之前,Python 就一直担负着一个重要的工作:自...

15930
来自专栏子勰随笔

SDK开发经验之开发习惯

267100
来自专栏java一日一条

Java 元编程及其应用

同样是实现一个投票系统,一个是python程序员,基于django-framework,用了半小时就搭建了一个完整系统,另外一个是标准的SSM(Spring-S...

21110
来自专栏帮你学MatLab

Robotics System Toolbox路径规划

filePath = fullfile(fileparts(which('PathPlanningExample')),'data','exampleMaps....

25020
来自专栏逸鹏说道

04. Web大前端时代之:HTML5+CSS3入门系列~Input新增类型

Web大前端时代之:HTML5+CSS3入门系列:http://www.cnblogs.com/dunitian/p/5121725.html 1.tel:输入...

28770
来自专栏瓜大三哥

UVM(七)之phase及objection

UVM(七)之phase及objection 这两个概念与UVM验证平台息息相关,phase就好比铁轨,让UVM这趟列车在铁轨上向前运行,不会脱轨,不...

56080
来自专栏IT可乐

深入理解计算机系统(4.1)------Y86指令集体系结构

  本章我们将进入处理器体系结构介绍的神秘海洋中,我们熟悉的手机,电脑等设备的核心硬件都离不开处理器。处理器可以称的上是人类创造的最复杂的系统之一,一块手指大小...

272100
来自专栏从零开始学自动化测试

python笔记11-多线程之Condition(条件变量)

前言 当小伙伴a在往火锅里面添加鱼丸,这个就是生产者行为;另外一个小伙伴b在吃掉鱼丸就是消费者行为。当火锅里面鱼丸达到一定数量加满后b才能吃,这就是一种条件判断...

39750
来自专栏WeTest质量开放平台团队的专栏

Go语言之三驾马车

从 Python 到 Go,远离舒适区,保持饥饿。

18610
来自专栏程序员互动联盟

【编程基础第四讲】遇到编译错误怎么办?

存在问题: 现在刚入门的小伙伴,在编译初级的代码一遇到错误就显得不知所措,那么怎么办? 解决方案: 编程的新手,包括刚毕业工作的同学在解决编译错误时有时候不知...

38390

扫码关注云+社区

领取腾讯云代金券