Data commit

Task/Rate-counter/Jsish/rate-counter.jsish

@@ -0,0 +1,20 @@
+#!/usr/bin/env jsish
+"use strict";
+/* Rate counter, timer access, in Jsish */
+
+/* System time in milliseconds */
+var runs = 0, newMs;
+function countJobsIsTheJob() { runs += 1; }
+var milliSeconds = strptime();
+while ((newMs = strptime()) < (milliSeconds + 1000)) { countJobsIsTheJob(); }
+puts(runs, 'runs in', newMs - milliSeconds, 'ms');
+
+
+/* Builtin times test(callback, runs), result in microseconds */
+function sleeper() { sleep(10); }
+
+var timer;
+for (var i = 1; i < 4; i++) {
+    timer = times(sleeper, 100);
+    puts(timer, 'μs to sleep 10 ms, 100 times');
+}