tacit version from jpp,
https://github.com/Pascal-J/jpp +: ` -: ` *: cc:: @ +:@-:@*: or +: , ] `+/ % # C:: @ (+: , ])@(+/ % #) '+: , ] ` + / % #' gg cc '@' 1 2 3 4 2 underlying code is pretty short though, (except for aar dependencies) strinsert =: 1 : ' [ , u , ]' eval =: 1 : ' a: 1 : m' isNoun =: (0 = 4!:0 ::0:)@:< aar =: 1 : 'if. isNoun ''u'' do. q =. m eval else. q =. u end. 5!:1 < ''q'' ' cc =: 2 : 'm`(v aar)@.(_1 strinsert/ i.#m)' ________________________________ From: Raul Miller <rauldmil...@gmail.com> To: Programming forum <programm...@jsoftware.com> Sent: Sunday, September 24, 2017 10:56 PM Subject: Re: [Jprogramming] Gerund composed application Ah, sorry, I had not read your original post close enough. That's a bad habit, and I need to do better on reading other people's concepts. That said, I can offer some variants on Jose's approach: at=:4 :0 x`:6@:(y`:6)`'' ) Example use: at/(]`{.`{:`{:) Or, equivalently: at=: (<'@:') ,@<@, <@, Thanks, -- Raul On Sun, Sep 24, 2017 at 2:35 PM, Rob Moore <robmoore...@gmail.com> wrote: > Thanks for replying Raul, your solutions weren't what I was looking for, > but I understand the confusion from my first explanation. > > Jose your first solution worked perfectly, thanks very much! The other two > solutions you gave caused syntax errors for me, must be different versions, > I'm on 604. > > What did you mean by compliant and non-compliant in your comments? > > Thanks, > > Rob > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
