Share Pastebin
Guest
Public paste!

Tuesday Praxis

By: a guest | Feb 16th, 2009 | Syntax: Scheme | Size: 0.10 KB | Hits: 327 | Expires: Never
Copy text to clipboard
  1. (define (gcd m n)
  2.   (cond ((< m n) (gcd m (- n m)))
  3.         ((< n m) (gcd (- m n) n))
  4.         (else m)))