[REBOL] Interleaving of strings question Re:
From: grantwparks:ya:hoo at: 25-Sep-2000 5:33
Since we want them sorted, we're talking about their
relative distance from an origin ( 0,0,... ). So it
became (x1 to the nth + y1 to the nth) < (x2 to the
nth + y2 to the nth)...
If one of you great REBOLs would show how to do this
using all the niceties of series! traversal I would
appreciate it; I know my version is a pretty sad
procedural version:
coord-sort: func [ a b /local sum1 sum2 ] [
sum1: 0
sum2: 0
dimension: length? a
while [ not tail? a ] [
sum1: add sum1 power first a dimension
a: next a
]
while [ not tail? b ] [
sum2: add sum2 power first b dimension
b: next b
]
sum1 < sum2
]
--- [grantwparks--yahoo--com] wrote:
