[REBOL] Re: Simple things should be simple to do ?
From: tooki:widebay:au at: 16-Nov-2000 12:35
I'm rather new to this great language, but I've given it a try. Just before
sending this I saw the solution of Larry Palmiter , which is more elegant
than mine, but I would like to post it anyway, to see if anyone wants to
comment on my style. I really want to improve myself, so: come on, guys,
shoot at me!
count-char: func [
/local count look
foreach char str [
either look: find count char [
change next look (second look) + 1
append (append (append count char) 1) "^/"
>> count-char "abcdefhhjhjeeeehjhjjhe"