2006-07-17 07:05:28 -07:00
|
|
|
type t = A of t | B ;;
|
|
|
|
|
let f = function A A B -> B | B | A B | A (A _) -> B ;;
|
2006-07-25 06:53:30 -07:00
|
|
|
|
|
|
|
|
exception True
|
|
|
|
|
let qexists f q =
|
|
|
|
|
try
|
|
|
|
|
Queue.iter (fun v -> if f v then raise True) q;
|
|
|
|
|
false
|
|
|
|
|
with True -> true
|
2006-07-26 04:58:05 -07:00
|
|
|
|
|
|
|
|
type u = True | False
|
|
|
|
|
let g x = function | True -> () | False -> ()
|
|
|
|
|
|
|
|
|
|
type v = [`True | `False]
|
|
|
|
|
let h x = function | `True -> () | `False -> ()
|
