不知道该怎么说这个东西,我觉得lisp的唯一好处就是写编译器方便,那么容易写脚本嵌在你C语言开发的程序里。
总比以下我为了某个项目配置算法而设计的垃圾语言要好的多,当然这个与其是为了项目,倒不如说是为了练手:
d[1],8,<<,d[0],|,float,1000.0,*,65535.0,/,
3.0,+,
dup,0,F[1],F,<,?goto a,dup,F[1],length,1,-,F[1],F,>=,?goto b,
0,:f,dup,F[1],F,dup2 2,>=,?goto g,1,+,goto f,:g,1,-,
dup,F[1],F,exchange,dup,1,+,F[10],F,exchange,dup,F[10],F,exchange,1,+,F[1],F,
dup2 4,dup2 4,-,dup2 3,dup2 3,-,*,dup2 1,dup2 5,-,/,dup2 2,+,
quit,
:a,pop,0.0,quit,
:b,dup,F[1],length,1,-,F[1],F,3.0,+,<,?goto c,quit,
:c,pop,F[1],length,1,-,F[1],F,quit |