Mercurial > hg > Applications > Lite
view cp.pl @ 22:29cf617f49db default tip
newer CVS version
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 22 Apr 2016 16:47:13 +0900 |
parents | 07d6c4c5654b |
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.