[REBOL] Re: Simple things should be simple to do ?

From: tooki:widebay:au at: 16-Nov-2000 14:23

Hi Larry,

Thanks for your correction. The code now reads:

count-char: func [
	str [string!]
	/local count look
][
	count: make block! 0
	foreach char str [
		either look: find count char [
			change next look (second look) + 1
		][
			append (append (append count char) 1) "^/"
		]
	]
	print count
]

And it does work. So I am happy! ;-)

One thing though: isn't there a more elegant way of doing the
append(append(append ...))) stuff?

Thanx once more for your feedback, I'm learning a lot just by looking
through the mailing list.

Bard

1 · 2 · 3 · 4 · [5] · See whole thread