Hey Skip,
A couple of different options (all dyadic verbs with arguments of 100 and 900)
100 ((+ i.) #~ (5 = +/"1)@:(10 #.^:_1 (+ i.))) 900 NB. pretty much
a transcription without the assignment
104 113 122 131 140 203 212 221 230 302 311 320 401 410 500
100 (#~ (5 = +/"1)@:(10 #.^:_1 ]))@:(+ i.) 900 NB. Eliminate
redundant (+ i.) by making into consecutive hooks
104 113 122 131 140 203 212 221 230 302 311 320 401 410 500
100 (#~ (5 = +/"1) @:(10&#.^:_1))@:(+ i.) 900 NB. Convert (10
#.^:_1 ]) fork into single verb (10&#.^:_1)
Cheers, bob
> On Jan 15, 2019, at 11:12 PM, 'Skip Cave' via Programming
> <[email protected]> wrote:
>
> a#~5=+/"1]10#.^:_1 a=:100+i.900
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
