mirror of
https://github.com/MartinThoma/LaTeX-examples.git
synced 2025-04-26 06:48:04 +02:00
5 lines
111 B
Perl
5 lines
111 B
Perl
|
rev([], []).
|
||
|
|
rev([X|Xs], Ys) :- rev(Xs, Zs), append(Zs, [X], Ys).
|
||
|
|
|
||
|
|
?- rev([1,2,3,4,5], L).
|
||
|
|
L = [5, 4, 3, 2, 1].
|