#
# euclid.jako
#
# Knuth, Donald E.
# The Art of Computer Programming
# Volume 1: Fundamental Algorithms
# Third Edition
#
# Section 1.1
# Algorithm E (Euclid's algorithm)
# Page 2
#
# Copyright (C) 2001 Gregor N. Purdy. All rights reserved.
# This program is frees software. It is subject to the same
# license as Perl itself.
#
# $Id: euclid.jako,v 1.6 2001/10/05 16:54:45 gregor Exp $
#

var int m    = 96;
var int n    = 64;
var int r;

print("Algorithm E (Euclid's algorithm)\n");
print("  Calculating gcd($m, $n) = ...\n");

r = m % n;
while (r != 0) {
  m = n;
  n = r;
  r = m % n;
} 

print("  ... = $n\n");