World: r3wp

ips: copy []

parse s [some [start:   3 [number "."]   number opt #":" 1 5 digit 
 end: (append ips parse copy/part start end ":") | skip]
]

== ["193.194.70.123" "1080" "234.221.23.5" "3380"]

not sure what you are trying to do, but the following is a better 
natural form once you get your string stuff INTO Rebol ... because 
REBOL will see it as its own datatypes, rather than as strings. [193.194.70.123 
1080 234.221.23.5 3380]

parse s [some [start:   3 [number "."]   number opt #":" 1 5 digit 
 end: (append ips load  replace  copy/part start end ":"
 " " ) | skip]]

[193.194.70.123 1080 234.221.23.5 3380]
>>

it is betterit

What is correct - hilite, or hilighted? (in the case of meaning of 
mouse hilighted text)

or highlighted? :-)

Anyone know if there is a private group here for religous discussion 
of any sort

Ask Terry :-)

Or go and create one ...

Yeah, I would create one if one didn't exist - otherwise i would 
see if I could get added to the current one if it existed.

so sort groups in alphabetical order and try to look for appropriate 
group ... i am not sure such group is here on Rebol3

I did but didn't see anything.  I don't think I can see private groups 
though.

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 ?

Give an example of the output you desire

I ask about help ?

hmm, block of blocks?

I guess you want an output that shows a text-list with the hostname 
joined to the port?

d: [[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"]
== ["1.2.3.4:1080" "3.54.6.4:1039" "43.5.4.3:3380"]
>> view layout [text-list data d]

<td>4.27.151.216</td><td>15551</td

how do from this to read address ip ?

for help parse .

read join http:// second load/markup "<td>4.27.151.216</td><td>15551</td"

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 ?

Question: what day is the "easter day" ? sunday or monday ?

Easter.. >>my limited knowledge<<... alwasy falls on Sunday

or is this supposed to be a 'trick' question that I am slow to catch?

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.

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.

Micha, can be useful:
non-digit: complement digit

ok

how to alter the speed of reproduction the  sound of  file *.wav 
?

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]
]