Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
(* * Ptset: Sets of integers implemented as Patricia trees. * Copyright (C) 2000 Jean-Christophe FILLIATRE * * This software is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License version 2, as published by the Free Software Foundation. * * This software is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. * * See the GNU Library General Public License version 2 for more details * (enclosed in the file LGPL). *) (*i $Id: ptset.mli,v 1.7 2004/04/21 08:35:24 filliatr Exp $ i*) (*s Sets of integers implemented as Patricia trees. The following signature is exactly [Set.S with type elt = int], with the same specifications. This is a purely functional data-structure. The performances are always better than the standard library's module [Set], except for linear insertion (building a set by insertion of consecutive integers). *) type t type elt = int val empty : t val is_empty : t -> bool val mem : int -> t -> bool val add : int -> t -> t val singleton : int -> t val remove : int -> t -> t val union : t -> t -> t val subset : t -> t -> bool val inter : t -> t -> t val diff : t -> t -> t val equal : t -> t -> bool val compare : t -> t -> int val elements : t -> int list val choose : t -> int val cardinal : t -> int val iter : (int -> unit) -> t -> unit val fold : (int -> 'a -> 'a) -> t -> 'a -> 'a val for_all : (int -> bool) -> t -> bool val exists : (int -> bool) -> t -> bool val filter : (int -> bool) -> t -> t val partition : (int -> bool) -> t -> t * t val split : int -> t -> t * bool * t (*s Warning: [min_elt] and [max_elt] are linear w.r.t. the size of the set. In other words, [min_elt t] is barely more efficient than [fold min t (choose t)]. *) val min_elt : t -> int val max_elt : t -> int (*s Additional functions not appearing in the signature [Set.S] from ocaml standard library. *) (* [intersect u v] determines if sets [u] and [v] have a non-empty intersection. *) val intersect : t -> t -> bool