prolog作业答案

prolog的作业答案，仅供参考，还有一些工具函数在顶部