Mercurial > hg > Applications > Lite

view cp.pl @ 3:c1e5614545ff tokio start

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Created directory structure
author kono
date Thu, 18 Jan 2001 23:27:24 +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).