Mercurial > hg > Applications > Lite
view cp.pl @ 20:07d6c4c5654b iso-prolog
SICStus v4 (ISO prolog syntax)
author | kono |
---|---|
date | Thu, 30 Aug 2007 14:16:36 +0900 |
parents | e1d3145cff7a |
children |
line wrap: on
line source
r_cputime(X) :- statistics(runtime,[X1,_]),X is X1/1000. r_abolish(A,B) :- abolish(A/B). put(C) :- char_code(Char,C),put_char(Char). ttyflush :- flush_output.