F #: wie bekomme ich einen Ausdruck vom Typ char mit einem int type Eingang

Question

Ich versuche einen einfachen Code zu schreiben, der den int-Typ als Eingabevariablen hat und mir eine Char-Variable gibt, abhängig von den Werten der Eingabevariablen:

let control (a : int) (b : int) (c : int) : char = match (a,b,c) with (1,1,1) ->'r' 

    control 1 1 1 

es funktioniert, aber nur für die Kombination 1 1 1

Wie kann ich einen Ausgang 't' zu haben, machen (zum Beispiel), wenn a = b = c und 'n' für andere Kombinationen?

vielen Dank

Answer 1

let control a b c = 
    match (a, b, c) with 
     | (1, 1, 1)    -> 'r' 
     | _ when a = b && b = c -> 't' // or when (a, b) = (b, c) 
     | _      -> 'n' 

Oder:

let control a b c = 
    if (a, b, c) = (1, 1, 1) then 'r' 
    elif a = b && b = c then 't'  // or elif (a, b) = (b, c) then 
    else 'n'