Thinking in an array language(github.com)

   a:100 0N#?10000    / 100x100 double matrix
   \t:1000 a(+/*)\:a  / Total of 1k runs in ms
  1514

  #include <stdio.h>
  #include <time.h>
  size_t monoclock(void) {
    struct timespec ts;
    clock_gettime(CLOCK_MONOTONIC, &ts);
    return 1000000000*ts.tv_sec + ts.tv_nsec;
  }
  
  int main() {
    const size_t n = 100;
    double a[n][n], r[n][n];
    size_t t = monoclock();
    for (size_t iter=0; iter<1000; iter++) {
      for (size_t i=0; i<n; i++) {
        for (size_t j=0; j<n; j++) {
          double sum = 0;
          for (size_t k=0; k<n; k++) sum += a[i][k]*a[k][j];
          r[i][j] = sum;
        }
      }
    }
    printf("%lld\n", (monoclock() - t)/1000000);
  }

  matmul: (+/*)\:

    SELECT stock, SUM(amount) AS total FROM trade GROUP BY stock

    q)select total:sum amt by stock from trade