SWI-Prolog，倒写

Question

这是一个应该从列表中向后写的谓词，但是由于 'tab(-2)' 不起作用，我想知道是否还有其他谓词，或者使用 'tab/1 的不同方式'为了向后移动。 （在这种情况下，不能使用“reverse/2”）。

我对这一切都很陌生，所以我希望我做的一切都是正确的，任何形式的帮助都将不胜感激。

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