Add records benchmarks

bench/records/countLetters.ncl

@@ -0,0 +1,9 @@
+{
+  run = fun s =>
+    let updateDict = fun dict char =>
+      if records.hasField dict char then
+        dict -$ char & {"#{char}" = dict."#{char}" + 1}
+      else
+        dict & {"#{char}" = 1} in
+    list.foldl updateDict {} (strings.chars s)
+}

bench/records/merge.ncl

@@ -0,0 +1,19 @@
+{
+  run = fun n m =>
+    let prefix = fun n =>
+      let l = lists.generate (fun _n => "a") n in
+      lists.foldl (fun x y => x ++ y) "" l in
+    let makeRecStep = fun state k =>
+      let name = state.prevName ++ (strings.fromNum k) in
+      {
+        value = state.value & {"#{name}" = {}},
+        prevName = name,
+      } in
+    let topList = lists.generate builtins.id m in
+    let makeRec = fun m =>
+      let l = lists.generate builtins.id n in
+      let result = lists.foldl makeRecStep {value = {}, prevName = prefix m} l in
+      result.value in
+    let l = lists.map makeRec topList in
+    lists.foldl (fun r1 r2 => r1 & r2) {} l
+}