e5f4633c39
which included commits to RCS files with non-trunk default branches. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@5 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
31 lines
986 B
Plaintext
31 lines
986 B
Plaintext
|
|
/*
|
|
**********************************************************************
|
|
*
|
|
* CLP(R) Version 2.0 (Example Programs Release)
|
|
* (C) Copyright, March 1986, Monash University
|
|
*
|
|
**********************************************************************
|
|
*/
|
|
|
|
app([], L, L).
|
|
app([H | L1], L2, [H | L]) :- app(L1, L2, L).
|
|
rev([], []).
|
|
rev([H | L1], L) :- rev(L1, L2), app(L2, [H], L).
|
|
|
|
%
|
|
% Naive reverse for 100 elements.
|
|
%
|
|
|
|
go:- rev([a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14,
|
|
a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28,
|
|
a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42,
|
|
a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56,
|
|
a57, a58, a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70,
|
|
a71, a72, a73, a74, a75, a76, a77, a78, a79, a80, a81, a82, a83, a84,
|
|
a85, a86, a87, a88, a89, a90, a91, a92, a93, a94, a95, a96, a97, a98,
|
|
a99, a100], X).
|
|
|
|
?- printf("\n>>> Sample goal: go/0\n", []).
|
|
|