Lines Matching refs:l
21 let filter_out filter l =
22 List.filter (fun x -> not (List.mem x filter)) l
24 let filter_in filter l =
25 List.filter (fun x -> List.mem x filter) l
27 let list_remove element l =
28 List.filter (fun e -> e != element) l
30 let list_tl_multi n l =
34 do_tl n l
38 let l = List.length path in
41 let x = List.rev (list_tl_multi (l - i) revpath) in
42 if i = l then [ x ] else x :: sub (i + 1)