let alg s c = s+(c*c)+c

​

// immer storno

alg 5 0

alg 5 1

// änderung

alg 0 1

alg 1 1

// andere

alg 0 0

alg 1 0

​

let test s c =

    match alg s c with

    | 5 | 7 -> "storno"

    | 2 | 3 -> "bookingchanged"

    | 0 -> "bookingsuedtirol new"

    | 1 -> "easychannel new"

    | _ -> "invalid state"

​

printfn "%s" <| test 5 1

printfn "%s" <| test 5 0

printfn "%s" <| test 5 2 // invalid

printfn "%s" <| test 0 1

printfn "%s" <| test 1 1

printfn "%s" <| test 2 1 // invalid

printfn "%s" <| test 0 0

printfn "%s" <| test 1 0

printfn "%s" <| test 2 0 // invalid

printfn "%s" <| test 1 2 // invalid

​