lisp语言与python_5种语言混合编程：C 、JS、python、Lisp、汇编

/*混合C++、JS、python、Lisp、汇编1种语言，5种语法*/main{//C++vector v;v.push(2);putsl(v.size());if(v.count()==1){putsl('abc');}//JSvar a=function(x){return x*2;}putsl(a(3));a={90,91};putsl(a[1]);//pythonb=2if b==2putsl 1 putsl 2 elif b==3putsl 99 //Lisp[= b 3][rf printl b][= b [+ 1 3]][rf printl b]//汇编mov b,4add b,5putsl(b)}

输出是：4abc69112349

RPP已经成功从C++内核升级到了lisp内核，欢迎下载试用。

光速编译，无限可能，尽在RPP。(音up)

/*控制台贪食蛇*/int g_std_outrbuf g_arrint g_next=10int g_foodvoid main(){g_std_out=stdcall('GetStdHandle',-11)g_arr.push(105)CONSOLE_CURSOR_INFO cur_infocur_info.dwSize=1cur_info.bVisible=0stdcall('SetConsoleCursorInfo',g_std_out,&cur_info)rf.cmd('mode con cols=66 lines=35')initrf.srandstart=rf.tickfoodforkeyif rf.tick-start<100continuestart=rf.tickifn checkreturng_arr.push_front(g_arr[0]+g_next)if g_food!=g_arr[0]g_arr.popelsefoodupdate}void gotoxy(int x,int y){COORD pospos.x=xpos.y=yint tempmov temp,posstdcall('SetConsoleCursorPosition',g_std_out,temp)}void update(){for i=0 to 199gotoxy(i%10+1,i/10+1)if g_arr.exist(i)puts('O')elif i==g_foodputs('$')elseputs(' ')}void init(){for i=0 to 11for j=0 to 21if i==0||i==11||j==0||j==21gotoxy(i,j)puts('#')}void key(){if stdcall('GetAsyncKeyState',0x26)temp=-10elif stdcall('GetAsyncKeyState',0x28)temp=10elif stdcall('GetAsyncKeyState',0x25)temp=-1elif stdcall('GetAsyncKeyState',0x27)temp=1elsereturnif g_arr.count<2||g_arr.get(1)!=g_arr.get(0)+tempg_next=temp}int check(){temp=g_arr[0]+g_nextif temp<0||temp>199||int.abs(temp%10-g_arr[0]%10)>1||g_arr.exist(temp)stdcall('MessageBoxA',0,('over len '+g_arr.count).cstr,'',0)return falsereturn true}void food(){g_food=rf.rand()%200if g_arr.exist(g_food)food}struct CONSOLE_CURSOR_INFO{int dwSizebool bVisible}struct COORD{ushort xushort y}

以下是一个彩色版本号：

/*彩色版控制台贪食蛇*/int g_std_outrbuf g_arrint g_nextint g_foodvoid main(){begin:initstart=rf.tickforkeyif rf.tick-start<100continuestart=rf.tickifn checkgoto beging_arr.push_front(g_arr[0]+g_next)if g_food!=g_arr[0]g_arr.popelsefoodupdate}void update(){for i=0 to 199gotoxy(i%10*2,i/10)if g_arr.exist(i)out('■')elif i==g_foodout('★')elseputs(' ')}void init(){rf.srandg_std_out=stdcall('GetStdHandle',-11)g_next=10g_arr.clearg_arr.push(105)foodCONSOLE_CURSOR_INFO cur_infocur_info.dwSize=1cur_info.bVisible=0stdcall('SetConsoleCursorInfo',g_std_out,&cur_info)rf.cmd('mode con cols=20 lines=22')//保留一行留给输入法stdcall('SetConsoleTextAttribute',g_std_out,0x0a)gotoxy(0,20)puts(' ******************')}void key(){if stdcall('GetAsyncKeyState',0x26)temp=-10elif stdcall('GetAsyncKeyState',0x28)temp=10elif stdcall('GetAsyncKeyState',0x25)temp=-1elif stdcall('GetAsyncKeyState',0x27)temp=1elsereturnif g_arr.count<2||g_arr.get(1)!=g_arr.get(0)+tempg_next=temp}bool check(){temp=g_arr[0]+g_nextif temp<0||temp>199||int.abs(temp%10-g_arr[0]%10)>1||g_arr.exist(temp)stdcall('MessageBoxA',0,('over len '+g_arr.count).cstr,'',0)return falsereturn true}void food(){g_food=rf.rand()%200if g_arr.exist(g_food)food}void out(char* s){puts(rcode.utf8_to_gbk(s))}void gotoxy(int x,int y){COORD pospos.x=xpos.y=ystdcall('SetConsoleCursorPosition',g_std_out,pos)}struct CONSOLE_CURSOR_INFO{int dwSizebool bVisible}struct COORD{ushort xushort y}