|
ispali:=proc（n）选项记住；局部L，i；
五十： =换算（n，基数，10）；
和地图（i->L[i]=L[-i]，[$1..楼层（nops（L）/2）]）
结束进程：
P[1]：=[1..9]美元：
P[2]：=[seq（11*i，i=1..9）]：
对于d，从3到13 do
P[d]：=[seq（seq（（10^（d-1）+1）*i+10*x，x=P[d-2]），i=1..9）]
日期：
过滤器：=proc（n）局部p；p： =转换（转换（n，基数，10），`*`）；
p>=11和ispali（p）
结束进程：
映射（op，[seq（select（filter，P[d]），d=1..13）]）#罗伯特·伊斯雷尔2019年11月14日
| 