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

World: r3wp

[All] except covered in other channels

Pekr
27-Feb-2005
[1404]
so sort groups in alphabetical order and try to look for appropriate 
group ... i am not sure such group is here on Rebol3
[unknown: 5]
27-Feb-2005
[1405]
I did but didn't see anything.  I don't think I can see private groups 
though.
Micha
27-Feb-2005
[1406x5]
data: [1.2.3.4 1080 3.54.6.4 1039 43.5.4.3 3380 ]
d: [1.2.3.4 1080 3.54.6.4 1039 43.5.4.3 3380 ]
view layout [text-list data  d]
how to display in form this host port ?
host and  port  in one lini ?
[unknown: 5]
27-Feb-2005
[1411]
Give an example of the output you desire
Micha
27-Feb-2005
[1412]
I ask about help ?
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
[1453]
Plus there were a load of unpublished scripts in the old REBOL.org......I'll 
just officially describe some of them as "weird".