My previous message had lines folded together by my mail client. I have edited a quoted version of the message, here, to attempt to show what I was trying to post.
On Wed, Dec 14, 2011 at 12:32 PM, Raul Miller <[email protected]> wrote: > Are you looking for this? > > 9!:3]5 > > G > 2 | _2146903306 197014786 _2146089989 890854407 _2145163328 > 1006423136 _2140450755 1685034722 _2137957235 1956788740 _2077838899 > 2040340624 _1950448733 2099004718 _1858057331 2108694720 _1052925877 > 2121608906 _437885739 2123216303 323414035 2123418208 527823496 > 2124269825 561967126 2124437712 1000970357 2125836382 I. ] > > But the inlined array is a part of G's definition. Are you looking > for a definition which does not inline the array? [warning: I have > not tested the following code] > > Gdata=: ,(~.}.m) ,.~ (}.m) {./. l > Gproc=: 2 | ". bind 'Gdata' I. ] > > or > > Gdata=: ,(~.}.m) ,.~ (}.m) {./. l > G2=: 2 | I. > Gdata G2 ips > > Or are you looking for something else? > > -- > Raul > On Wed, Dec 14, 2011 at 11:10 AM, Alexander Epifanov <[email protected]> > wrote: >> 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 ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
