File: gcd.hpc

package info (click to toggle)
hp48cc 1.3-7
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 380 kB
  • sloc: yacc: 452; ansic: 184; lex: 108; makefile: 90; sh: 90
file content (17 lines) | stat: -rw-r--r-- 297 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
// gcd.hpc -- Finds greatest common denominators -*- C -*-
//
// Based on a version written by Jay Kominek <jkominek@debian.org>

declare gcd(m, n) : z(0) {
	if (n > m) {		// Swap values
		z = m;
		m = n;
		n = z;
	}
	do {
		z = m % n;
		m = n;
		n = z;
	} while (z != 0);
	m;			// Return value
}