home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / ifp / part01 / fproot / demo / Debug < prev    next >
Encoding:
Text File  |  1987-07-05  |  396 b   |  22 lines
  1. (*
  2.  * Version of Fib with debugging output
  3.  *
  4.  * n : Debug -> sequence of first n Fibonacci numbers
  5.  *
  6.  * The two functions created with the "@" form print their inputs
  7.  * so we can see what is going on inside the Debug function.
  8.  *)
  9.  
  10. DEF Debug AS
  11.  
  12.    IF [id,#2] | <= THEN
  13.  
  14.       @"trivial case" | [#<1 1>,id] | takel
  15.  
  16.    ELSE
  17.  
  18.       @"recurse" | sub1 | Debug | [id, [1r,2r]|+] | apndr
  19.  
  20.    END;
  21.  
  22.