توابع محاسبه ب.م.م (GCD) و ک.م.م (LCM) دو عدد به زبان های مختلف

توابع محاسبه ب.م.م (GCD) و ک.م.م (LCM) دو عدد به زبان های مختلف : 

F#: 

let GCD(a : int, b : int) : int = 

    let mutable rv : int = 0

    let mutable ia : int = a

    let mutable ib : int = b

    while rv = 0 do

        if ia = 0 then

            rv <- ib

        else

            ib <- ib % ia

        if ib = 0 then

            rv <- ia

        else

            ia <- ia % ib

    rv