Yaron Minsky

@yminsky.bsky.social

1797 Followers 290 Following

Occasional OCaml programmer. Host of Signals and Threads http://signalsandthreads.com

open Base module String_list = struct type t = string list [@@deriving sexp, compare] include functor Comparable.Make end let s = Set.of_list (module String_list) [ [ "foo"; "bar" ]; [ "snoo" ] ]
open Base let s = Set.of_list (module String) [ "foo"; "bar"; "baz" ]
open Base module Tuple = struct module T = struct type t = int * string [@@deriving compare, sexp] end include T include Comparable.Make (T) end let set = Set.singleton (module Tuple) (3, "foo")