B4J Question Is there a routine to reduce fractions?

[D_Child123]

Hi,

Do we have any libraries or snippets, that will take a numerator and a denominator, and reduce them, like reducing 14/42 to 1/3?

 

[Erel]

Here:

Sub AppStart (Form1 As Form, Args() As String)
   Dim nd() As Int = Reduce(300, 360)
   Log($"${nd(0)} / ${nd(1)}"$)
End Sub

Private Sub Reduce(numerator As Int, denominator As Int) As Int()
   Dim g As Int = gcd(numerator, denominator)
   Do While g <> 1
     numerator = numerator / g
     denominator = denominator / g
     g = gcd(numerator, denominator)
   Loop
   Return Array As Int(numerator, denominator)
End Sub

Private Sub gcd(a As Int, b As Int) As Int
   If b = 0 Then Return a
   Return gcd(b, a mod b)
End Sub

 

[BeneBarros]

https://www.b4x.com/android/forum/threads/rational-numbers.60317/

 

[D_Child123]

Cool. Easier than expected. Thanks, Erel and Bene.