fricas
Q := Fraction Integer
Type: Type
fricas
gcd(8,4) = retract gcd(8::Q, 4::Q)
Type: Equation(PositiveInteger
?)
fricas
a:=13/6
Type: Fraction(Integer)
fricas
b:=3/4
Type: Fraction(Integer)
fricas
g:=gcd(a,b)
Type: Fraction(Integer)
fricas
l:=lcm(a,b)
Type: Fraction(Integer)
fricas
g*l = a*b
Type: Equation(Fraction(Integer))
fricas
gcd2(x,y) == gcd(numerator x, numerator y) / lcm(denominator x, denominator y)
Type: Void
fricas
lcm2(x,y) == lcm(numerator x, numerator y) / gcd(denominator x, denominator y)
Type: Void
fricas
g:=gcd2(a,b)
fricas
Compiling function gcd2 with type (Fraction(Integer),Fraction(
Integer)) -> Fraction(Integer)
Type: Fraction(Integer)
fricas
l:=lcm2(a,b)
fricas
Compiling function lcm2 with type (Fraction(Integer),Fraction(
Integer)) -> Fraction(Integer)
Type: Fraction(Integer)
fricas
g*l = a*b
Type: Equation(Fraction(Integer))
fricas
gcd3(x,y) == gcd(numerator x * denominator y, numerator y * denominator x) / (denominator x * denominator y)
Type: Void
fricas
lcm3(x,y) == lcm(numerator x * denominator y, numerator y * denominator x) / (denominator x * denominator y)
Type: Void
fricas
g:=gcd3(a,b)
fricas
Compiling function gcd3 with type (Fraction(Integer),Fraction(
Integer)) -> Fraction(Integer)
Type: Fraction(Integer)
fricas
l:=lcm3(a,b)
fricas
Compiling function lcm3 with type (Fraction(Integer),Fraction(
Integer)) -> Fraction(Integer)
Type: Fraction(Integer)
fricas
g*l = a*b
Type: Equation(Fraction(Integer))