26 lines
657 B
Plaintext
26 lines
657 B
Plaintext
(* Test set operations in CameLIGO *)
|
|
|
|
let literal_op (p: unit) : string set =
|
|
Set.literal ["foo"; "bar"; "foobar"]
|
|
|
|
let add_op (s : string set) : string set =
|
|
Set.add "foobar" s
|
|
|
|
let remove_op (s : string set) : string set =
|
|
Set.remove "foobar" s
|
|
|
|
let remove_deep (s : string set * nat) : string set =
|
|
Set.remove "foobar" s.0
|
|
|
|
(*
|
|
let patch_op (s: string set) : string set =
|
|
begin patch s with set ["foobar"]; end with s
|
|
|
|
let patch_op_deep (s: string set * nat) : string set * nat =
|
|
begin patch s.0 with set ["foobar"]; end with s
|
|
*)
|
|
|
|
let mem_op (s : string set) : bool = Set.mem "foobar" s
|
|
|
|
let size_op (s: string set) : nat = Set.cardinal s
|