World: r3wp
[!REBOL3]
older newer | first last |
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. |
older newer | first last |