World: r3wp
[Core] Discuss core issues
older newer | first last |
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 |
older newer | first last |