r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[!REBOL3]

BrianH
5-May-2010
[2782x5]
Same with TO-INTEGER binary! - network order.
How about this: convert [to: integer! bytes: 4 order: little] #{12345678}
The advantage to having a spec block is that you can return it from 
a function; you can't do that with refinements.
And you could convert to objects from a spec block too:

>> convert [to object [a [integer! bits 3] b [integer! bits 5]]] 
#{ff}
== make object! [a: 7 b: 31]
The to keyword is likely unnecessary. We could likely get away with 
a DELECT-style dialect.
PeterWood
5-May-2010
[2787]
Steeve: Missing 'forall for gobs - you just need to point a word 
at the pane block - it shouldn't be too "expensive" as it is only 
a reference not a copy:

 >> gobs: d/pane
>> forall gobs [probe first gobs]

make gob! [offset: 0x0 size: 100x100 alpha: 0 text: "gob a"]

make gob! [offset: 0x0 size: 100x100 alpha: 0 text: "gob b"]

make gob! [offset: 0x0 size: 100x100 alpha: 0 text: "gob c"]
BrianH
5-May-2010
[2788x2]
It is a copy, not a reference. The original pane is not a block, 
it is an internal array.
However, the gob references in the /pane block are references.
PeterWood
5-May-2010
[2790]
Thanks for the clarification. I should have tried same? first:
>> same? d/pane gobs              

== false
BrianH
5-May-2010
[2791]
A good way to combine the "convert to block and assign to a word 
and then use FORALL" is to use REPEAT:
    repeat gobs d/pane [probe first gobs]
PeterWood
5-May-2010
[2792]
There doesn't seem much to chose between foreach and forall in terms 
of speed:

>> dt [loop 100000 [foreach gob d/pane [x: gob]]] 

== 0:00:00.125035

>> dt [loop 100000 [gobs: d/pane forall gobs [x: first gobs]]] 

== 0:00:00.133837


Using a do-it-yourself repeat loop courtesy of Rebolek  seems a little, 
but not much faster :

>> dt [loop 100000 [repeat i length? d[x: d/:i]]] 
== 0:00:00.115478
BrianH
5-May-2010
[2793x2]
FOREACH has BIND/copy overhead of its code block, not slower speed.
REPEAT has the same BIND/copy overhead, but REPEAT w number! has 
less work to do, so it's faster. I wouldn't be surprised if REPEAT 
w series! is comparable to FORALL.
PeterWood
5-May-2010
[2795]
Repeat with series! seems a little slower than forall and foreach:

>> dt [loop 100000 [repeat gobs d/pane [x: first gobs]]]

== 0:00:00.175092
BrianH
5-May-2010
[2796x2]
I can understand your REPEAT code being slower than FOREACH: You 
put an extra FIRST in the code block, so the code isn't comparable 
in speed. Compared to FORALL, there's the added BIND/copy overhead.
Try comparing without the FIRST, just put x: gobs in there, or better 
yet leave the code block empty.
PeterWood
5-May-2010
[2798x2]
I simply modified your code ... without thinking :-)
.. and it does seem equivalent to the forall example above.
BrianH
5-May-2010
[2800x3]
>> dt [loop 100000 [repeat x [1 2 3 4] []]]
== 0:00:00.062792
>> dt [loop 100000 [repeat x 4 []]]
== 0:00:00.060991
>> dt [loop 100000 [foreach x [1 2 3 4] []]]
== 0:00:00.064321
>> dt [loop 100000 [x: [1 2 3 4] forall x []]]
== 0:00:00.026746

Gotta love that BIND/copy overhead :(
>> dt [loop 100000 [x: [1 2 3 4] forskip x 1 []]]
== 0:00:00.031414
>> dt [loop 100000 [loop 4 []]]
== 0:00:00.019578
>> dt [loop 100000 [x: 4 while [0 > -- x] []]]
== 0:00:00.043203
PeterWood
5-May-2010
[2803]
I am trying to understand why the forall gob example isn't faster 
than the foreach example:


>> dt [loop 100000 [foreach gob d/pane [x: gob]]]                
    

== 0:00:00.123409


>> dt [loop 100000 [gobs: d/pane forall gobs [x: first gobs]]]   
    
== 0:00:00.129035
BrianH
5-May-2010
[2804]
It's the FIRST you added to the code - it makes the code slower.
PeterWood
5-May-2010
[2805]
But the first is needed for the code to be equivalent isn't it?
BrianH
5-May-2010
[2806x2]
You aren't testing code equivalence. FORALL is used in different 
circumstances than FOREACH. If the code is huge it adds to the BIND/copy 
overhead. If you have to use FIRST all the time it slows down FORALL 
because you're not using the right function.
The functions aren't equivalent, so whichever is faster depends on 
the needs of your code and data.
PeterWood
5-May-2010
[2808]
I am trying to find which is the faster way to iterate through the 
sub-gobs! that are contained within a gob!. I am not trying to compare 
the speed of the basic looping functions.
BrianH
5-May-2010
[2809x3]
Of course this is all for R3. For R2, FORALL, FORSKIP and FOR are 
mezzanine, so they're a *lot* slower. The proposed FOREACH enhancement 
for 2.7.8 should allow it to be used instead of FORALL and FORSKIP.
In that case, I'd go with FOREACH if you expect to have a lot of 
subgobs and you aren't doing much to them, or with FORALL if you 
have a lot of code in the code block, but not a huge number of subgobs 
in a given gob.
So far I haven't seen a gob with enough subgobs to make FOREACH the 
right choice. I'd go with FORALL.
Steeve
6-May-2010
[2812]
btw, in R3, gobs/1 is a little faster than [first gobs] IIRC
BrianH
6-May-2010
[2813]
To answer your question, Pekr, R3 alpha 98 has been released! http://www.rebol.com/r3/downloads.html
Pekr
6-May-2010
[2814x2]
hmm, 395 KB, so GUI-less release. Preparation for View externalisation 
:-)
I start the countdown, for new tickets in CC - "Demo does not work 
in A98 anymore" :-)
BrianH
6-May-2010
[2816x2]
Going through the tickets now, two were not fixed due to a misunderstanding, 
many more test perfectly, including one dismissed years ago.
Have some display bugs though that need more testing, and a weird 
new bug in HELP.
Pekr
6-May-2010
[2818]
Simple parsing does not work for large gatasets
 bug fixed. Nice - http://curecode.org/rebol3/ticket.rsp?id=1480
BrianH
6-May-2010
[2819]
And Carl's mods to the tests for that were nice too. Also, take a 
look at #1452 - note the limitations.
Pekr
6-May-2010
[2820]
what limitations?
BrianH
6-May-2010
[2821x2]
I wrote them in a comment. You can only insert/append blocks containing 
values of these types: binary!, string!, char!, and integers from 
0 to 255 which are inserted as bytes. Anything else will need explicit 
conversion.
Note: No compressed modules yet. They'll get in as part of the mezzanine 
review.
Pekr
6-May-2010
[2823]
ah, ok (re limitiation), I just tried joining two binaries and it 
worked. Did not try with integer value ...
BrianH
6-May-2010
[2824]
I tried everything I could :)
Pekr
6-May-2010
[2825]
I can see those protect/uprotect/hide bugs mentioned in various tickest. 
Aren't those blocking us? Maybe you should push their priority?
BrianH
6-May-2010
[2826]
They are blocking us, but not as badly as the a98-derived host kit 
is. I would like more feedback on the security model they propose.
Pekr
6-May-2010
[2827]
BrianH: can you sum-up, what works in A98, re Extensions/Host Kit? 
What things are still missing? Any docs anywhere?
BrianH
6-May-2010
[2828x2]
No, I haven't tested them yet, because there aren't enough docs yet. 
I was only able to test core stuff.
Came up with a proposal for the binary conversions - take a look: 
http://www.rebol.net/cgi-bin/r3blog.r?view=0317#comments
Graham
6-May-2010
[2830]
Let me guess .. none of the network protocols have been added ...
BrianH
6-May-2010
[2831]
Almost none of the mezzanine fixes either - this was a release with 
native focus.