home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
lifeos2.zip
/
LIFE-1.02
/
TESTS
/
IN
/
PROFILER.IN
< prev
next >
Wrap
Text File
|
1996-06-04
|
254b
|
19 lines
fact(0) -> 1.
fact(N) -> N*fact(N-1).
app([],L,L).
app([X|L1],L2,[X|L3]) :- app(L1,L2,L3).
import("profiler")?
profile(fact,app,level=>call)?
A=fact(5)?
write_stats(fact)?
write_stats(app)?
app(A,B,[1,2,3])?
;
write_stats(app)?
;
;
;
write_stats(app)?