[REBOL] Re: to-char
From: joel:neely:fedex at: 11-Feb-2002 20:40
Hi, Jason,
Small kibitz...
Jason Cunliffe wrote:
> ; Is this what you want?
>
> to-charblock: func[aword [string!] /local charblock letter][
> charblock: []
> clear charblock
> foreach letter aword [
> append charblock letter
> ]
> return charblock
> ]
>
Would either
charblock: copy []
or
charblock: clear []
work as well for you?
-jn-
--
; sub REBOL {}; sub head ($) {@_[0]}
REBOL []
# despam: func [e] [replace replace/all e ":" "." "#" "@"]
; sub despam {my ($e) = @_; $e =~ tr/:#/.@/; return "\n$e"}
print head reverse despam "moc:xedef#yleen:leoj" ;
