| /* VAX C-Prolog Benchmark Package */ | |
| /* Copyright 1985 by Tektronix, Inc., and Portland State University */ | |
| mk_list(0,[]). | |
| mk_list(N,[N|L]) :- | |
| N1 is N-1, mk_list(N1,L). | |
| rev([],[]). | |
| rev([X|L],Rlx) :- | |
| rev(L,Rl), app(Rl,[X],Rlx). | |
| app([],L,L). | |
| app([X|L1],L2,[X|L3]) :- | |
| app(L1,L2,L3). |