搞爆编译器的代码

pascal:

{$inline on}procedure a; inline;begin end;procedure b; inline;begin a;a;a;a;a;a;a;a;a;aend;procedure c; inline;begin b;b;b;b;b;b;b;b;b;bend;procedure d; inline;begin c;c;c;c;c;c;c;c;c;cend;procedure e; inline;begin d;d;d;d;d;d;d;d;d;dend;procedure f; inline;begin e;e;e;e;e;e;e;e;e;eend;procedure g; inline;begin f;f;f;f;f;f;f;f;f;fend;procedure h; inline;begin g;g;g;g;g;g;g;g;g;gend;procedure i; inline;begin h;h;h;h;h;h;h;h;h;hend;procedure j; inline;begin i;i;i;i;i;i;i;i;i;iend;procedure k; inline;begin j;j;j;j;j;j;j;j;j;jend;begin k;k;k;k;k;k;k;k;k;kend.

C/C++：

#define A(x) x##x#define B(x) A(x)A(x)#define C(x) B(B(x))#define D(x) C(C(x))#define E(x) D(D(x))#define F(x) E(E(x))#define G(x) F(F(x))#define H(x) G(G(x))int main(){ int H(x) = 0;}

 

fpc由于一直没把内存耗完，所以一直没停下来，倒是把系统弄得很慢。

g++把2G内存耗完后就爆了，耗时23s

 

运行着g++时：

$ free -m
             total       used       free     shared    buffers     cached
Mem:          2023       1975         48          0          1         14
-/+ buffers/cache:       1958         64
Swap:         4102        164       3937

 

$ time g++ test1.cpp

cc1plus: out of memory allocating 536870912 bytes after a total of 2060288 bytes

real    0m23.594s
user    0m12.542s
sys     0m3.652s


$ time fpc test.pas
Free Pascal Compiler version 2.2.4 [2009/03/28] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Linux for i386
Compiling test.pas
Fatal: Compilation aborted


real    3m36.956s
user    0m0.000s
sys     0m0.034s

 

这些代码看似无聊，却对OJ系统的安全构成巨大威胁。。 看来要限制编译时间才行。