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

World: r3wp

[Core] Discuss core issues

Graham
15-May-2010
[16602]
sure ...
amacleod
15-May-2010
[16603]
I tried using an html doc as the message but it just displayed the 
code
Graham
15-May-2010
[16604]
You probably need a custom header
Gabriele
16-May-2010
[16605x2]
you need to specify Content-Type: "text/html"
(and, for compatibility with all clients, MIME-Version: "1.0")
Henrik
16-May-2010
[16607]
are there any docs or howtos available for async-http.r?
Graham
16-May-2010
[16608]
Which async?
Henrik
16-May-2010
[16609x3]
http://www.colellachiara.com/soft/Libs/async-http.r
but if you say that, is there a newer one? this one hangs in OSX.
when closing the port, at least.
Graham
16-May-2010
[16612]
Use Romano's actp
Henrik
16-May-2010
[16613]
I was hoping not having to deal with the TCP layer.
Graham
16-May-2010
[16614]
Ive never used the async http ...
Henrik
16-May-2010
[16615]
well, there are no docs for async-http.r so I can't tell at all how 
to use it and atcp-protocol.r is too low level. I'll have to rely 
on synced http.
Graham
16-May-2010
[16616]
I would assume that if Gab wrote it will be similar to the R3 http
Henrik
16-May-2010
[16617]
odd bug: R2 sometimes just quits when using trace/function
Terry
16-May-2010
[16618x4]
Q: Can i use select/any against pairs! in a hash! ? Example?
ie: i'd like to select 432x984 using *x984
or decimals?
I'm looking for a delmiter in hash keys to separate two integers 
that i can perform a select/any on
Gregg
17-May-2010
[16622x2]
I've never tried, but I imagine you would have to form them for /any 
to work.
It should be easy to test though.
Terry
17-May-2010
[16624]
How about this one.. 
Determine the first decimal place of  decimal
dec: 209.648
and I want to return the 6
Graham
17-May-2010
[16625]
to-integer multiply dec - to-integer dec 10
Terry
17-May-2010
[16626]
hmm, smart
Sunanda
17-May-2010
[16627]
Or using strings:
     to-integer form first next find form dec "."
    == 6
Graham
17-May-2010
[16628]
interesting to benchmark but I suggested a math solution as normally 
math is faster than anything else
Terry
17-May-2010
[16629]
ok, one last one for my rusty rebol

FINDing the index of all occurences of an integer in a series ie:
blk: [ 239 4545 23 655 23 656[
search for 23 and return [3 5]

(not using foreach)
Graham
17-May-2010
[16630]
use parse
Terry
17-May-2010
[16631x3]
first one is result: find blk 23  .. but how to quickly find the 
rest
foreach is way too slow on blocks with large amounts of data
err:  index? find blk 23
and my gut says parse is worse than foreach, no?
Graham
17-May-2010
[16634]
what's your gut got to do with it?
Ladislav
17-May-2010
[16635]
hmm, interesting, I am quite curious, which approach would be the 
fastest one
Terry
17-May-2010
[16636]
FIND, SELECT and PICK are blazing.. foreach is a game killer. Need 
to work out a way to FIND all values
Pekr
17-May-2010
[16637]
Hmm, too long :-)

to-integer to-string first second parse to-string 123.456 "."
Sunanda
17-May-2010
[16638]
You could tweak something like this:
    res: make block length? blk
    while [ind: find blk 23]
         [print blk append res index? ind blk: skip blk last res]
    blk: head blk
    probe res


But remember the first rule of REBOL Code Golf: parse always wins.....We're 
now just waiting for a parse guru to show us how :)
Graham
17-May-2010
[16639]
Ladislav is working on it now :)
Terry
17-May-2010
[16640]
This is the last piece to my Redis killer
Pekr
17-May-2010
[16641x2]
parse blk [some [s: set value integer! (if value = 23 [print index? 
s])]]
not sure my version will be the smartest solution, but you can try 
how fast it is :-)
Ladislav
17-May-2010
[16643x2]
indices?-1: func [
	series [series!]
	value
	/local result
] [
	result: make series 0
	while [series: find series value] [
		append result index? series
		series: next series
	]
	result
]

indices?-2: func [
	series [series!]
	value
	/local result
] [
	result: make series 0
	parse series [

  any [1 1 value series: (append result subtract index? series 1) | 
  skip]
	]
	result
]
>> time-block [indices?-1 blk 23] 0,05
== 0.000006591796875

>> time-block [indices?-2 blk 23] 0,05
== 0.000005645751953125
(in R3)
Pekr
17-May-2010
[16645]
Could you rewrite my example as indices-3? :-)
Terry
17-May-2010
[16646]
How about Rebol 2 version?
Graham
17-May-2010
[16647x2]
pekr, your example will be slower
since your comparison is occuring in a mezzainine
Pekr
17-May-2010
[16649]
what mezzanine?
Terry
17-May-2010
[16650]
Lad, it works in R2 as well.
Graham
17-May-2010
[16651]
if value = 23