Question

这是一个谓词，应该从列表中向后写，但是因为＆＃39; tab（-2）＆＃39;没有工作我想知道是否有其他谓词，或者使用＆tab; / 1＆＃39;为了向后移动（在这种情况下，使用＆＃39; reverse / 2＆＃39;不是一个选项。）

我对这一切都很陌生，所以我希望我做的一切都很对，任何形式的帮助都会受到赞赏。

snakeprint([X|Xs],Counter1,Counter2,Y,2):-
   tab((Y*3)-3),                               
   write(X),                                 
   tab(-2),                                  
   C1 is Counter1-1,
   snakeshift([X|Xs],V),
   snakeprint(V,C1,Counter2,Y,2).

Answer 1

snakeprint([H|T]) :-
    snakeprint(T),
    write(H).

snakeprint([]).

Input: ["M", "a", "r", "y", " ", "h", "a", "d"]
Output: dah yraM

SWI-Prolog，向后写

1 个答案: