[REBOL] [Values] Penultimate Coerce
From: AJMartin::orcon::net::nz at: 24-Dec-2003 22:49
>> last "abcde"
== #"e"
>> penultimate "abcde"
== #"d"
Penultimate: func [
"Returns the next-to-last value of a series."
Series [series! port! tuple!]] [
pick tail Series -2
]
>> coerce 1 none 12
== 1
Coerce: func [
"Forces a value to be within limits."
Low_Limit [number! pair! char! money! date! time! tuple! series!] "Lower
limit for value."
Value [any-type!] "The value to limit."
High_Limit [number! pair! char! money! date! time! tuple! series!]
Upper limit for value.
] [
if not number? Value [
Value: Low_Limit
]
Value: max Low_Limit Value
Value: min Value High_Limit
]
Enjoy!
Andrew J Martin
Speaking in tongues and performing miracles.
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://Valley.150m.com/