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
    ]


-- 
To unsubscribe from the list, just send an email to 
lists at rebol.com with unsubscribe as the subject.

Reply via email to