[REBOL] Idiomatic Rebol
From: emekamicro:g:mail at: 2-Sep-2010 18:34
Hello All,
Please check if the below is idiomatic Rebol
my-last: func[series][
if empty? next series [return first series]
my-last next series
]
my-but-last: func [series] [
if empty? next next series [return series]
my-but-last next series
]
element-at: func[series n m][
if n = m [return first series]
element-at next series n add 1 m
]
element-wat: func [series n][
element-at series n 0
]
reverse-list: func [series new-series][
if empty? series [return new-series]
reverse-list next series join to-block first series new-series
]
count-list: func [series n][
if empty? series [return n]
count-list next series add 1 n
]