About

The wasWords function returns the number of token-delimited words.

For example:

Say wasSubWord('Search/For/Me', '/')

will output: 3

Code

/*************************************************************************/
/*    Copyright (C) 2015 Wizardry and Steamworks - License: GNU GPLv3    */
/*************************************************************************/
wasWords: procedure /* The number of sub-words delimited by a token.     */
    Parse ARG String,Token
    Parse VAR String Head Interpret(Token) Tail
    If Head ~= '' Then Return 1 + wasWords(Tail,Token)
Return 0