基地4回文

问题描述

此代码应检查给定数字是否以4为底的回文。

如果给定的编号是回文，则解决方案为 true ，但如果不是，则为错误。

baza_4(0,[]).

baza_4(N,[R|Xs]) :-
   N1 is floor(N/4),baza_4(N1,Xs),R is mod(N,4).

splitR(N,Xs) :-
   baza_4(N,Ys),reverse(Xs,Ys).

pal(N) :- 
   baza_4(N,Xs).

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）