view cp.pl @ 10:f2aa38ce0787

add state display.
author kono
date Fri, 19 Jan 2001 23:14:00 +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).