Mercurial > hg > Applications > Lite

view cp.pl @ 4:029b5a5ac494

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Fri, 19 Jan 2001 02:03:27 +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).