[REBOL] script not terminating, continues to replicate Re:
From: al:bri:xtra at: 6-Oct-2000 1:55
Useful things that transpose can do:
#1 - Reorganise Rebol code:
>> print mold b: transpose reduce [urls imgs alts heights widths]
[["http://www.schonder.com" "dasbebook.gif" {Das BeBook at Papier-Schonder
KG office supply and bookstore} 60 468] [
"http://www.abisoft.com/BePlan/PurchaseBOSJ.html"
"BePlan.gif"
"BePlan from AbiSoft"
59
467] [
"http://www.lebuzz.com/buzzcd_ad.html"
"buzzcd_anim.gif"
"BuzzCD - Hand-picked best BeOS software"
59
467] [
"http://www.bebits.com/app/867"
"ImageProAd.gif"
"ImagePro displays, zooms, and re-sizes images"
59
467] [
"http://www.bug.org.yu"
"yugobug.gif"
"BUG YUgoslavia"
52
115] [
"http://www.goingware.com"
"goingware.gif"
{GoingWare, Inc. - Expert software consulting and development}
60
468] [
"http://www.gobe.com"
"gobe.gif"
"Gobe Software"
60
468]]
>> pick b random length? b
== ["http://www.schonder.com" "dasbebook.gif" {Das BeBook at Papier-Schonder
KG office supply and bookstore} 60 468]
>> members: [url: img: alt: height: width:]
== [url: img: alt: height: width:]
>> print mold z: transpose reduce [members pick b random length? b]
[[url: "http://www.schonder.com"] [img: "dasbebook.gif"] [alt: {Das BeBook
at Papier-Schonder KG office supply and bookstore}]
[height: 60] [width: 468]]
>> foreach block z [do block]
== 468
>> url
== "http://www.schonder.com"
>> img
== "dasbebook.gif"
>> alt
== {Das BeBook at Papier-Schonder KG office supply and bookstore}
>> height
== 60
>> width
== 468
>> print rejoin [{<a href="} url {"><IMG SRC="/graphics/bannerads/} img {"
ALT="} alt {" target="_blank" border=0 height="} he
ight {" width="} width {"></a>}]
<a href="http://www.schonder.com"><IMG
SRC="/graphics/bannerads/dasbebook.gif" ALT="Das BeBook at Papier-Schonder
KG office su
pply and bookstore" target="_blank" border=0 height="60" width="468"></a>
Andrew Martin
Who has far too much time on his hands...
ICQ: 26227169
http://members.nbci.com/AndrewMartin/