下面是一个示例的Prolog代码,用于打印奇数位置上项目的谓词:
% 定义谓词print_odd_position(List)用于打印奇数位置上的项目
print_odd_position([]). % 空列表时结束递归
print_odd_position([X]). % 单个元素时结束递归
print_odd_position([_,X|T]) :- % 递归情况
write(X), % 打印奇数位置上的项目
nl, % 换行
print_odd_position(T). % 递归调用,移动到下一个奇数位置
% 例子调用
?- print_odd_position([a, b, c, d, e, f, g]).
运行上述代码,将会打印出列表 [b, d, f]
,这是输入列表 [a, b, c, d, e, f, g]
中奇数位置上的项目。