%%trying to make it base2 -> base10 and base10 -> base2


var total : int

%%will change a base10 number into base2
fcn base10_base2 (base_number : int) : int
    var base2 : flexible array 1 .. 0 of int
    var number : int := base_number
    var join_numbers : string := ""

    loop
        new base2, upper (base2) + 1    %%adds an array as the numbers are coming
        if number rem 2 = 1 then            %%if numbers odd it will add a one
            base2 (upper (base2)) := 1
        else
            base2 (upper (base2)) := 0      %%if numbers even it will add a zero
        end if
        number div= 2               %%we divide the number by 2

        exit when number / 2 <= 1   %%leaves this loop when base10 cant be devided anymore
    end loop

    %%debugging purposes
    for i : 1 .. upper (base2)
        put base2 (i)
    end for

    %%rewrites the numbers backwards
    for decreasing i : upper (base2) .. 1
        join_numbers += intstr (base2 (i))
    end for

    result strint (join_numbers)
end base10_base2

%%will make a base2 number a base10
fcn base2_base10 (base_number : string) : int
    var number : int := 0
    var base10 : array 1 .. length (base_number) of string

    %%reverse the array of numbers to calculate it right to left
    for i : 1 .. length (base_number)
        base10 (i) := base_number ((length (base_number) + 1) - i)
    end for

    %%finds out the value of the base2 number
    for i : 1 .. length (base_number)
        if base10 (i) = intstr (0) then %%if numbers a 0
            number += 1     %%we add 1 to the value
        else
            number += 2 ** i
        end if
    end for

    result number
end base2_base10

total := base10_base2 (54)
put total

total := base2_base10 ("11010")
put total

%%11010 = 54

module String
    export reverse
    function reverse (s : string) : string
        var r := ""
        for decreasing i : length (s) .. 1
            r += s (i)
        end for
        result r
    end reverse
end String
%%will change a base10 number into base2
fcn base10_base2 (base_number : int) : string
    var base2 := ""
    var n := base_number

    loop
        exit when n = 0
        if n mod 2 = 0 then
            base2 += "0"
        else
            base2 += "1"
        end if
        n div= 2
    end loop

    result String.reverse (base2)
end base10_base2

put base10_base2 (49)