World: r3wp

a: [] time-it [repeat i length? block [insert tail a pick block i]]
;==> 0:00:00.651

REPEAT wins :)

anton, repeat can use block elements directly:

a: [] time-it [repeat b block [insert tail a b]]

what does that give?

>> a: [] time-it [repeat i length? block [append a pick block i]]
0:00:01.211413

>> a: [] time-it [parse block [any [pos: block! (insert tail a first 
pos)]]]
0:00:01.103395

>> a: [] time-it [repeat i length? block [insert tail a pick block 
i]]
0:00:00.80709

>> a: [] time-it [repeat i block [insert tail a i]]              
     
0:00:00.623597

Same results for a here, but also more limited:

>> time-it [a: load reform block]
0:00:00.765842
>> time-it [a: load form block]  
0:00:00.514864

>> time-it [a: load trim/with form block "[]"]     
0:00:00.637554
>> time-it [a: to block! trim/with form block "[]"]
0:00:00.588652

tm: func [p act [block!] /local t][t: now/time/precise loop p :act 
print now/time/precise - t]

flat-while: func[b][a: copy b while [not tail? a][a: change/part 
a a/1 1] a: head a]

flat-repeat: func[b][a: copy [] repeat i length? b [insert tail a 
pick b i] a]

flat-parse: func [b][a: copy [] parse b r: [any [ p: block! :p into 
r | skip (insert/only tail a first p)]]a]
flat-load: func[b][load form b]
b1: [[1 2 3 4 5][6 7 8 9 0]]
tm 10000 [flat-while b1]  ;== 0:00:00.062
tm 10000 [flat-repeat b1] ;== 0:00:00.063
tm 10000 [flat-parse b1]  ;== 0:00:00.172
tm 10000 [flat-load b1]   ;== 0:00:00.046

b2: head insert/dup copy [] [a b c d] 300
b3: head insert/dup copy [] b2 100

tm 1000 [flat-while b3]  ;== 0:03:03.985
tm 1000 [flat-repeat b3] ;== 0:02:11.125
tm 1000 [flat-parse b3]  ;== 0:02:43.704
tm 1000 [flat-load b3]   ;== 0:00:52.344

but I understand, that the parse can be much more faster if the block 
would hold other values as well, not just another blocks....

Anyway... I'm thinking, that maybe it would be good to find solution 
where I will not need nested block at all.

Hey, I'm playing around with the 'tiny web server' and it has this 
function.. 

send-page: func [data mime] [

        insert data rejoin ["HTTP/1.0 200 OK^/Content-type: " mime "^/^/"]
        write-io http-port data length? data
    ] 

now.. when i use it like this.. 
	send-page "test" mime
.. it works fine.. but not this.. 
	out: "test"
	send-page out mime

What's up wit 'dat?

:-) your SEND-PAGE is mutating the DATA argument, Terry. Avoid that 
if you don't want to encounter unexpected situations

Ladislav, explain mutate :-)

is this one of the fun things about ports?

explain unexpected situations ;)

I just don't get how it's even possible that   out: "test" .. somehow 
different that "test" ??

usually when you write:

    out: "test"
    send-page out mime


, you expect, that the OUT string remains to be "test", don't you?

yep

then don't change it

I don't want to change it.. it just doesn't work

OK, here is how:

send-page: func [data mime] [
    data: copy data

    insert data rejoin ["HTTP/1.0 200 OK^/Content-type: " mime "^/^/"]
    write-io http-port data length? data
]

oh yeah..

this way you can make sure that the original DATA argument remains 
unaffected

hmm, that doesn't work either

try 

insert copy data rejoin ..blah ...

:-) it does, you probably made more errors of this kind

or, even send-page copy data mime

rather than mutating, we say "altering" :)

actually it worked fine the original way.. problem was  i set the 
out: "test" within tiny server's try block

sorry, not try.. in it's ANY[] block

whatever

:-)

so.. any [ out: "test"    send-page out mime] 
well.. out: "test" is any, isn't it ;)

but thanks for the quick response

I like that ... have a  "whatever [ ..  ] "

yes, so send-page never gets executed

hehe

send-page also doesn't return anything

you probably meant 

all [ out: "test" blah .. ]

here's another question..

if you have a block like so.. 

aaa: [bbb[ccc "string"]]


do the 'words  take up memory?  is there a limit to the number of 
'words in a block?

length? first system/words
== 1245
   aaa: [bbb[ccc "string"]]
== [bbb [ccc "string"]]
   length? first system/words
== 1248


Max words is around 8192 (varies by version). Note that 1000 or so 
are taken up when you start.

hmm, so that's not very practical way of storing a large flat DB 
?

Ashley's rebdb is an in memory db

That's *unique* words, not total words used

You can have as many aaa's as you like in different contexts; it 
adds only 1 to system/words

yeah.. i just need a simple hash table

but i like the  aaa/bbb/ccc  path syntax

a dictionary , for example..   cat ["def of cat" ] dog ["def of dog"]
run out of words real quick

But you may need to use strings or some other form of identifier 
-- REBOL words are rationed.

yeah