2nd of december!

dec2.ml

@@ -0,0 +1,46 @@
+(*The spreadsheet consists of rows of apparently-random numbers.*)
+(*To make sure the recovery process is on the right track, they*)
+(*need you to calculate the spreadsheet's checksum. For each*)
+(*row, determine the difference between the largest value and*)
+(*the smallest value; the checksum is the sum of all of these*)
+(*differences.*)
+
+(*For example, given the following spreadsheet:*)
+
+(*5 1 9 5*)
+(*7 5 3*)
+(*2 4 6 8*)
+
+    (*The first row's largest and smallest values are 9 and 1, and their*)
+    (*difference is 8.*)
+    (*The second row's largest and smallest values are 7 and 3, and their*)
+    (*difference is 4.*)
+    (*The third row's difference is 6.*)
+
+open Core
+open Batteries
+
+let open_file (filename : string) =
+    File.lines_of filename
+
+let get_max_min_diff lst =
+    (List.max lst) - (List.min lst)
+
+let parse_line line =
+    let
+        split = String.split_on_char '\t'
+    in
+        split line
+        |> List.map int_of_string
+        |> get_max_min_diff
+
+let parse_input input =
+    Enum.map parse_line input
+    |> Enum.sum
+
+
+let () =
+    "dec2_input"
+    |> open_file
+    |> parse_input
+    |> printf "%d"

dec2_dummy_input

@@ -0,0 +1,3 @@
+5	1	9	5
+7	5	3
+2	4	6	8

dec2_input

@@ -0,0 +1,16 @@
+6046	6349	208	276	4643	1085	1539	4986	7006	5374	252	4751	226	6757	7495	2923
+1432	1538	1761	1658	104	826	806	109	939	886	1497	280	1412	127	1651	156
+244	1048	133	232	226	1072	883	1045	1130	252	1038	1022	471	70	1222	957
+87	172	93	73	67	192	249	239	155	23	189	106	55	174	181	116
+5871	204	6466	6437	5716	232	1513	7079	6140	268	350	6264	6420	3904	272	5565
+1093	838	90	1447	1224	744	1551	59	328	1575	1544	1360	71	1583	75	370
+213	166	7601	6261	247	210	4809	6201	6690	6816	7776	2522	5618	580	2236	3598
+92	168	96	132	196	157	116	94	253	128	60	167	192	156	76	148
+187	111	141	143	45	132	140	402	134	227	342	276	449	148	170	348
+1894	1298	1531	1354	1801	974	85	93	1712	130	1705	110	314	107	449	350
+1662	1529	784	1704	1187	83	422	146	147	1869	1941	110	525	1293	158	1752
+162	1135	3278	1149	3546	3686	182	149	119	1755	3656	2126	244	3347	157	865
+2049	6396	4111	6702	251	669	1491	245	210	4314	6265	694	5131	228	6195	6090
+458	448	324	235	69	79	94	78	515	68	380	64	440	508	503	452
+198	216	5700	4212	2370	143	5140	190	4934	539	5054	3707	6121	5211	549	2790
+3021	3407	218	1043	449	214	1594	3244	3097	286	114	223	1214	3102	257	3345