Arithmetic/Rational: Difference between revisions
m
→{{header|M2000 Interpreter}}
Drkameleon (talk | contribs) (minor fix) |
|||
Line 3,000:
}
class:
Module Rational (.numerator, .denominator) {
if .denominator
if a
a=b:b=g: g=a mod b
}▼
=abs(b)
gdcval=gcd1(abs(.numerator), .denominator)
if gdcval<.denominator and gdcval<>0 then
.denominator/=gdcval
.numerator/=gdcval
end if
.gcd<=gcd1
.lcm<=lambda gcd=gcd1 (a as decimal, b as decimal) -> {▼
=a/gcd(a,b)*b
}
}
▲ .gcd<=gcd1
▲ .lcm<=lambda gcd=gcd1 (a as decimal, b as decimal) -> {
▲ =a/gcd(a,b)*b
▲ }
}
sum=rational(1, 1)
| |||