Bizmonger.ActivePatterns 1.0.0

Common patterns

let (|None|One|Many|) (x:'a list) =
   match x with
   | x when x.Length > 1 -> Many
   | x when x.Length = 1 -> One
   | _                   -> None

let (|Equal|Different|) = function
   | v1, v2 when v1 = v2  -> Equal
   | v1, v2 when v1 <> v2 -> Different
   | _                    -> failwith "unknown"

let (|Positive|Neutral|Negative|) = function
   | x when x > 0 -> Positive
   | x when x = 0 -> Neutral
   | x when x < 0 -> Negative
   | _            -> failwith "unknown"