anchor.diff:                          else Some(Array.averageBy Option.get window))
                     
       /// The catOptions function takes a list of Options and returns an array of all the Some values.
  -    let catOptions (xs:Option<'a>[]) =
  -        [|
  -            for x in xs do
  -                if x.IsSome then yield x.Value
  -        |]
  +    let inline catOptions (xs:Option<'a>[]) = Array.choose id
  +
   
       /// Compares two arrays for equality using the given comparison function, element by element.
       let inline equalsWith eq xs ys = Array.compareWith (fun x y -> if eq x y then 0 else 1) xs ys = 0
  
positive.code:     let findOrDefault key defaultValue (map : Map<'T,'b>) =
          defaultArg (map.TryFind key) defaultValue
    
    /// The catOptions function takes a map of Options and values and returns a map of all the Some keys and values.
      let catOptionKeys (m:Map<Option<'a>, 'b>) =
          seq {
              for k, v in Map.toSeq m do
                  if k.IsSome then yield k.Value, v
          }
          |> Map.ofSeq
    
    /// The catOptions function takes a map of keys and Options and returns a map of all the keys and Some values.
      let catOptionValues (m:Map<'a, Option<'b>>) =
          seq {
              for k, v in Map.toSeq m do
                  if v.IsSome then yield k, v.Value
          }
          |> Map.ofSeq
  
      /// Compares two maps for equality using the given comparison function, element by element.
      let inline equalsWith eq xs ys =
  
negative.code:             pad (total - List.length list) elem list
        
      /// The catOptions function takes a list of Options and returns a list of all the Some values.
      let inline catOptions (xs:Option<'a> list) = List.choose id
  
  
      /// Compares two lists for equality using the given comparison function, element by element.
      let inline equalsWith eq xs ys = List.compareWith (fun x y -> if eq x y then 0 else 1) xs ys = 0
  