chore(2018): convert to rescript syntax

Author: Rickard Natt och Dag

rescript/2018/src/utils/Levenshtein.re

@@ -0,0 +1,50 @@
+let length = s => Js.String.length(s)
+let minimum = (a, b, c) => min(a, min(b, c))
+
+/*
+ * Levenshtein distance
+ * Translated from OCaml example in Rosetta Code
+ * https://rosettacode.org/wiki/Levenshtein_distance#OCaml
+ * https://en.wikipedia.org/wiki/Levenshtein_distance
+ */
+let levenshtein = (s, t) => {
+  let first = String.length(s)
+  and second = String.length(t)
+  let matrix = Array.make_matrix(first + 1, second + 1, 0)
+
+  for i in 0 to first {
+    matrix[i][0] = i
+  }
+
+  for j in 0 to second {
+    matrix[0][j] = j
+  }
+
+  for j in 1 to second {
+    for i in 1 to first {
+      if String.get(s, i - 1) == String.get(t, j - 1) {
+        matrix[i][j] = matrix[i - 1][j - 1]
+      } else {
+        matrix[i][j] = minimum(matrix[i - 1][j] + 1, matrix[i][j - 1] + 1, matrix[i - 1][j - 1] + 1)
+      }
+    }
+  }
+
+  matrix[first][second]
+}
+
+let similarity = (s1, s2) => {
+  let (longer, shorter) = switch (s1, s2) {
+  | (first, second) when length(first) < length(second) => (second, first)
+  | (first, second) => (first, second)
+  }
+
+  let longerLength = length(longer)
+
+  switch longerLength {
+  | 0 => 1.0
+  | _ =>
+    (float_of_int(longerLength) -. float_of_int(levenshtein(longer, shorter))) /.
+      float_of_int(longerLength)
+  }
+}

rescript/2018/src/utils/Levenshtein.res

@@ -0,0 +1,23 @@
+let flatten = input => input->Belt.Array.reduce([], (acc, curr) => Belt.Array.concat(acc, curr))
+
+let parseNumber = v => Js.String.replaceByRe(%re("/\\+/g"), "", v)->int_of_string
+
+let removeDuplicates = row =>
+  row->Belt.Array.reduce([], (acc, curr) =>
+    Js.Array.includes(curr, acc) ? acc : Belt.Array.concat(acc, [curr])
+  )
+
+let sortFloats = ((_, _, a), (_, _, b)) => int_of_float(b *. 100.) - int_of_float(a *. 100.)
+
+let join = (arr, value) => Js.Array.joinWith(value, arr)
+
+let sortInPlaceWith = (arr, value) => Js.Array.sortInPlaceWith(value, arr)
+
+let rec range = (start: int, end_: int) =>
+  if start >= end_ {
+    list{}
+  } else {
+    list{start, ...range(start + 1, end_)}
+  }
+
+let dateAsInt = date => int_of_float(Js.Date.fromString(date) |> Js.Date.getTime)