home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / examples / lexyacc / cl / fib.cl < prev    next >
Encoding:
Text File  |  1997-08-18  |  135 b   |  6 lines  |  [TEXT/R*ch]
  1. (* Compute the 17th Fibonacci number, inefficiently *)
  2.  
  3. letrec 
  4.     fib = \n.if n = 0 | n = 1 then 1 else fib (n-1) + fib (n-2)
  5. in fib 17
  6.