[REBOL] Re: count characters. (Was: Simple things should be simple to do ?)
From: tooki:widebay:au at: 16-Nov-2000 20:54
Hi Guys,
I have integrated the suggestions of Andrew, and this is the end-result.
Time to give this one a rest, and move on to more daunting stuff (anyone
done that XML-to-HTML-using-stylesheets thingie yet?).
REBOL [
Title: "Counting chars in a string"
File: %count-char.r
Date: 16-November-2000
Purpose: {
To count the number of occurences of each character in
a string.
}
Usage: {count-char string!}
Notes: {
Implemented after some very useful suggestions by the REBOL
mailing list people. Thanx guys!
}
History: [
16-November-2000 "A version I can live with!"
]
]
count-char: function [
{
This function counts the number of occurrences of each character in
string str, and returns a printable block with the results.
}
str [string!]
][
count
look
][
count: make block! 0
foreach char str [
either found? look: find count char [
change (next look) ((second look) + 1)
][
append count reduce [char 1 "^/"]
]
]
return count
]
Bard