[ create a new paste ] login | about

Project: programmingpraxis
Link: http://programmingpraxis.codepad.org/dUzIZ9IK    [ raw code | fork ]

programmingpraxis - Scheme, pasted on Feb 19:
1
2
3
4
(define (gcd m n)
  (cond ((< m n) (gcd m (- n m)))
        ((< n m) (gcd (- m n) n))
        (else m)))


Create a new paste based on this one


Comments: