char*u="]P!F+++4!<85!1+-5/-3!00////1!1/-3-/1!3C"
"3!3C3!3/-1+/3!3-//--5!5++3+/5""!5""=7!57=!7+-/"
"=!=/=!=/=!=/;=*!?->" "!?->!?->!@,>"
"
!@+?!I-4""!I+4" "q;/=!;" "/=!;/=!;75"
"!73/-3!" "/-+.,-" "-11!/1" "/0+01!1/"
"+4+.3!19" ",.5!" "1//5" "5!11+57!"
"3=7!3/,.=!" "<.=!<.=!<."
"=!<.=!<.=!" "<.=!<.=!<."
"=!<,?!<+@!" "U!jj" "jj" ",*p,*q,*s,"
"y[1057];in" "t t=1," "o,i=" "0;f(v){while"
"(p++-s<*s){i""f(" "*p" "==33)v&&(y[i"
"++]=34),y[i+" "+]=10,t=1;else"
"{for(o=(*p+t" "*2+!v)%43,v&&(y[i++]"
"=34);o--;)(y[i""++]=" "t?*q++:32)==126&&!v&"
"&(y[i-1]=34);t=!t;}}" "}main(){q=p=s=u;whil"
"e(i<7)y[i++]=~char*u" "=~[i];f(1);s=p,*s-=3"
"4;q=u+247;y[i++]=34;" "t=1;f(0);puts(y);}",*
p,*q,*s,y[1057];int t=1 ,o,i=0;f(v){while(p++-
s<*s){if(*p==33)v&&(y[i ++]=34),y[i++]=10,t=1;
else{for(o=(*p+t*2+!v)% 43,v&&(y[i++]=34);o--;
)(y[i++]=t?*q++:32)==126 &&!v&&(y[i-1]=34);t=!t
;}}}main(){q=p=s=u;while (i<7)y[i++]="char*u="[i
];f(1);s=p,*s-=34;q=u+247;y[i++]= 34;t=1;f(0);
puts(y);}
用了个笨办法,虽然这个不能变化(原因只是我今天写这个程式时用的字模太小,加不进对换字模的语句了,但这个方法完全可以做到),类似打印自己的。
程式的前面是字模:
"]P!F+++4!<85!1+-5/-3!00////1!1/-3-/1!3C3!3C3!3/-1+/3!3-//--5!5++3+/5!5=7!57=!7+-/=!=/=!=/=!=/;=*!?->!?->!?->!@,>!@+?!I-4!I+4"
这个是"甲"字
"q;/=!;/=!;/=!;75!73/-3!/-+.,--11!/1/0+01!1/+4+.3!19,.5!1//55!11+57!3=7!3/,.=!<.=!<.=!<.=!<.=!<.=!<.=!<.=!<.=!<,?!<
+@!U!jjjj"
这个“申”字(未完成的半成品字模)
本想今年是甲申年,所以写个甲申两个字,结果估算错误,字模太小,对换字模的代码加不进了,算了,“工程量”太大了,这个程式前后花了差不多一天时间,明年再改了。
请用TC或win-tc测试,写的时候未考虑头文件,所以请自己加在前面.