[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

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