细胞自动机（生命游戏）源码

/*
裸机运行细胞自动机（生命游戏）
请反注释#define _RVM并删除ebasic.rp后再编译
*/import "rbufm.h"main
{//先初始化堆，推荐把所有操作放在real_main里rf.init_heapreal_main
}real_main
{char arr[25][80]char* p(4194304)for i=0 to 24for j=0 to 79{arr[i][j]=(*p).toint%7p++}char col=0for{ view arr,coldelaytrans arr}
}view(rbufm>& arr,char& col)
{for i=0 to 24for j=0 to 79{if arr[i][j]==1rwin.text_n(i*80+j,char(`*))elserwin.text_n(i*80+j,char(` ))col++//在text_f后面加上col可以变换颜色}
}mac addc(a,b)
{if(a>=0&&a<25&&b>=0&&b<80)if(arr[a][b]==1)count++;
}trans(rbufm>& arr)
{for i=0 to 24for j=0 to 79{count=0addc(i-1,j-1)addc(i-1,j)addc(i-1,j+1)addc(i,j-1)addc(i,j+1)addc(i+1,j-1)addc(i+1,j)addc(i+1,j+1)if count==3arr[i][j]=1elif count==2;elsearr[i][j]=0}
}delay
{for i=0 to 400_0000;
}

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！