TimeSpaceX wrapper for J

ts.md

Defined like so

ts =: {{
    echo < 'timespacex * ', ": x
    result =. x&{{ y ; (8!:0) (x, 1) * x timespacex y }}@> cutopen y
    echo ,. ('expr';'time';'space') , result
}}

Run like so

a =: i. 4 4
1e6 ts '(<0 1) |: |. a';'(i. - # a)} a' 

Outputs like so

┌────────────────────┐
│timespacex * 1000000│
└────────────────────┘
┌──────────────┬────────┬─────┐
│expr          │time    │space│
├──────────────┼────────┼─────┤
│(<0 1) |: |. a│0.577596│1856 │
├──────────────┼────────┼─────┤
│(i. - # a)} a │0.446183│1536 │
└──────────────┴────────┴─────┘