home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / REFOUT / PROFILER.R00 < prev    next >
Text File  |  1996-06-04  |  2KB  |  62 lines
  1.  
  2. *** Yes
  3.  
  4. Type 'profile_help ?' to get some help about the profiler
  5.  
  6.  
  7. *** Yes
  8. > Profile : Added profiling code to function 'merge' at clause level
  9.  
  10. *** Yes
  11. --1> 
  12. *** No
  13. > [1,2,3,4,5,6,8,9,10,12,15,16,18,20,24,25,27,30,32,36,40,45,48,50,54,60,64,72,75,80,81,90,96,100,108,120,125,128,135,144,150,160,162,180,192,200,216,225,240,243,250,256,270,288,300,320,324,360,375,384,400,405,432,450,480,486,500,512,540,576,600,625,640,648,675,720,729,750,768,800,810,864,900,960,972,1000]
  14.  
  15. *** Yes
  16. --1> 
  17. *** No
  18. > 
  19. Profiling statistics for functions :
  20. ----------------------------------
  21.  
  22.   *Tries*     Match      %Eval    Successes  %Tot.fail   functions
  23.    162         ---        ---       162          0       merge
  24.  
  25.    Tries     *Match*     %Eval    Successes  %Tot.fail   functions
  26.     ---       160        100        160          0       merge#3
  27.     ---         1        100          1          0       merge#1
  28.     ---         1        100          1          0       merge#2
  29.  
  30.  
  31. *** Yes
  32. > Profile : restored original clauses for function 'merge'
  33.  
  34. *** Yes
  35. --1> 
  36. *** No
  37. > 
  38. dynamic(merge)?
  39. merge(_A,[]) -> _A.
  40. merge([],_A) -> _A.
  41. merge(_A: [_B|_C],
  42.       _D: [_E|_F]) -> cond(_B =:= _E,
  43.                            [_B|merge(_C,_F)],
  44.                            cond(_B > _E,[_E|merge(_A,_F)],[_B|merge(_C,_D)])).
  45.  
  46. *** Yes
  47. > [1,2,3,4,5,6,8,9,10,12,15,16,18,20,24,25,27,30,32,36,40,45,48,50,54,60,64,72,75,80,81,90,96,100,108,120,125,128,135,144,150,160,162,180,192,200,216,225,240,243,250,256,270,288,300,320,324,360,375,384,400,405,432,450,480,486,500,512,540,576,600,625,640,648,675,720,729,750,768,800,810,864,900,960,972,1000]
  48.  
  49. *** Yes
  50. > Profile : Added profiling code to function 'merge' at clause level
  51.  
  52. *** Yes
  53. --1> 
  54. *** Yes
  55. ----2> Profile : restored original clauses for function 'merge'
  56.  
  57. *** Yes
  58. ------3> > [1,2,3,4,5,6,8,9,10,12,15,16,18,20,24,25,27,30,32,36,40,45,48,50,54,60,64,72,75,80,81,90,96,100,108,120,125,128,135,144,150,160,162,180,192,200,216,225,240,243,250,256,270,288,300,320,324,360,375,384,400,405,432,450,480,486,500,512,540,576,600,625,640,648,675,720,729,750,768,800,810,864,900,960,972,1000]
  59.  
  60. *** Yes
  61. > 
  62.