Data commit

Task/Associative-array-Iteration/OCaml/associative-array-iteration-1.ocaml

@@ -0,0 +1,15 @@
+#!/usr/bin/env ocaml
+
+let map = [| ('A', 1); ('B', 2); ('C', 3) |] ;;
+
+(* iterate over pairs *)
+Array.iter (fun (k,v) -> Printf.printf "key: %c - value: %d\n" k v) map ;;
+
+(* iterate over keys *)
+Array.iter (fun (k,_) -> Printf.printf "key: %c\n" k) map ;;
+
+(* iterate over values *)
+Array.iter (fun (_,v) -> Printf.printf "value: %d\n" v) map ;;
+
+(* in functional programming it is often more useful to fold over the elements *)
+Array.fold_left (fun acc (k,v) -> acc ^ Printf.sprintf "key: %c - value: %d\n" k v) "Elements:\n" map ;;

Task/Associative-array-Iteration/OCaml/associative-array-iteration-2.ocaml

@@ -0,0 +1,10 @@
+let map = Hashtbl.create 42;;
+Hashtbl.add map 'A' 1;;
+Hashtbl.add map 'B' 2;;
+Hashtbl.add map 'C' 3;;
+
+(* iterate over pairs *)
+Hashtbl.iter (fun k v -> Printf.printf "key: %c - value: %d\n" k v) map ;;
+
+(* in functional programming it is often more useful to fold over the elements *)
+Hashtbl.fold (fun k v acc -> acc ^ Printf.sprintf "key: %c - value: %d\n" k v) map "Elements:\n" ;;

Task/Associative-array-Iteration/OCaml/associative-array-iteration-3.ocaml

@@ -0,0 +1,11 @@
+module CharMap = Map.Make (Char);;
+let map = CharMap.empty;;
+let map = CharMap.add 'A' 1 map;;
+let map = CharMap.add 'B' 2 map;;
+let map = CharMap.add 'C' 3 map;;
+
+(* iterate over pairs *)
+CharMap.iter (fun k v -> Printf.printf "key: %c - value: %d\n" k v) map ;;
+
+(* in functional programming it is often more useful to fold over the elements *)
+CharMap.fold (fun k v acc -> acc ^ Printf.sprintf "key: %c - value: %d\n" k v) map "Elements:\n" ;;