module Tobi =

    let calc R RN =

        int (ceil (float (max R RN) / float (min R RN)))

​

module Rudi =

    let calc R RN =

        (RN / R) + (RN % R)

​

open Tobi

printfn "Tobi:"

printfn "%i" <| calc 2 4

printfn "%i" <| calc 2 3

printfn "%i" <| calc 2 5

printfn "%i" <| calc 3 2

​

open Rudi

printfn "Rudi:"

printfn "%i" <| calc 2 4

printfn "%i" <| calc 2 3

printfn "%i" <| calc 2 5

printfn "%i" <| calc 3 2

​

printfn "other---->"

// welligs stimmt iatz?:

printfn "T: %i" <| Tobi.calc 5 3

printfn "R: %i" <| Rudi.calc 5 3

printfn "T: %i" <| Tobi.calc 3 5

printfn "R: %i" <| Rudi.calc 3 5

​