home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / scheme / gcd < prev    next >
Encoding:
Text File  |  1991-09-25  |  109 b   |  9 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; GCD function
  4.  
  5. (define (g x y)
  6.   (if (zero? y)
  7.       x
  8.       (g y (remainder x y))))
  9.