Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let retourner_donnees (): smatchs_coupe_monde list =
- let li = SMatchsMap.bindings !m in
- let lp = uniques(map (fun (k,i) -> fst k) li) in
- map (fun p -> SMatchsMap.fold (fun _ i acc -> i::acc)
- (SMatchsMap.filter (fun (x,y) ind -> x = p) !m) []) lp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement