10 lines
321 B
Forth
10 lines
321 B
Forth
type SpeedingTicket() =
|
|
member this.GetMPHOver(speed: int, limit: int) = speed - limit
|
|
|
|
let CalculateFine (ticket : SpeedingTicket) =
|
|
let delta = ticket.GetMPHOver(limit = 55, speed = 70)
|
|
if delta < 20 then 50.0 else 100.0
|
|
|
|
let ticket1 : SpeedingTicket = SpeedingTicket()
|
|
printfn "%f" (CalculateFine ticket1)
|