I forgot to replace f pad4=: 13 :'((0 ,"2 (0 ,"2~ 0 (,"2) 0 ,"1~ 0 ,"1 ])) y)(,"2) 0' pad4 i.3 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 0 0 4 5 6 7 0 0 8 9 10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 pad4 0 ,"2~ 0 (,"2) 0 ,"2~ 0 (,"2) 0 ,"1~ 0 ,"1 ]
Linda -----Original Message----- From: Programming <[email protected]> On Behalf Of Linda Alvord Sent: Saturday, May 4, 2019 10:58 AM To: [email protected] Subject: Re: [Jprogramming] ambivalent tacit verb with Self-Reference Also, pad4=: 13 :'((0 ,"2 f) y)(,"2) 0' pad4 i.3 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 3 0 0 4 5 6 7 0 0 8 9 10 11 0 0 0 0 0 0 0 0 0 0 0 0 0 pad4 0 ,"2~ 0 ,"2 f Linda -----Original Message----- From: Programming <[email protected]> On Behalf Of 'robert therriault' via Programming Sent: Friday, May 3, 2019 1:03 PM To: [email protected] Subject: Re: [Jprogramming] ambivalent tacit verb with Self-Reference Adding to Raul's solution, it can be simplified a little by removing the excess ]'s pad =: (1&$:) : ((0,.~0,.0,~0,]) ^:[ ) pad i. 3 4 0 0 0 0 0 0 0 0 1 2 3 0 0 4 5 6 7 0 0 8 9 10 11 0 0 0 0 0 0 0 > On May 3, 2019, at 9:37 AM, Raul Miller <[email protected]> wrote: > > pad =: (1&$:@]) : ((0,.~0,.0,~0,]) ^:[ ]) > > Thanks, > > -- > Raul > > On Fri, May 3, 2019 at 12:35 PM Brian Schott <[email protected]> wrote: >> >> How do I create the verb `pad` below so that the first and the last >> expressions below produce the same result? >> >> pad =: (1&$:@]) : (0,.~0,.0,~0,]) ^:[ ] >> $ 1 pad i. 3 4 >> 5 6 >> $ 2 pad i. 3 4 >> 7 8 >> $ pad i. 3 4 >> 3 4 25 26 >> >> >> -- >> (B=) >> --------------------------------------------------------------------- >> - For information about J forums see >> https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww. >> jsoftware.com%2Fforums.htm&data=02%7C01%7C%7Ce4b922e10e2e48bf5b07 >> 08d6cfe935c5%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C63692499787 >> 7372059&sdata=tRcMCpntLoWdNjErdTcWWncwB6cGgQ3lwGzdZjw779s%3D& >> reserved=0 > ---------------------------------------------------------------------- > For information about J forums see > https://nam02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.j > software.com%2Fforums.htm&data=02%7C01%7C%7Ce4b922e10e2e48bf5b0708 > d6cfe935c5%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C63692499787738 > 2046&sdata=Mwgi3ErNgv7jKwT6zF78S%2Fc4jeR7sCIQxI%2B9fWuX5IE%3D& > reserved=0 ---------------------------------------------------------------------- For information about J forums see https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C3b918e5a02724057ce7a08d6d0a0ddeb%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636925786662555424&sdata=gg3QQZ074PLPnjwNw0fe7DAprJ7giW%2BqZSUxT42vBvU%3D&reserved=0 ---------------------------------------------------------------------- For information about J forums see https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.jsoftware.com%2Fforums.htm&data=02%7C01%7C%7C3b918e5a02724057ce7a08d6d0a0ddeb%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636925786662555424&sdata=gg3QQZ074PLPnjwNw0fe7DAprJ7giW%2BqZSUxT42vBvU%3D&reserved=0 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
