[BACK]Return to lcm.c CVS log [TXT] [DIR] Up to [Research Unix] / researchv9 / libc / gen
File:  [Research Unix] / researchv9 / libc / gen / lcm.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:22:00 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv9-SUN3_old, researchv9-SUN3, HEAD
researchv9-SUN3(old)

long
lcm(a, b)
{
	long c;
	if(a==0 && b==0)
		return(0L);
	c = a/gcd(a,b)*(long)b;
	return(c>=0? c: -c);
}
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.