How is it possible to output G without inlined array? The same question is for boxed view: 5!:2<'F' - it does not possible to read, because it looks like ----------------... | ||_2147483648 197014786 890854407 1006423136 1685034722 1956788740 2040340624 2099004718 2108694720 2121608906 2123216303 2123418208 2124269825 2124437712 212 5836382|+-+-+|+----------------------------------------------------------------- ----------------...
Thank you, On Wed, Dec 14, 2011 at 5:04 PM, Aai <[email protected]> wrote: > Using Raul's G total timing becomes > > ts 'P=.task 0' > 5.68436 1.17707e8 > P-:Q > 1 > > FYI > > > > On 14-12-11 15:39, I wrote: >> Here's a first speedup: >> >> ( thanks Dan: (OLD&=)`(,:&NEW) } ) >> >> timing of your program: >> >> ts 'Q=.AE 0' >> 30.4894 1.05856e8 >> >> >> speedup by converter makeNum >> >> >> ts 'P=.task 0' >> 5.79403 1.17706e8 >> >> P-:Q >> 1 >> >> makeNum=: 256 #. 128 0 0 0 -"1~ [: ". =&'.'`(,:&' ')} >> >> task=: 3 :0 >> IP=. }:;._2 (1!:1<fips) >> IPR=. }:;._2 (1!:1< fiprs) >> ips=. makeNum IP >> 'a b c'=. |: ;:"1 IPR >> a =. makeNum a >> c =. makeNum c >> 'l r'=._1 0+ (/:{."1)&. |:a,:c >> m =. (pip'0.0.0.0'),(1+>./ @: {.&r)"0 (1+i.#l) >> f =. < m {~ I.~&l >> f"1 ips >> ) >> >> =============== >> Your program >> =============== >> pip =: (256 #. (-&128 @: {.) , }.) @: (".;._2@:,&'.') >> >> AE=: 3 :0 >> ips =. pip"1 (_1&}.;._2 (1!:1<fips)) >> iprs =. |:pip;._1 "1 (','&,)"1 (_1&}.;._2 (1!:1<fiprs)) >> i =. /:{.iprs >> l =. _1+ i{{.iprs >> r =. i{{:iprs >> m =. (pip'0.0.0.0'),(1+>./ @: {.&r)"0 (1+i.#l) >> NB. m =: __,(1+>./ @: {.&r)"0 (1+i.#l) >> f =. < m {~ I.~&l >> f"1 ips >> ) >> > > -- > Met vriendelijke groet, > @@i = Arie Groeneveld > > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm -- Regards, Alexander. ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
