Mercurial > hg > Applications > Lite

view cp.pl @ 13:d2aa6137e9a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Sat, 20 Jan 2001 18:14:58 +0900
parents 1c57a78f1d98
children e1d3145cff7a
line wrap: on
line source

 







 













% A '\=' A :-!,fail.
% _ '\=' _.













r_cputime(X) :- statistics(runtime,[X1,_]),X is X1/1000.









append([],X,X).
append([H|X],Y,[H|Z]) :- append(X,Y,Z).