Maybe it's by coincidence but if I do not correct the ip MSD (makeNum)
then the output is the same.
ts 'P2=. task2 0'
5.61973 1.17707e8
Q-:P2
1
makeNum2=: 256 #. [: ". =&'.'`(,:&' ')}
task2=: 3 :0
IP=. }:;._2 (1!:1<fips)
IPR=. }:;._2 (1!:1< fiprs)
ips=: makeNum2 IP
'a b c'=. |: ;:"1 IPR
'l r'=:(/:{."1)&. |:a ,:&makeNum2 c
m =: 0,(1+>./ @: {.&r)"0 (1+i.#l)
G=: 2 | (,(~.}.m) ,.~ (}.m) {./. l) I. ]
G ips
)
On 14-12-11 17:41, I wrote:
> To be clear, I made a total task of all the actions to see what the
> time consuming part was. That happened to be (of course) the
> converting part. So I made a faster converter.
>
> What exactly do you want as output?
>
> Do you want something like
> (#~G )ips
> 1590633180 365671447 69450821 _1260155495 _867958750 574796455
> 329735247 ....
>
> selecting where G has a one?
>
> So in the meantime reading/converting and verb f are optimized.
>
>
>
> On 14-12-11 17:10, Alexander Epifanov 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
>>
>>
>
--
Met vriendelijke groet,
@@i = Arie Groeneveld
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
