Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
shift_right :- read(Xs), shift_right(Xs, Ys), write(Ys). shift_right(Xs, [Y | Ys]) :- last_rest(Xs, Ys, Y). last_rest([X], [], X). last_rest([X | Xs], [X | Ys], Y) :- last_rest(Xs, Ys, Y). /** <examples> ?- shift_right. */