Directly derived from your version:
q=: 3 : '(-/@:{~ 3r4 1r4 I.~ #\ % #) /:~y'
Didn’t test it, though.
Am 21.02.21 um 22:19 schrieb Emir U:
> q=: 3 : '-/(((1+ i. #y) % #y) I. 0.75 0.25) {/:~y'
--
----------------------
mail written using NEO
neo-layout.org
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
