Lines Matching refs:aux
62 let rec aux = function
65 | h :: tl -> h :: aux tl
67 aux nodes
70 let rec aux = function
73 | h :: tl -> h :: aux tl
75 aux nodes
80 let rec aux node =
84 List.iter aux tree
87 let rec aux node =
95 List.filter (fun n -> n.Node.value <> None || n.Node.children <> []) (List.map aux tree)
98 let rec aux accu node =
101 List.fold_left aux acc tree