World: r3wp
[All] except covered in other channels
older newer | first last |
Pekr 27-Feb-2005 [1413] | hmm, block of blocks? |
[unknown: 5] 27-Feb-2005 [1414] | I guess you want an output that shows a text-list with the hostname joined to the port? |
Pekr 27-Feb-2005 [1415] | d: [[1.2.3.4 1080] [3.54.6.4 1039] [43.5.4.3 3380] ] |
[unknown: 5] 27-Feb-2005 [1416] | >> d: ["1.2.3.4:1080" "3.54.6.4:1039" "43.5.4.3:3380"] == ["1.2.3.4:1080" "3.54.6.4:1039" "43.5.4.3:3380"] >> view layout [text-list data d] |
Micha 28-Feb-2005 [1417x3] | <td>4.27.151.216</td><td>15551</td |
how do from this to read address ip ? | |
for help parse . | |
Sunanda 28-Feb-2005 [1420] | read join http:// second load/markup "<td>4.27.151.216</td><td>15551</td" |
Micha 28-Feb-2005 [1421x6] | ok |
digit: charset [#"0" - #"9"] letter: charset [#"a" - #"z" #"A" - #"Z"] char: charset ["/<>^/ :" #"a" - #"z" #"A" - #"Z"] | |
s: "testse193.194.70.123 1080iiyyyuiyiy 234.221.23.5:3380<td>24.91.92.247</td><td>18844</td>" | |
parse/all s [some [start: digit 3 [number "."] number x: 1 10 char y: 1 5 digit end: ( probe reduce [ copy/part start x copy/part y end]) | skip ]] | |
["193.194.70.123" "1080"] ["234.221.23.5" "3380"] ["24.91.92.247" "18844"] | |
this was can facilitate ? | |
DideC 28-Feb-2005 [1427] | Question: what day is the "easter day" ? sunday or monday ? |
yeksoon 28-Feb-2005 [1428x2] | Easter.. >>my limited knowledge<<... alwasy falls on Sunday |
or is this supposed to be a 'trick' question that I am slow to catch? | |
DideC 28-Feb-2005 [1430] | In France easter is sunday, but the monday is not worked. So we have easter day ans easter monday. I wonder how it's "said" in english. |
yeksoon 28-Feb-2005 [1431] | I am not a Christian. But, given that Easter always falls on a Sunday, there should not be an 'Easter Monday'. Holiday 'in lieu' for Easter may be something that is technically correct. |
Anton 28-Feb-2005 [1432] | Micha, can be useful: non-digit: complement digit |
Micha 28-Feb-2005 [1433x2] | ok |
how to alter the speed of reproduction the sound of file *.wav ? | |
Tomc 28-Feb-2005 [1435x6] | Easter falls on the first sunday after a certain full moon, if I recall |
most likely the third fullmoon of the year but there is a more complicated way of knowing .... | |
>> x: now/year == 2005 >> x // 19 == 10 >> a: x // 19 == 10 >> b: x / 100 == 20.05 >> c: x // 100 == 5 >> d: b / 4 == 5.0125 >> e: b // 4 == 5.00000000000007E-2 >> f: (b + 8) / 24 == 1.16875 >> g: b - f + 1 / 3 == 6.62708333333333 >> h: 19 * a + b - d - g + 15 / 30 == 7.11368055555556 >> i: c / 4 == 1.25 >> k: c // 4 == 1 >> l: (32 + e + e + i + i - h - k) // 7 == 5.48631944444444 >> m: a + (11 * h) + (22 * l) / 451 == 0.463302691549642 >> month: h + l - (7 * m) + 114 / 31 == 3.9792542309404 >> day: h + l - (7 * m) + 114 // 31 == 30.3568811591525 | |
so according to that March 30 2005 should be easter (but it is not a sundy) prolly the 27th then | |
couple of typos in there | |
easter?: func [ {given a year returns the date of easter. lifted from "Astronomical Formulae for Caculators" by Jean Meeus 1979 algorithm attributed to a 1876 publication note: I am adding a + 1 to the day to accoung for appearent rounding errors } x[integer!] "(Gregorian) year" /local a b c d e f g h i k l m n p ][ a: x // 19 b: to integer! (x / 100) c: x // 100 d: to integer! (b / 4) e: b // 4 f: to integer! (b + 8 / 25) g: to integer! (b - f + 1 / 3) h: 19 * a + b - d - g + 15 // 30 i: to integer! (c / 4) k: c // 4 l: 32 + e + e + i + i - h - k // 7 m: to integer! (11 * h + a + (22 * l) / 451) n: to integer! (h + l - (7 * m) + 114 / 31) p: h + l - (7 * m) + 114 // 31 to date! reduce[x n p + 1] ] | |
DideC 28-Feb-2005 [1441] | As I ask all that to add this particular function to the Library, then, why does this function is not already on rebol.org ?? |
Tomc 28-Feb-2005 [1442x2] | I ahve a easier time maling the function than the library header |
but we should all put more effort into our excelent library | |
Sunanda 28-Feb-2005 [1444] | If you upload a script without a Library header, one should be inserted automatically.....You just need to update it to have the right values. Several people have claimed that it should be possible to get 99% of the right values by analysing the script automatically. So far, no one has demonstrated a header-writer. Maybe you could write one first!? |
Tomc 28-Feb-2005 [1445] | beurocrocy is not one of my strong suits , but I will keep it in mind |
Allen 28-Feb-2005 [1446] | I had an easter function in rebol.org years ago, I assume it is still there. |
Tomc 28-Feb-2005 [1447] | [Search=easter] .... no items found in search. |
Sunanda 28-Feb-2005 [1448] | Not as far as I can see. For no explicable reason, not all scripts on the "old" library made it to the "new" one. That was not a deliberate quality/triage choice -- just some somehow slipped the net. |
Tomc 28-Feb-2005 [1449] | maybe the older library on rebol.com |
Allen 28-Feb-2005 [1450] | http://web.archive.org/web/20000930190758/www.rebol.org/math/easter.html |
Sunanda 28-Feb-2005 [1451] | I don't think it as ever in the REBOLtech Library -- whcih was the main starting point for the new Library: http://www.reboltech.com/library/script-math.html Which may be how it got overlooked. |
Allen 28-Feb-2005 [1452] | here's the old rebol.org list, probably a few missed gems in there. http://web.archive.org/web/20021208011501/www.rebol.org/fl-list.html |
Sunanda 28-Feb-2005 [1453x2] | Plus there were a load of unpublished scripts in the old REBOL.org......I'll just officially describe some of them as "weird". |
If you've got the time to rescue your forgotten gems and release them via REBOL.org, we'd all benefit from that. | |
Allen 28-Feb-2005 [1455] | I'll wait for the for the next rebol release before picking through the time capsule, some of the old scripts were obsoleted with later built-in functions. |
Sunanda 28-Feb-2005 [1456] | Good point ----- but it could be *years* :-) |
BrianW 28-Feb-2005 [1457] | *whimper* |
Tomc 28-Feb-2005 [1458] | heak has been yeaes |
BrianW 28-Feb-2005 [1459x2] | From my perspective it's only been months, and even that is a little too long :-) |
But I'm learning to cope ;-) | |
Tomc 28-Feb-2005 [1461] | to be fair there are alpha and beta updates |
BrianW 28-Feb-2005 [1462] | True, loads of those |
older newer | first last |