Sha256: 380915c5278de0ffcdc405d988e0b1db6c8246a1cf7cf832530efe3e33bcfe5d
Contents?: true
Size: 325 Bytes
Versions: 98
Compression:
Stored size: 325 Bytes
Contents
(* Binary tree with leaves carrying an integer. *)
type tree = Leaf of int | Node of tree * tree
let rec exists_leaf test tree =
match tree with
| Leaf v -> test v
| Node (left, right) ->
exists_leaf test left
|| exists_leaf test right
let has_even_leaf tree =
exists_leaf (fun n -> n mod 2 = 0) tree
Version data entries
98 entries across 96 versions & 9 rubygems