SWI-Prolog、後ろに書く

Question

これはリストから後ろに書き込むことになっている述語ですが、 'tab（-2）'は機能しないので、他の述語があるかどうか、後方に移動するために 'タブ/ 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