home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / fib.scm < prev    next >
Encoding:
Text File  |  1990-03-27  |  388 b   |  27 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4.  
  5. Description:
  6.  
  7. This code tests generic arithmetic and fixnum specific arithmetic.
  8.  
  9. Usage:
  10.  
  11. (fib 20) -> 6765
  12. (ffib 20) -> 6765
  13. (fib 19.0001) -> 4181.6765
  14.  
  15. |#
  16.  
  17. (declare (usual-integrations))
  18.  
  19. (define (fib n)
  20.   (if (< n 2)
  21.       n
  22.       (+ (fib (-1+ n)) (fib (- n 2)))))
  23.  
  24. (define (ffib n)
  25.   (if (fix:< n 2)
  26.       n
  27.       (fix:+ (ffib (fix:-1+ n)) (ffib (fix:- n 2)))))