deviousasti

let createComparer (map) = 
    {
        new EqualityComparer<_>() with
        override this.Equals(a, b) = Unchecked.equals (map a) (map b)
        override this.GetHashCode(a) = Unchecked.hash (map a)        
    }

module Seq = 
    let exceptWith map first second  =
        Enumerable.Except(first, second, createComparer map)

deviousasti

open SharedMemory
open MBrace.FsPickler

module Rpc =
    type RpcContext<'command, 'message> = 
        { name: string; buffer: RpcBuffer; post: 'command -> Async<'message>} with
        interface IDisposable with 
            member this.Dispose() = this.buffer.Dispose()

    let createHost name (handler : 'command -> Async<'message>) =

deviousasti

    - name: Add the CouchDB repository 
      apt_repository:
        repo: deb https://apache.bintray.com/couchdb-deb bionic main
        state: present
        update_cache: no        

    - name: Install the CouchDB repository key
      apt_key:
        keyserver: keyserver.ubuntu.com
        id: 8756C4F765C9AC3CB6B85D62379CE192D401AB61

deviousasti

// @mdl
let rec kahan_sum_aux (xs : float list) (sum : float) (c : float) =
  match xs with
  | [] -> sum
  | x::xs ->
  let y = x - c in
  let t = sum + y in
  let c = (t - sum) - y in
  kahan_sum_aux xs t c