algebrite/sources/lcm.coffee

Computer Algebra System in Coffeescript

# Find the least common multiple of two expressions.



Eval_lcm = ->
	p1 = cdr(p1)
	push(car(p1))
	Eval()
	p1 = cdr(p1)
	while (iscons(p1))
		push(car(p1))
		Eval()
		lcm()
		p1 = cdr(p1)

lcm = ->
	prev_expanding = expanding
	save()
	yylcm()
	restore()
	expanding = prev_expanding

yylcm = ->
	expanding = 1

	p2 = pop()
	p1 = pop()

	push(p1)
	push(p2)
	gcd()

	push(p1)
	divide()

	push(p2)
	divide()

	inverse()