diff --git a/dec2.ml b/dec2.ml new file mode 100644 index 0000000..00baf2e --- /dev/null +++ b/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" diff --git a/dec2_dummy_input b/dec2_dummy_input new file mode 100644 index 0000000..15c2e73 --- /dev/null +++ b/dec2_dummy_input @@ -0,0 +1,3 @@ +5 1 9 5 +7 5 3 +2 4 6 8 diff --git a/dec2_input b/dec2_input new file mode 100644 index 0000000..ce0b753 --- /dev/null +++ b/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