getWordsCount

getWordCount.xq

(:~
 : If performance is a concern, this problem is much better suited to leverage a word index with frequency data, like in an XML database. Solving this in pure XQuery may be considerably slower for large XML but solves the problem
 : https://stackoverflow.com/questions/15122641/count-number-of-word-occurrences-in-strings-using-xquery
 :)
let $xml :=
    <root>
    <nodeOne>
      <nodeTwo>
        <nodeThree>
          foo bar zoo
        </nodeThree>
      </nodeTwo>
    </nodeOne>
    <nodeOne>
      <nodeTwo>
        <nodeThree>
          foo bar
        </nodeThree>      
      </nodeTwo>
    </nodeOne>
    <nodeOne>
      <nodeTwo>
        <nodeThree>
          zoo bar
        </nodeThree>      
      </nodeTwo>
    </nodeOne>
    </root>
let $toks := $xml//text()/fn:tokenize(fn:normalize-space(.),'\s')
for $t in distinct-values($toks)
let $count := count($toks[. = $t])
return element { $t } {
    attribute count { $count }
}