[fpc-pascal]Word count function

[Gabor DEAK JAHN]

At 9/6/01 08:07 AM, you wrote:

Jim,

 > Does anyone know of an efficient method for counting the words in a line of
 > data? I've written a few different functions, none of which were terribly

It just happened that I needed this function myself, and I found two errors
in my pseudo-code. Here it is, corrected:

var state : (insideword, firstseparator, moreseparator)

state := insideword
count := 0
for each character in the string do
   case state of
     firstseparator:
       increment (count)
       if character is separator then state := moreseparator
                 else state = insideword
     moreseparator:
       if character is not separator then state := insideword
     insideword:
       if character is separator then state := firstseparator
if state = insideword then increment (count)


Bye,
    Gábor

-------------------------------------------------------------------
Gabor DEAK JAHN -- Budapest, Hungary.
E-mail: djg at tramontana.co.hu