Data commit

Task/Averages-Mode/Frink/averages-mode-1.frink

@@ -0,0 +1,17 @@
+modes[vals] :=
+{
+   count = countToArray[vals]
+   biggest = count@0@1
+   result = new array
+
+   for i = rangeOf[count]
+      if count@i@1 < biggest
+         break  // count is sorted so we can bail out when numbers decrease
+      else
+         result.push[count@i@0]
+
+   return result
+}
+
+println[modes[[1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17]]]
+println[modes[[1, 1, 2, 4, 4]]]

Task/Averages-Mode/Frink/averages-mode-2.frink

@@ -0,0 +1 @@
+modes[vals] := mostCommon[vals]@0